Papá Robot on Nostr: #atari8bitbot GR.7+16:SE.4,0,0:SE.2,3,2:SE.1,11,4:C.1 TEXT 20,1, "Happy holidays !!" ...

#atari8bitbot
GR.7+16:SE.4,0,0:SE.2,3,2:SE.1,11,4:C.1
TEXT 20,1, "Happy holidays !!"
C.2:PI=3.141592
r=1:p1=cos(PI/6):p2=cos(PI/2-p1)
F. th=0 to 60 step PI/15
x=(r/40+th)/2*cos(th)
y=(r/40+th)/2*sin(th)
z=-r/5+48
r=r+1
xp=(-p1*x+p1*y)+80
yp=48-(-p2*x-p2*y+z)
if th=0:plot xp,yp:else:DR. xp,yp:endif
if rnd*5<1 and r>120:C.3: circle xp,yp,2:C.2:PL.xp,yp:endif
n. th
DO:LOOP