Moving Multi-Layered Snowflake

[SierraKen]

Here is just 1 moving snowflake, but very large. I used this to make the Dancing Snowflakes on the other thread.

Code: (Select All)

'By SierraKen



Screen _NewImage(800, 600, 32)

size = 10

x = 400: y = 300

pi = _Pi

tt = -360

a = 1

Do

    If tt > 0 Then

        tt = tt + .2

    End If

    If tt < 0 Or tt = 0 Then

        tt = tt - .2

    End If

    If tt > 360 Then

        tt = 0

    End If

    If tt < -360 Then

        tt = 0

    End If

    oldxxx = xxx

    oldyyy = yyy

    xxx = Sin(tt)

    yyy = Cos(tt)



    For t = 0 To 360

        xx = Sin(t + xxx) * 180 + size + x

        yy = Cos(t + yyy) * 180 + size + y

        If t = 0 Then

            oldxx = xx

            oldyy = yy

        End If

        If t / 4 = Int(t / 4) Then

            Line (xx + xxx, yy + yyy)-(oldxx + oldxxx, oldyy + oldyyy), _RGB32(255, 255, 255)

            oldxx = xx

            oldyy = yy

        End If

        skip:



    Next t

    _Delay .1

    _Display

    Cls





Loop Until InKey$ = Chr$(27)