Papá Robot on Nostr: #atari8bitbot {B99S99} 10 GR.9+16:C.15:PI=3.14159265 40 for x=-30 to 30 50 for y=-30 ...
#atari8bitbot {B99S99}
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
Published at
2024-10-21 00:23:37Event JSON
{
"id": "260da07b7ee851f5293ad91a0fe06ad434cdcb9861d4da4701d258c522b1f5c0",
"pubkey": "3d7590d6c7171b7856ab7788de468e566583e69a7c789599fea8812a07f638df",
"created_at": 1729470217,
"kind": 1,
"tags": [
[
"t",
"atari8bitbot"
],
[
"content-warning",
"code: inverse sphere"
],
[
"proxy",
"https://mastodon.cloud/users/papa_robot/statuses/113342560184216233",
"activitypub"
]
],
"content": "#atari8bitbot {B99S99}\n10 GR.9+16:C.15:PI=3.14159265\n40 for x=-30 to 30\n50 for y=-30 to 30\n60 z=SQR(ABS(x*x+y*y))\n70 xp=x+40\n80 yp=y+96\n90 if z\u003e=0 and z\u003c=43\n93 color int(z*15/43)\n95 plot xp,yp\n100 endif\n110 next y\n120 next x\n130 do:loop",
"sig": "a709c6be1f795712812382f09c3a23cf7eb87a76e9cc6402d8a0a76089775ce306cad39631341cdd76166c6ccba553b3da0d45b3b3ffe1d7742da7f40ff88e31"
}
