#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
Papá Robot /
npub184…sddc8
2024-10-21 00:18:27
Author Public Key
npub1846ep4k8zudhs44tw7ydu35w2ejc8e5603uftx074zqj5plk8r0s9sddc8Published at
2024-10-21 00:18:27Event JSON
{
"id": "6d5aa4f078089b327391c4be8a83c1c73a860b9e93c5b4e6430618de02439b20",
"pubkey": "3d7590d6c7171b7856ab7788de468e566583e69a7c789599fea8812a07f638df",
"created_at": 1729469907,
"kind": 1,
"tags": [
[
"t",
"atari8bitbot"
],
[
"proxy",
"https://mastodon.cloud/users/papa_robot/statuses/113342539867971351",
"activitypub"
]
],
"content": "#atari8bitbot {S99B20}\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": "fda4dff95a324564229ec81818cfdb8e1c7dde0a0331ce8cdab94c93f115dd8674d57a8845b8d68c28145438e2a723da4caf1708a87c1675f293737a9d396b42"
}