|
|
|
polyview
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>
=={{header|Lua}}==
|