Windows Space Screensaver

[CoePSX]

I was just playing around and decided to mimic the windows space screensaver.

The idea is very simple, but it looks just like the windows one.

expandcollapse popup

#include <GUIConstants.au3>

Global Const $NumberOfStars = 50
Global Const $Speed = 75  ;From 0 To 100
Global Const $Width = 640
Global Const $Height = 480

Global Const $Pi = 3.1415926535897932384626433832795
$Window = GUICreate("SPACE", $Width, $Height, -1, -1)
GUISetBkColor(0)

;Pick random positions for the stars
Dim $StarsArray[$NumberOfStars+1][4]
For $i = 0 To $NumberOfStars
    $Alpha = Random(0, 360, 1)
    $Radius = Random(0, 250, 1)
    $StarsArray[$i][0] = GUICtrlCreateLabel("", 0, 0, 1, 1)
    $StarsArray[$i][1] = $Alpha
    $StarsArray[$i][2] = $Radius
    $StarsArray[$i][3] = 1
    GUICtrlSetBkColor($StarsArray[$i][0], 0xFFFFFF)
Next

GUISetState()

While 1
    For $i = 0 To $NumberOfStars
        ;Recycle stars that are out of the screen
        If $StarsArray[$i][2] > $Width/2 Then
            $Alpha = Random(0, 360, 1)
            $Radius = Random(0, 250, 1)
            $StarsArray[$i][1] = $Alpha
            $StarsArray[$i][2] = $Radius
            $StarsArray[$i][3] = 1
        EndIf
        
        ;Adjust the thickness of the star
        Select
            Case $StarsArray[$i][2] > $Width/8 And $StarsArray[$i][2] < $Width/3
                $StarsArray[$i][3] = 2
            Case $StarsArray[$i][2] > $Width/3
                $StarsArray[$i][3] = 3
        EndSelect
        
        ;Moves the current star
        $StarsArray[$i][2] += 10
        $X = Sin(($StarsArray[$i][1]*($Pi/180))) * $StarsArray[$i][2] + $Width/2
        $Y = Cos(($StarsArray[$i][1]*($Pi/180))) * $StarsArray[$i][2] + $Height/2
        GUICtrlSetPos($StarsArray[$i][0], $X, $Y, $StarsArray[$i][3], $StarsArray[$i][3])
    Next
    Sleep(100-$Speed)
WEnd

[NELyon]

you and your screensavers!

Nice job

[cppman]

lol @codemyster.

Nice work.

[Daniel W.]

Wow thats very nice