27 lines
432 B
Plaintext
27 lines
432 B
Plaintext
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
|