Draw a sphere: Difference between revisions

=={{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>