Sierpinski Triangle in QB64PE (and others)

[SMcNeill]

Code: (Select All)

_Title "Recursion Flower Fractal in QB64PE"

Screen _NewImage(800, 600, 32)



For d = 0 To 10

    Cls , &HFF000000&&

    DrawRecursionFlower 400, 300, 200, 0, d

    _Display

    _Delay 2

Next

System



Sub DrawRecursionFlower (x As Single, y As Single, size As Single, angle As Single, depth As Integer)

    If depth = 0 Then Exit Sub

    Color _RGB32(Rnd * 255, Rnd * 255, Rnd * 255)

    Line (x, y)-(x + size * Cos(angle), y - size * Sin(angle)), , BF

    For i = 0 To 5

        DrawRecursionFlower x + size * Cos(angle + i * _Pi / 3), y - size * Sin(angle + i * _Pi / 3), size / 3, angle + i * _Pi / 3, depth - 1

    Next i

End Sub