Vince's Corner Takeout

[vince]

Flower of Justice

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