Draw a sphere: Difference between revisions
→{{header|ContextFree}}
Einstein1969 (talk | contribs) |
Basicgames (talk | contribs) |
||
Line 1,993:
}
</syntaxhighlight>
=={{header|Craft Basic}}==
<syntaxhighlight lang="basic">define k = 0, i = 21, j = 2
do
let k = -3.14
do
dot 21 + I * ( sin: k ), 22 + 21 * ( cos: k )
dot 21 + 21 * ( sin: k ), 22 + ( I - 1 ) * ( cos: k )
let k = k + .07
wait
loop k < 3.14
let i = i - j
let j = j + 1
loop i > 0</syntaxhighlight>
=={{header|D}}==
| |||