RosettaCodeData/Task/Draw-a-sphere/BASIC256/draw-a-sphere.basic

8 lines
129 B
Plaintext

clg
color white
rect 0,0,graphwidth, graphheight
for n = 1 to 100
color rgb(2*n,2*n,2*n)
circle 150-2*n/3,150-n/2,150-n
next n