GDI_Star

[smashly]

Hi, boredom made me do it

expandcollapse popup

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

Global $GuiSize = 500, $LastGrid

$hWnd = GUICreate("GDI Star", $GuiSize, $GuiSize)
GUISetBkColor(0x0)
GUISetState()

While (Not _IsPressed("1B"))
    $sColor = Random(0xff000000, 0xffffff00, 1)
    $sSpeed = Random(1, 5, 1)
    $WGCS = WinGetClientSize($hWnd)
    Do
       Global $sGrid = Random(3, Round($WGCS[1] / 4), 1)
    Until (Not Mod($WGCS[1] / 2, $sGrid) And $sGrid <> $LastGrid)
    $LastGrid = $sGrid
    $iDirection = Random(1, 2, 1)
    GDIPlus_Star($hWnd, $sGrid, $sSpeed, $sColor, $iDirection)
    Sleep(50)
Wend

Func GDIPlus_Star($hWnd, $sGrid = 10, $sSpeed = 0, $sColor = 0xFF00FF00, $iDirection = 1)
    Local $WGCS = WinGetClientSize($hWnd)
    Local $hGraphic, $hPen, $sy = 0, $ex = ($WGCS[1] / 2), $ds = 1
    _GDIPlus_Startup ()
    $hPen = _GDIPlus_PenCreate($sColor)
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
    While ($ds <> 0) 
        If _IsPressed("1B") Or GUIGetMsg() = -3 Then Exit
        Sleep($sSpeed)
        _GDIPlus_GraphicsDrawLine ($hGraphic, $WGCS[1] / 2, $sy, $ex, $WGCS[1] / 2, $hPen)

        If $ds < 3 Then $sy += $sGrid 
        If $ds > 2 Then $sy -= $sGrid   
        Switch $ds
            Case 1
                If $sy = ($WGCS[1] / 2) Then $ds = 2
                If $iDirection = 1 Then $ex += $sGrid
                If $iDirection = 2 Then $ex -= $sGrid
            Case 2
                If $sy = $WGCS[1] Then $ds = 3
                If $iDirection = 2 Then $ex += $sGrid
                If $iDirection = 1 Then $ex -= $sGrid               
            Case 3
                If $sy = ($WGCS[1] / 2) Then $ds = 4
                If $iDirection = 2 Then $ex += $sGrid
                If $iDirection = 1 Then $ex -= $sGrid
            Case 4
                If $sy = 0 Then $ds = 0
                If $iDirection = 1 Then $ex += $sGrid
                If $iDirection = 2 Then $ex -= $sGrid
        EndSwitch
    Wend   
    _GDIPlus_PenDispose ($hPen)
    _GDIPlus_GraphicsDispose ($hGraphic)
    _GDIPlus_Shutdown ()
EndFunc

Cheers

[rasim]

I shocked! Excellent! Very nice! Thank you for this super example, I did not know this

Edited February 26, 2008 by rasim

[Xenobiologist]

Hi,

yeah looks good. Took a while to get the maths working, I guess.

Mega

[monoceres]

Really nice work!

Going to use this as my screensaver

[WolfWorld]

It all about math

Nice job should be put as a example in the help file

[lsakizada]

Like the all other responses, IT IS COOL!!!

[GtaSpider]

Wonderfull star, wooooow =)

nice work, respekt!

Mfg Spider

[weaponx]

That was actually pretty cool. Not what I was expecting.

[Toady]

Thats pretty damn cool, good job!

[XxXFaNtA]

very nice!

more of these please

[Valuater]

Very cool!

8)

[Tomb]

very impressive. its soo pretty i can't take my eyes away from it. i have to cut my post short, i need to go look at it some more

[Achilles]

Nice work! I'll have to look at the math when I have some free time..

[Malkey]

Believe it or not , I did get tired of watching it.

So I grabbed another window on my desktop and continued to drag the window up and down in front of the display. It's quite mesmerizing.

[jpam]

brings me memory's above from the early computer times !

very well done !!

[BrettF]

Sweet!

[ptrex]

@smashly

Fine piece of art !!

Regards

ptrex