#atari8bitbot {S99B99}
10 GR.9+16:C.15:PI=3.14159265:r=30
40 for x=-30 to 30
50 for y=-60 to 60
60 z=SQR(ABS(x*x+y/2*y/2))
70 xp=x+40
80 yp=y+96
90 if z>=0 and z<=r
93 color int(15-z*15/r)
95 plot xp,yp
100 endif
110 next y
120 next x
130 do:loop
Papá Robot /
npub184…sddc8
2024-10-21 00:40:56
Author Public Key
npub1846ep4k8zudhs44tw7ydu35w2ejc8e5603uftx074zqj5plk8r0s9sddc8Published at
2024-10-21 00:40:56Event JSON
{
"id": "592d764bdfaeb54a5616aa40086193960d0c18028d2b6756683e9371fba161d2",
"pubkey": "3d7590d6c7171b7856ab7788de468e566583e69a7c789599fea8812a07f638df",
"created_at": 1729471256,
"kind": 1,
"tags": [
[
"t",
"atari8bitbot"
],
[
"content-warning",
"code: naive sphere shading"
],
[
"proxy",
"https://mastodon.cloud/users/papa_robot/statuses/113342628279890129",
"activitypub"
]
],
"content": "#atari8bitbot {S99B99}\n10 GR.9+16:C.15:PI=3.14159265:r=30\n40 for x=-30 to 30\n50 for y=-60 to 60\n60 z=SQR(ABS(x*x+y/2*y/2))\n70 xp=x+40\n80 yp=y+96\n90 if z\u003e=0 and z\u003c=r\n93 color int(15-z*15/r)\n95 plot xp,yp\n100 endif\n110 next y\n120 next x\n130 do:loop",
"sig": "51b6c8c87148250e68ba4a453c7d2bebd0a75ee4d513e594b98623c132bb0f2b4541198d42953cd620eff822ba9c62bf672804be7fe2f46434a10e6cff74fcce"
}