06-07-2022, 02:02 AM
Flower of Justice
this is a JB original
this is a JB original
Code: (Select All)
'blossoming flower of justice
const sw = 800
const sh = 600
dim shared pi as double
pi = 4*atn(1)
screen _newimage(sw, sh, 32)
r = 100
do
for a = 0 to 1 step 0.01
cls
fcirc sw/2, sh/2, a*r + (1-a)*1.5*r, a, 3
_display
_limit 5
next
_delay 3
for a = 1 to 0 step -0.01
cls
fcirc sw/2, sh/2, a*r + (1-a)*1.5*r, a, 3
_display
_limit 5
next
_delay 3
loop
system
sub fcirc (x, y, r, a, n)
if not n > 0 then exit sub
for t=0 to 2*pi step 2*pi/6
xx = x + r*cos(t)
yy = y + r*sin(t)
circle (xx, yy), r
fcirc xx, yy, a*r, a, n - 1
next
end sub