Circle Patterns

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|574\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> Circle Patterns
Wed, 21 Jun 2023, 04:11
Jayenkai	Circle Patterns Yesterday, Pakz retweeted this tweet.. Linkage It shows a pattern generator that uses circles spinning to draw a pattern on the screen, a bit like the cogs in a spirograph. I tried making my own, but mushy-maths-brain ATM made it a bit shit by comparison. Perhaps you could make something that's a little bit better? // Spirography // by Jayenkai // Created 2023/6/20 // GotoJSE.com/7wjxVprZ.BAS // One // Select a few cogs of different sizes. // Tap inside the rings to change their size, or outside to change their link-position // Grey = the cog is disabled // Two // Click Play, and watch the swirls. You can use the Fast Forward button to speed it up. // Three // Stop, then take a screenshot of your lovely pattern with the ; key. // Extra // Turn the variance off or on for added ... ... variance! Dim Cog(9,10) Graphics 1920,1080,3 Cmd$="" SetFont "ZX" DrawMode=0 bit=0 stu=1 Repeat CLS 240,240,240;ResetDraw if DrawMode>0 CLS 120,180,240 SetCol 240,240,240,1 Rect jscrw/2,jscrh/2,1024,1024,1 endif ResetDraw mh=MouseHit() SetFontSize 32 if DrawMode==0 a=Asc(Upper$(Inkey())) if a>=Asc("0") and a<=Asc("7") b=Floor(bit/2) if bit%2==0 then Cog(b,8)=a-Asc("0") if bit%2==1 then Cog(b,9)=a-Asc("0") bit=bit+1;if bit>17 then bit=0 endif if a==Asc("C") bit=0 for m=0 to 8 for n=0 to 9 Cog(m,n)=0 next next endif SetThick 4 lm=16+832 any=0 for m=0 to 8 x=((m%3)480)+360 y=(Floor(m/3)270)+270 if Floor(m/3)==1 then x=x+240 z=64 SetCol 160,160,160;if Cog(m,8)>0 then SetCol 170,190,170 Oval x,y,lm,lm,32 SetCol 20,40,180 if Cog(m,8)==0 then SetCol 128,128,128 if Cog(m,8)>0 then z=32+Cog(m,8)32;any=any+1 DrawOval x,y,z,z,64 ang=Cog(m,9)45 SetCol 180,220,255 Oval x+Sin(ang)z0.5,y-Cos(ang)z0.5,16,16,8 SetCol 0,0,0 Text x,y+lm0.5,Cog(m,8)+" "+Cog(m,9),1 p=Pyth(x-MouseX(),y-MouseY()) if p<z0.5 and mh==1 then Cog(m,8)=Wrap(Cog(m,8)+1,0,8);mh=0 if p>z0.5 and p<lm0.5 and mh==1 then Cog(m,9)=Wrap(Cog(m,9)+1,0,8);mh=0 next if any>0 SetCol 0,180,0 x=jscrw-64;y=64 Oval x,y,96,96,64 SetRot 90 SetCol 255,255,255 Oval x,y,64,64,3 p=Pyth(x-MouseX(),y-MouseY());if p<48 and mh==1 then DrawMode=1;mh=0;Gosub Restart endif ResetDraw;SetThick 4 x=jscrw0.1;y=jscrh0.5 SetCol 180,0,0 if stu==1 then DrawOval x,y,32,32,64 if stu==0 then Oval x,y,32,32,64 Text x+32,y,"Variance",0 p=Pyth(x-MouseX(),y-MouseY());if p<48 and mh==1 then stu=1-stu;mh=0 endif if DrawMode==1 SetBuffer FG ff=0 SetCol 0,180,0 x=jscrw-64;y=jscrh-64 Oval x,y,96,96,64 SetRot 90 SetCol 255,255,255 Oval x-16,y,32,64,3 Oval x+16,y,32,64,3 p=Pyth(x-MouseX(),y-MouseY());if p<48 and MouseDown()>0 then ff=50 SetBuffer BG SetCol 0,60,120;SetThick 0.5 for f=0 to ff x=512 y=512 rot=0 any=0 pu=PI0.1 mu=0.25 for m=0 to 8 if Cog(m,8)>0 if stu==0 then mu=0.25+(m0.02) z=Cog(m,4) if any>0 x=x+Sin(rot)z0.5 y=y-Cos(rot)z0.5 endif any=any+1 Cog(m,5)=Wrap(Cog(m,5)+puCog(m,6)mu0.1,0,360) rot=rot+((Cog(m,9)45)+Cog(m,5)) x=x+Sin(rot)z0.5 y=y-Cos(rot)z0.5 endif next if wx>-10000 then Line wx,wy,x,y wx=x;wy=y next SetBuffer FG ResetDraw SetCol 128,128,128;SetThick 3 any=0 x=jscrw/2;y=jscrh/2;rot=0 mu=0.25 for m=0 to 8 if Cog(m,8)>0 if stu==0 then mu=0.25+(m0.02) z=Cog(m,4) if any>0 x=x+Sin(rot)z0.5 y=y-Cos(rot)z0.5 endif any=any+1 DrawOval x,y,z,z,64 rot=rot+((Cog(m,9)45)+Cog(m,5)) x=x+Sin(rot)z0.5 y=y-Cos(rot)z0.5 endif next DrawBG jscrw/2,jscrh/2 SetCol 100,150,200 Oval x,y,16,16,16 SetCol 96,0,0 x=jscrw-64;y=64 Oval x,y,96,96,64 SetRot 45 SetCol 255,255,255 Oval x,y,64,64,4 p=Pyth(x-MouseX(),y-MouseY());if p<48 and mh==1 then DrawMode=2;mh=0 endif if DrawMode==2 DrawBG jscrw/2,jscrh/2 SetCol 96,0,0 x=jscrw-64;y=64 Oval x,y,96,96,64 SetRot -90 SetCol 255,255,255 Oval x,y,64,64,3 p=Pyth(x-MouseX(),y-MouseY());if p<48 and mh==1 then DrawMode=0;mh=0 endif ResetDraw str$="" for m=0 to 8 str$=str$+""+Cog(m,8)+""+Cog(m,9)+" " next if stu==0 then str$=str$+"v" SetCol 0,0,0 Text 4,jscrh-16,str$,0 Flip Forever .Restart SetBuffer BG CLS SetBuffer FG wx=-10000 CLS 240,240,240 for m=0 to 8 for n=0 to 7 Cog(m,n)=0 next e=(8-Cog(m,8)) Cog(m,6)=ee25 Cog(m,4)=2+(Cog(m,8)Cog(m,8)*7) next Return --v -=-=- ''Load, Next List!''