Anonymous user
Draw a sphere: Difference between revisions
→{{header|FreeBASIC}}
Line 301:
sleep
END</lang>
==={{header|Liberty BASIC}}===
<lang lb>
WindowWidth =420
WindowHeight =460
nomainwin
open "Sphere" for graphics_nsb_nf as #w
#w "down ; fill lightgray"
xS =200
yS =200
for radius =150 to 0 step -1
level$ =str$( int( 256 -256 *radius /150))
c$ =level$ +" " +level$ +" " +level$
#w "color "; c$
#w "backcolor "; c$
#w "place "; xS; " "; yS
xS =xS -0.5
yS =yS -0.2
#w "circlefilled "; radius
next radius
#w "flush"
wait
close #w
end
</lang>
===[[QBasic]]===
| |||