Draw a sphere: Difference between revisions
no edit summary
Simple9371 (talk | contribs) (Add VBScript) |
No edit summary |
||
Line 4,429:
SetVid($03); \restore normal text mode
]</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}}==
|