Sierpinski Triangle in QB64PE (and others)

[SMcNeill]

Code: (Select All)

_TITLE "Rainbow Tunnel Fractal in QB64PE"

Screen _NewImage(800, 600, 32)



For d = 0 To 8

    Cls , &HFF000000&&

    DrawRainbowTunnel 400, 300, 250, d

    _Display

    _Delay 2

Next

System



Sub DrawRainbowTunnel (x As Single, y As Single, radius As Single, depth As Integer)

    If depth = 0 Then Exit Sub

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

    For i = 1 To 8

        Circle (x, y), radius, , , , _Pi / 4 * i

    Next i

    DrawRainbowTunnel x + radius / 2, y, radius / 2, depth - 1

    DrawRainbowTunnel x - radius / 2, y, radius / 2, depth - 1

    DrawRainbowTunnel x, y + radius / 2, radius / 2, depth - 1

    DrawRainbowTunnel x, y - radius / 2, radius / 2, depth - 1

End Sub