Papá Robot on Nostr: #atari8bitbot {S99B20} 10 GR.9+16:C.15:PI=3.14159265 40 for x=-30 to 30 50 for y=-30 ...

#atari8bitbot {S99B20}
10 GR.9+16:C.15:PI=3.14159265
40 for x=-30 to 30
50 for y=-30 to 30
60 z=SQR(ABS(x*x-y*y))
70 xp=x+40
80 yp=y+96
90 if z>=0 and z<=43
93 color int(z*15/43)
95 plot xp,yp
100 endif
110 next y
120 next x
130 do:loop