Alien Eyes Using PSET

[SierraKen]

Just goofing around as usual.  

Code: (Select All)

Screen _NewImage(800, 600, 32)

_Limit 2000

Do

    tilt = 1

    r = 50

    g = 100

    b = 50

    For t = 1 To 200000 Step .01

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

            If tilt < 12 Then

                tilt = tilt + .005

                g = g + .025

            Else

                tilt = tilt + 1

            End If

        End If



        seconds = (t - 60)

        s = (60 - seconds) * 6 + 180

        x = Int(Sin(s / 180 * 3.141592) * 125) + 250

        y = Int(Cos(s / 180 * 3.141592) * 125) / tilt + 300



        PSet (x, y), _RGB32(r, g, b)

        PSet (x + 300, y), _RGB32(r, g, b)

    Next t



    tilt = 1

    r = 100

    g = 50

    b = 50

    For t = 1 To 200000 Step .01

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

            If tilt < 12 Then

                tilt = tilt + .005

                r = r + .025

            Else

                tilt = tilt + 1

            End If

        End If



        seconds = (t - 60)

        s = (60 - seconds) * 6 + 180

        x = Int(Sin(s / 180 * 3.141592) * 125) / tilt + 250

        y = Int(Cos(s / 180 * 3.141592) * 125) + 300



        PSet (x, y), _RGB32(r, g, b)

        PSet (x + 300, y), _RGB32(r, g, b)

    Next t

Loop Until InKey$ = Chr$(27)