19 lines
315 B
Plaintext
19 lines
315 B
Plaintext
'Run BASIC White Sphere, Black background
|
|
'runbasic.com
|
|
graphic #win, 300, 300
|
|
#win size(1)
|
|
R=100
|
|
R2=R*R
|
|
X0=300/2
|
|
Y0=300/2
|
|
for Y = -150 to 150
|
|
for X = -150 to 150
|
|
D2 = X*X + Y*Y
|
|
C = 0
|
|
if D2 <= R2 then Z = sqr(R2-D2) : C = int(Z-(X+Y)/2+130)
|
|
#win color(C,C,C)
|
|
#win set(X+X0, Y+Y0)
|
|
next X
|
|
next Y
|
|
render #win
|