Papá Robot on Nostr: #atari8bitbot {B30S90} 10 GR.9+16:C.15:PI=3.14159265 20 p1=cos(PI/6):p2=cos(PI/3) 30 ...

#atari8bitbot {B30S90}
10 GR.9+16:C.15:PI=3.14159265
20 p1=cos(PI/6):p2=cos(PI/3)
30 c=1:d=1
40 for r=30 to 60
50 for th=0 to 2*PI step PI/20
60 x=r/2.5*cos(th)
70 y=r*sin(th)
80 xp=x+40
90 yp=y+96
100 color c
110 if th=0:plot xp,yp: else: DRAWTO xp,yp:endif
120 next th
130 if c>=15 then d=-1:endif
140 if c<=0 then d=1:endif
150 c=c+d
160 next r
170 do:loop