MathMagic Screensaver

[CoePSX]

This started as a simple math play-around. Then came the idea of making a scrensaver.

Now it's really cool, with multi-colors and gradients. Fancy stuff.

Like a real screensaver, it has a configuration interface. The only thing too complicated to

do was the preview on windows video configuration window.

Anyway, the script itself is quite simple. It renders a nice looking drawing based on circle

coordenates jumping N degrees at a time, and increasing it's diameter. You can see N

on the upper left corner of the screen.

Thanks to everyone who helped me doing this.

Specially Lakes, Icekirby1, fisofo and Wus. And thanks to piccaso and Valik for helping with the redraw stuff.

EDIT: Now it has customizable gradients and the keyboard down stuff are handled 100% in AutoIt.

expandcollapse popup

#NoTrayIcon
#include <GUIConstants.au3>
#include <Misc.au3>

If $CmdLine[0] > 0 Then
    $CommandLine = StringLeft($CmdLine[1], 2)
Else
    $CommandLine = "/c"
EndIf

Global $DetailsLevel = RegRead("HKEY_CURRENT_USER\Software\MathMagicSCR", "DetailsLevel")
If $DetailsLevel = "" Then
    $DetailsLevel = 3
EndIf
Global $Delay = RegRead("HKEY_CURRENT_USER\Software\MathMagicSCR", "Delay")
If $Delay = "" Then
    $Delay = 30
EndIf
Global $WaitTime = RegRead("HKEY_CURRENT_USER\Software\MathMagicSCR", "WaitTime")
If $WaitTime = "" Then
    $WaitTime = 2
EndIf
Global $Cursor = RegRead("HKEY_CURRENT_USER\Software\MathMagicSCR", "Cursor")
If $Cursor = "" Then
    $Cursor = 1
EndIf
Global $MultiColor = RegRead("HKEY_CURRENT_USER\Software\MathMagicSCR", "MultiColor")
If $MultiColor = "" Then
    $MultiColor = 1
EndIf
Global $Gradient = RegRead("HKEY_CURRENT_USER\Software\MathMagicSCR", "Gradient")
If $Gradient = "" Then
    $Gradient = 1
EndIf
Global $GradientColor1 = RegRead("HKEY_CURRENT_USER\Software\MathMagicSCR", "Color1")
If $GradientColor1 = "" Then
    $GradientColor1 = 0x0000FF
EndIf
Global $GradientColor2 = RegRead("HKEY_CURRENT_USER\Software\MathMagicSCR", "Color2")
If $GradientColor2 = "" Then
    $GradientColor2 = 0x00FF00
EndIf
Global $RandomGradient = RegRead("HKEY_CURRENT_USER\Software\MathMagicSCR", "Random")
If $RandomGradient = "" Then
    $RandomGradient = 1
EndIf
Global Const $WM_KEYDOWN = 0x0100
Global Const $Pi = 3.1415926535897932384626433832795
Global $IncreaseSize = (360/($DetailsLevel*90)) * (@DesktopWidth/1000)
Global $MaxTimes = ($DetailsLevel * 90)
Global $Pos = MouseGetPos()
Global $State = 1
Global $Color0
Opt("ColorMode", 1)

If $CommandLine = "/c" Then
    ;Create the configuration window
    $GUI = GuiCreate("MathMagic Screensaver Options", 250, 200, -1, -1, $WS_CAPTION)
    GuiCtrlCreateLabel("Details level:", 10, 13, 100, 20)
    $DetailsSlider = GuiCtrlCreateSlider(110, 5, 120, 30)
    $DetailsLabel = GUICtrlCreateLabel($DetailsLevel, 225, 13, 20, 15, $SS_CENTER)
    GuiCtrlCreateLabel("Drawing speed:", 10, 40, 100, 25)
    $SpeedSlider = GuiCtrlCreateSlider(110, 35, 120, 30)
    $SpeedLabel = GUICtrlCreateLabel((100 - $Delay), 225, 43, 20, 15, $SS_CENTER)
    GuiCtrlCreateLabel("Time between draws:", 10, 75, 100, 25)
    $WaitSlider = GuiCtrlCreateSlider(110, 70, 120, 30)
    $WaitLabel = GUICtrlCreateLabel($WaitTime, 225, 78, 20, 15, $SS_CENTER)
    $CursorCheck = GUICtrlCreateCheckbox("Show pencil", 15, 115, 75, 15)
    $ColorCheck = GUICtrlCreateCheckbox("Multi-color", 95, 115, 70, 15)
    $GradientCheck = GUICtrlCreateCheckbox("Gradient", 170, 115, 65, 15)
    $ColorButton1 = GUICtrlCreateButton("->", 10, 135, 20, 20)
    Dim $GradientExample[121]
    For $i = 0 To 120
        $GradientExample[$i] = GUICtrlCreateLabel("", 30+$i, 135, 1, 20)
        GUICtrlSetBkColor(-1, 0xFFFFFF)
    Next
    $ColorButton2 = GUICtrlCreateButton("<-", 150, 135, 20, 20)
    $RandomCheck = GUICtrlCreateCheckbox("Random", 175, 138, 60, 15)
    $OK = GuiCtrlCreateButton("OK", 10, 160, 90, 30)
    $Cancel = GuiCtrlCreateButton("Cancel", 160, 160, 80, 30)
    $About = GuiCtrlCreateButton("About", 100, 160, 60, 30)
    GUICtrlSetData($DetailsSlider, $DetailsLevel)
    GUICtrlSetData($SpeedSlider, (100 - $Delay))
    GUICtrlSetData($WaitSlider, $WaitTime)
    GUICtrlSetLimit($DetailsSlider, 10, 1)
    GUICtrlSetLimit($SpeedSlider, 100, 1)
    GUICtrlSetLimit($WaitSlider, 10, 0)
    GUICtrlSetState($CursorCheck, $Cursor)
    GUICtrlSetState($ColorCheck, $MultiColor)
    GUICtrlSetState($GradientCheck, $Gradient)
    GUICtrlSetState($RandomCheck, $RandomGradient)
    UpdateExample()
    GuiSetState()
    
    While 1
        If GUICtrlRead($DetailsLabel) <> GUICtrlRead($DetailsSlider) Then GUICtrlSetData($DetailsLabel, GUICtrlRead($DetailsSlider))
        If GUICtrlRead($SpeedLabel) <> GUICtrlRead($SpeedSlider) Then GUICtrlSetData($SpeedLabel, GUICtrlRead($SpeedSlider))
        If GUICtrlRead($WaitLabel) <> GUICtrlRead($WaitSlider) Then GUICtrlSetData($WaitLabel, GUICtrlRead($WaitSlider))
        
        ;If Multi-Colors is selected, disables the gradient controls
        If GUICtrlRead($ColorCheck) = 1 And $State = 1 Then
            GUICtrlSetState($ColorButton1, $GUI_DISABLE)
            GUICtrlSetState($ColorButton2, $GUI_DISABLE)
            GUICtrlSetState($RandomCheck, $GUI_DISABLE)
            $State = 0
        ElseIf GUICtrlRead($ColorCheck) = 4 And $State = 0 Then
            GUICtrlSetState($ColorButton1, $GUI_ENABLE)
            GUICtrlSetState($ColorButton2, $GUI_ENABLE)
            GUICtrlSetState($RandomCheck, $GUI_ENABLE)
            $State = 1
        EndIf
        
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Cancel
                Exit
            Case $About
                MsgBox(64, "About", "MathMagic Screensaver" & @CRLF & @CRLF & "2006 - CoePSX")
            Case $OK
                RegWrite("HKEY_CURRENT_USER\Software\MathMagicSCR", "DetailsLevel", "REG_SZ", GUICtrlRead($DetailsSlider))
                RegWrite("HKEY_CURRENT_USER\Software\MathMagicSCR", "Delay", "REG_SZ", 100 - GUICtrlRead($SpeedSlider))
                RegWrite("HKEY_CURRENT_USER\Software\MathMagicSCR", "WaitTime", "REG_SZ", GUICtrlRead($WaitSlider))
                RegWrite("HKEY_CURRENT_USER\Software\MathMagicSCR", "Cursor", "REG_SZ", GUICtrlRead($CursorCheck))
                RegWrite("HKEY_CURRENT_USER\Software\MathMagicSCR", "MultiColor", "REG_SZ", GUICtrlRead($ColorCheck))
                RegWrite("HKEY_CURRENT_USER\Software\MathMagicSCR", "Gradient", "REG_SZ", GUICtrlRead($GradientCheck))
                RegWrite("HKEY_CURRENT_USER\Software\MathMagicSCR", "Color1", "REG_SZ", $GradientColor1)
                RegWrite("HKEY_CURRENT_USER\Software\MathMagicSCR", "Color2", "REG_SZ", $GradientColor2)
                RegWrite("HKEY_CURRENT_USER\Software\MathMagicSCR", "Random", "REG_SZ", GUICtrlRead($RandomCheck))
                Exit
            Case $ColorButton1
                $GradientColor1 = _ChooseColor(1, $GradientColor1)
                UpdateExample()
            Case $ColorButton2
                $GradientColor2 = _ChooseColor(1, $GradientColor2)
                UpdateExample()
        EndSwitch
    WEnd
ElseIf $CommandLine = "/s" Then
    ;Creates the screensaver fullscreen window
    $Window = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, BitOr($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
    $Label = GUICtrlCreateLabel("", 20, 20, 60, 30)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetFont($Label, 18, 400)
    $Graphic = GUICtrlCreateGraphic(0, 0, @DesktopWidth, @DesktopHeight)
    $Pointer = GUICtrlCreateLabel("", @DesktopWidth, @DesktopHeight, 6, 6)
    GUICtrlSetBkColor($Pointer, 0xFFFFFF)
    GUISetBkColor(0)
    GUISetCursor(16, 1)
    GUISetState()
    
    ;Create an empty dummy window to handle the Windows Messages
    $Dummy = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOOLWINDOW)
    GUIRegisterMsg($WM_KEYDOWN, "Quit")
    GUISetBkColor(0)
    GUISetCursor(16, 1)
    GUISetState()
    
    ;Sets the options to exit if user moves the mouse or presses a key
    Opt("GUIOnEventMode", 1)
    GUISetOnEvent($GUI_EVENT_MOUSEMOVE, "Quit")
    
    ;Opens the DLLs for the DLLCalls
    $GDI32 = DllOpen("gdi32.dll")
    $USER32 = DllOpen("user32.dll")
    $GUIHDC = DllCall ($USER32,"int","GetDC","hwnd", $Window)
    
    While 1
        ;Chooses a random iNumber and handle colors
        $PicSize = 1
        Do
            $iNumber = Random(10, 350, 1)
        Until $iNumber <> 180
        If $iNumber < 180 Then
            $iColors = Round(360/$iNumber)
        Else
            $iColors = Round(Abs(360/(360-$iNumber)))
        EndIf
        For $i = 0 To $iColors
            Assign("Color" & $i, ColorGradient(RandomColor(), RandomColor(), $MaxTimes+1))
        Next
        If $MultiColor = 4 And $RandomGradient = 4 Then
            $Color0 = ColorGradient($GradientColor1, $GradientColor2, $MaxTimes+1)
        EndIf
        
        ;Redraw the window
        DllCall($USER32, "int", "InvalidateRect", "hwnd", $Window, "int", 0, "int", 1)
        
        GUICtrlSetColor($Label, $Color0[0])
        GUICtrlSetData($Label, $iNumber & "°")
        
        ;This is the drawing part
        DllCall ($GDI32, "int", "MoveToEx", "hwnd", $GUIHDC[0], "int", @DesktopWidth/2, "int", @DesktopHeight/2, "ptr", 0)
        For $R = 1 To $MaxTimes
            $PicSize += $IncreaseSize
            $X = Sin($iNumber * ($R*($Pi/180))) * $PicSize + @DesktopWidth/2
            $Y= Cos($iNumber * ($R*($Pi/180))) * $PicSize + @DesktopHeight/2
            If $MultiColor = 1 Then
                If $Gradient = 1 Then
                    $NowColor = Eval("Color" & Mod($R, $iColors))
                    $NowColor = $NowColor[$R]
                Else
                    $NowColor = Eval("Color" & Mod($R, $iColors))
                    $NowColor = $NowColor[0]
                EndIf
            Else
                If $Gradient = 1 Then
                    $NowColor = $Color0[$R]
                Else
                    $NowColor = $Color0[0]
                EndIf
            EndIf
            GUICtrlSetColor($Label, $Color0[$R])
            If $Cursor = 1 Then GUICtrlSetPos($Pointer, $X-3, $Y-3)
            $Pen = DllCall($GDI32, "hwnd", "CreatePen", "int", "0", "int", "0", "hwnd", $NowColor)
            DllCall($GDI32, "hwnd", "SelectObject", "hwnd", $GUIHDC[0], "hwnd", $Pen[0])
            DllCall ($GDI32, "int", "LineTo", "hwnd", $GUIHDC[0], "int", $X, "int", $Y)
            Sleep($Delay)
        Next
        DllCall ($USER32,"int","ReleaseDC","int",$GUIHDC[0],"hwnd",$Window)
        Sleep($WaitTime*1000)
    WEnd
EndIf

Func Quit()
    GUIDelete($Dummy)
    GUIDelete($Window)
    DllCall($USER32, "int", "InvalidateRect", "hwnd", 0, "int", 0, "int", 1)
    Exit
EndFunc
Func UpdateExample()
    Local $ExampleColor = ColorGradient($GradientColor1, $GradientColor2, 121)
    For $i = 0 To 120
        GUICtrlSetBkColor($GradientExample[$i], $ExampleColor[$i])
    Next
EndFunc
Func ColorGradient($hInitialColor, $hFinalColor, $iReturnSize)
    $hInitialColor = Hex($hInitialColor, 6)
    $hFinalColor = Hex($hFinalColor, 6)
    
    Local $iRed1 = Dec (StringLeft($hInitialColor, 2))
    Local $iGreen1 = Dec (StringMid($hInitialColor, 3, 2))
    Local $iBlue1 = Dec (StringMid($hInitialColor, 5, 2))
    
    Local $iRed2 = Dec (StringLeft($hFinalColor, 2))
    Local $iGreen2 = Dec (StringMid($hFinalColor, 3, 2))
    Local $iBlue2 = Dec (StringMid($hFinalColor, 5, 2))
    
    Local $iPlusRed = ($iRed2-$iRed1)/($iReturnSize-1)
    Local $iPlusBlue = ($iBlue2-$iBlue1)/($iReturnSize-1)
    Local $iPlusGreen = ($iGreen2-$iGreen1)/($iReturnSize-1)
    
    Dim $iColorArray[$iReturnSize]
    For $i = 0 To $iReturnSize-1
        $iNowRed = Floor($iRed1 + ($iPlusRed*$i))
        $iNowBlue = Floor($iBlue1 + ($iPlusBlue*$i))
        $iNowGreen = Floor($iGreen1 + ($iPlusGreen*$i))
        $iColorArray[$i] = Dec (Hex($iNowRed, 2) & Hex($iNowGreen, 2) & Hex($iNowBlue, 2))
    Next
    Return ($iColorArray)
EndFunc
Func RandomColor($hMinColor = 0x000000, $hMaxColor = 0xFFFFFF)
    $hMinColor = Hex($hMinColor, 6)
    $hMaxColor = Hex($hMaxColor, 6)
    
    Local $iRed1 = Dec (StringLeft($hMinColor, 2))
    Local $iGreen1 = Dec (StringMid($hMinColor, 3, 2))
    Local $iBlue1 = Dec (StringMid($hMinColor, 5, 2))
    
    Local $iRed2 = Dec (StringLeft($hMaxColor, 2))
    Local $iGreen2 = Dec (StringMid($hMaxColor, 3, 2))
    Local $iBlue2 = Dec (StringMid($hMaxColor, 5, 2))
    
    Local $iRndRed = Random($iRed1, $iRed2, 1)
    Local $iRndGreen = Random($iGreen1, $iGreen2, 1)
    Local $iRndBlue = Random($iBlue1, $iBlue2, 1)
    
    Return Dec (Hex($iRndRed, 2) & Hex($iRndGreen, 2) & Hex($iRndBlue, 2))
EndFunc

And the attached compiled .SCR and source code.

MathMagicSCR.zip

Edited August 31, 2006 by CoePSX

[RazerM]

Glad you worked everything out. It works perfect!

[MHz]

Very nice. The world is spinning for me now .

[Jon]

Very cool

[gamepin126]

That's awesome.

[rambo3889]

**Changing screensaver now**

This script Is VERY NICE and i justed changed my old to this own

[piccaso]

this is realy awesome!

i fixed you up a little dll that solves the 'keyboard' problem by sending WM_CLOSE to your screensaver if a key is pressed.

you should put this up on some freeware site, its realy great

[CoePSX]

Thanks! The dll is really small. It's quite useful.

EDIT:

Although i just realized that

Global Const $WM_KEYDOWN = 0x0100

GUIRegisterMsg($WM_KEYDOWN, "Quit")

Would do the job XD

Thanks Piccaso, the freeware site is a great idea actually.

Edited August 15, 2006 by CoePSX

[piccaso]

as far as i know the WM_KEY* Notifications are not send in this case.

i think its because of the label's...

but i didnt try it

edit:

now i tryed it (again) and it (still) doesent work

and there will probably be an issue with the dll if you use 'RightMouseClick -> Install'

i think the dll will not be copyed with the scr... (fileinstall should solve that)

Edited August 15, 2006 by piccaso

[Richard Robertson]

Cool, now its a screen saver. You mentioned me in helping, but the only code I submitted was color cycling code. You never used that, you used random colors.

[CoePSX]

You gave the idea of color in teh first place.

@Piccaso, you were right, the Message thing only worked without anything in the GUI. But pressing a key will still make it exit now

[erifash]

You don't need the extra DLL. Just use the function _IdleTicks() from this topic and inside the loop keep on comparing it to the previous call. If the number is less than the last call you know the user moved the mouse or pressed a key. Example:

$last = 0
While 1
    $new = _IdleTicks()
    If $new < $last Then Exit    ;user did something
    $last = $new
WEnd

Edited August 15, 2006 by erifash

[piccaso]

but keep in mind that GetLastInputInfo reqires win2k

[erifash]

but keep in mind that GetLastInputInfo reqires win2k

Ah, ok. I just really enjoy autoit-only solutions though. It shows how much the language can really shine.

[nitekram]

This so cool - I cannot wait until I can understand the code

[fisofo]

Thanks for referencing me! Although I too didn't really do anything... but still

Couple things:

1. The speed level adjustment should probably be adjusted, on my pc everything is really slow, then there's like one "click" that's medium, one for fast, and one instantaneous. It'd be nice to have a bigger spread for the faster speeds

2. What about being able to specify the beginning and end colors for the gradient? Does autoit support a color-picker? And on a related note, would it be difficult to make the gradient cycle through more colors?

I'm gonna see what i can figure out for those two, but i'm a bit of a newb at autoit still. Nice work!

[CoePSX]

Thanks for referencing me! Although I too didn't really do anything... but still

Couple things:

1. The speed level adjustment should probably be adjusted, on my pc everything is really slow, then there's like one "click" that's medium, one for fast, and one instantaneous. It'd be nice to have a bigger spread for the faster speeds

2. What about being able to specify the beginning and end colors for the gradient? Does autoit support a color-picker? And on a related note, would it be difficult to make the gradient cycle through more colors?

I'm gonna see what i can figure out for those two, but i'm a bit of a newb at autoit still. Nice work!

OK... I did a few modifications in the script. Now it's even bigger... Not so simple anymore.

OK, about what you said:

1. Tried to adjust it, should be better now.

2. Done. Yes. It is possible, but it would be too much work.

Added a gradient example to the options window.

The mousemove and keyboard down stuff is solved only in AutoIt. I created a clean dummy window to handle the Windows messages.

The screen redrawing is now done using WinSetTrans.

Check the first post for the code.

[FuryCell]

This is awesome. Very cool to see a screensaver done in Au3. Nice Job

Edited August 30, 2006 by SolidSnake

[Paulie]

GJ

Wow the free time that this must have taken...

It's awesome though

[NELyon]

Wow, i like this alot. Especially the ability to change settings