Draw a sphere: Difference between revisions
Content added Content deleted
Einstein1969 (talk | contribs) |
Basicgames (talk | contribs) |
||
| Line 1,993: | Line 1,993: | ||
} |
} |
||
</syntaxhighlight> |
</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}}== |
=={{header|D}}== |
||