Draw a sphere: Difference between revisions

Line 1,997:
<syntaxhighlight lang="basic">define k = 0, i = 21, j = 2
 
for i = 21 to 0 step j * -1
do
 
letfor k = -3.14 to 3.14 step .07
 
dot 21 + Ii * ( sin: k ), 22 + 21 * ( cos: k )
do
dot 21 + 21 * ( sin: k ), 22 + ( Ii - 1 ) * ( cos: k )
 
dot 21 + I * ( sin: k ), 22 + 21 * ( cos: k )
dot 21 + 21 * ( sin: k ), 22 + ( I - 1 ) * ( cos: k )
 
let k = k + .07
 
wait
 
loopnext k < 3.14
 
let i = i - j
let j = j + 1
 
next i
loop i > 0</syntaxhighlight>
 
loop i > 0end</syntaxhighlight>
 
=={{header|D}}==
305

edits