View.Set ("graphics:500,500,title:Turing Flower,offscreenonly,nobuttonbar")
var x1, y1, x2, y2, a : int
var r, n : real
n := 5
a := 250
loop
    for k : 0 .. 360
        cls
        Draw.FillBox (0, 0, maxx, maxy, 7)
        for t : 0 .. 360
            r := sind ((t + k) * n) * a
            x1 := round (cosd (t) * r) + maxx div 2
            y1 := round (sind (t) * r) + maxy div 2
            r := sind ((t + 1 + k) * n) * a
            x2 := round (cosd ((t + 1)) * r) + maxx div 2
            y2 := round (sind ((t + 1)) * r) + maxy div 2
            Draw.Line (x1, y1, x2, y2, 5)
        end for
        for i : 1 .. round(n)
            x1 := round (cosd (i * 72 - k + 18) * a / 4 * 3) + maxx div 2
            y1 := round (sind (i * 72 - k + 18) * a / 4 * 3) + maxy div 2
            Draw.Fill (x1, y1, 5, 5)
        end for
        Draw.FillOval (maxx div 2, maxy div 2, 50, 50, 43)
        for i : 235 .. 315
            x1 := round (cosd (i - k) * 35) + maxx div 2
            y1 := round (sind (i - k) * 35) + maxy div 2
            Draw.FillOval (x1, y1, 5, 5, 7)
        end for
        x1 := round (cosd (50 - k) * 30) + maxx div 2
        y1 := round (sind (50- k) * 30) + maxy div 2
        Draw.FillOval (x1, y1, 7, 7, 7)
        x1 := round (cosd (130 - k) * 30) + maxx div 2
        y1 := round (sind (130 - k) * 30) + maxy div 2
        Draw.FillOval (x1, y1, 7, 7, 7)
        View.Update
        delay (5)
    end for
    exit when hasch
end loop