RosettaCodeData/Task/Draw-a-sphere/BASIC/draw-a-sphere-1.basic

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
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`clg`
			`color white`
			`rect 0,0,graphwidth, graphheight`
Family Day update 2020-02-17 23:21:07 -08:00			`for n = 1 to 100`
			`color rgb(2n,2n,2*n)`
			`circle 150-2*n/3,150-n/2,150-n`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`next n`