Draw a sphere: Difference between revisions
Content added Content deleted
(→QBasic) |
|||
Line 3,384: | Line 3,384: | ||
end |
end |
||
end</lang> |
end</lang> |
||
=={{header|Run BASIC}}== |
|||
<lang runbasic>'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</lang> |
|||
<lang Runbasic>'This is a simple Circle |
|||
graphic #g, 300, 300 'create a graphic object |
|||
#g place(100,100) 'place the drawing pen at 100,100 |
|||
#g circle(75) 'make a circle with radius 75 |
|||
render #g 'show it</lang> |
|||
=={{header|Smalltalk}}== |
=={{header|Smalltalk}}== |