Draw a sphere: Difference between revisions
Content added Content deleted
Simple9371 (talk | contribs) (Add VBScript) |
No edit summary |
||
| Line 4,429: | Line 4,429: | ||
SetVid($03); \restore normal text mode |
SetVid($03); \restore normal text mode |
||
]</lang> |
]</lang> |
||
=={{header|Yabasic}}== |
|||
<lang Yabasic>ancho = 640 : alto = 480 |
|||
open window 640,480 |
|||
backcolor 16,16,16 |
|||
clear window |
|||
sphera() |
|||
sub sphera() |
|||
local n |
|||
for n = 1 to 100 |
|||
color 2*n, 2*n, 2*n |
|||
fill circle ancho/2-2*n/3, alto/2-n/2, 150-n |
|||
next n |
|||
end sub</lang> |
|||
=={{header|zkl}}== |
=={{header|zkl}}== |
||