RosettaCodeData/Task/Draw-a-sphere/BASIC/draw-a-sphere-1.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