aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Draw-a-sphere/Craft-Basic/draw-a-sphere.basic Normal file
View file

@ -0,0 +1,16 @@
let j = 2
for i = 221 to 0 step j * -1
for k = -3.14 to 3.14 step .01
dot 221 + i * sin(k), 222 + 221 * cos(k)
dot 221 + 221 * sin(k), 222 + (i - 1) * cos(k)
wait
next k
let j = j + 1
next i