Data commit

Task/Draw-a-sphere/Liberty-BASIC/draw-a-sphere.basic

@@ -0,0 +1,26 @@
+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