Some Graphical Examples using GDI+ Vol. I

[corgano]

Do you mean the distance between the squares independent of number of squares?

UEZ

yes. if i set it to have 10 squares and change the delay between squares spawing to 20 it gives me 10 squares.

set the delay to 30 and i get 6

Edited January 18, 2009 by corgano

[UEZ]

yes. if i set it to have 10 squares and change the delay between squares spawing to 20 it gives me 10 squares.

set the delay to 30 and i get 6

The dependency between $k and Step x is following:

Step x should always < than $k

If you want to create e.g. 11 squares than

• short distance: k$ = 22 and Step 2

• for medium distance: $k = 99 and Step 9

• for long distance: $k = 275 and Step 25

• for extra long distance: k$ = 1089 and Step 99

Amount of squares = $k / x where k is the length. The higher k is the longer takes the flight.

UEZ

[UEZ]

Added Mesmerizing Squares Screensaver code to my 1st post.

It is modified from Rotating Squares code packed into screensaver code.

Just compile it, rename it to .scr and copy it to %windir%\System32. Select screensaver...

UEZ

Edited January 23, 2009 by UEZ

[corgano]

Added Mesmerizing Squares Screensaver code to my 1st post.

It is modified from Rotating Squares code packed into screensaver code.

Just compile it, rename it to .scr and copy it to %windir%\System32. Select screensaver...

UEZ

very nicely done

[UEZ]

very nicely done

Thank you very much for your comment

Btw, I didn't check it on dual monitor and I found out in my office that it is NOT working properly on dual monitor.

I updated the code. See my 1st post! It is jerking on very high resolutions because whole screen is being cleaned every frame...

UEZ

Edited January 23, 2009 by UEZ

[corgano]

its very nice, but.....

why no options for that screen saver?

heres mine and has lots of options.

http://www.mediafire.com/?sharekey=bfb7d7a...04e75f6e8ebb871

i got the number of squares to work, better gui, more options.

how do I;

1: change expansion rate

2: use ini file

[UEZ]

its very nice, but.....

why no options for that screen saver?

heres mine and has lots of options.

http://www.mediafire.com/?sharekey=bfb7d7a...04e75f6e8ebb871

i got the number of squares to work, better gui, more options.

how do I;

1: change expansion rate

2: use ini file

I was too lazy for doing the config section

Btw, your ss is not working on my notebook (Vista x32), no small preview, nothing happens when I press the preview button (only black screen) and the window freezes where I selected the screensaver when I pressed ESC -> I've to kill rundll32.exe.

EDIT:

OK, I got it. it is not designed to work as a real screensaver when you rename it to .scr, copy it to system32 folder and select the screensaver from control panel.

Change the code from:

For $j = 1 To $squares step $dlyoÝ÷ Ù«ewµç»hjëh×6  For $j = $squares To 1 step -$dly

to draw from back to front

UEZ

Edited January 24, 2009 by UEZ

[corgano]

I was too lazy for doing the config section

Btw, your ss is not working on my notebook (Vista x32), no small preview, nothing happens when I press the preview button (only black screen) and the window freezes where I selected the screensaver when I pressed ESC -> I've to kill rundll32.exe.

EDIT:

OK, I got it. it is not designed to work as a real screensaver when you rename it to .scr, copy it to system32 folder and select the screensaver from control panel.

Change the code from:

For $j = 1 To $squares step $dly

to  For $j = $squares To 1 step -$dly

to draw from back to front

UEZ

i dont know why it didnt work. i updated it (three times) last night. gonna update it (again) with that code. wonder what it would look like.....

http://www.mediafire.com/?nxnmr2gmzmm

[UEZ]

Added another GDI+ example Sinus Scroller

Have a look on my 1st post! (#06 Sinus Scroller)

Do you like the examples? Which one is your favorite?

UEZ

Edited February 2, 2009 by UEZ

[UEZ]

This is only an information that I updated, modified and added some of the examples since my last post from 2009.01.30.

If you are interested in my GDI+ stuff just go to my 1st post and have a look on it (more details on change log).

If not, just ignore this post.

THANKS for all your feedback.

UEZ

[GreenCan]

@UEZ,

This is great stuff. Nice and interesting examples.

I like the sinus scroller the most.

You've got my 5 stars.

GreenCan

[youknowwho4eva]

My shinning GDI+ example is in the latest version of Limitars LMP. I owe you many thanks for i learned a lot from your examples.

[UEZ]

My shinning GDI+ example is in the latest version of Limitars LMP. I owe you many thanks for i learned a lot from your examples.

Your're welcome

UEZ

[UEZ]

My shinning GDI+ example is in the latest version of Limitars LMP. I owe you many thanks for i learned a lot from your examples.

Show me your example please!

UEZ

[UEZ]

@UEZ,

This is great stuff. Nice and interesting examples.

I like the sinus scroller the most.

You've got my 5 stars.

GreenCan

Thanks GreenCan for your feedback

UEZ

[youknowwho4eva]

I tried to fix it but it didn't want to so I got rid of it.

Edited February 24, 2009 by youknowwho4eva

[UEZ]

@youknowwho4eva: nice but the code is too long.

I tried to compact your code (not speed optimized):

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GDIplus.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <Bass.au3>
#include <BassConstants.au3>
$userdll = DllOpen("user32.dll")
$bass_dll = DllOpen("BASS.dll")
Global Const $width = 200
Global Const $height = 230
Global $title = "LMP Visualization"
$file = FileOpenDialog("Open...", "", "MP3 Files (*.mp3)")
_BASS_Init($bass_dll, 0, -1, 44100, 0, "")
$MusicHandle = _BASS_StreamCreateFile($bass_dll, False, $file, 0, 0, 0)
If @error Then
    MsgBox(0, "Error", "Could not load audio file" & @CR & "Error = " & @error)
    Exit
EndIf
Opt("GUIOnEventMode", 1)
$hwnd = GUICreate($title, $width, $height, -1, -1, Default, $WS_EX_TOOLWINDOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "close")
GUISetState()

_GDIPlus_Startup()
$graphics = _GDIPlus_GraphicsCreateFromHWND($hwnd)
$bitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $graphics)
$backbuffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
_GDIPlus_GraphicsClear($backbuffer)
$pen1 = _GDIPlus_PenCreate(0, 1)
$pen2 = _GDIPlus_PenCreate(0, 1)

$song_length = _BASS_ChannelGetLength($bass_dll, $MusicHandle, $BASS_POS_BYTE)
_BASS_ChannelPlay($bass_dll, $MusicHandle, 1)

Do
    $current = _BASS_ChannelGetPosition($bass_dll, $MusicHandle, $BASS_POS_BYTE)
    $percent = Round(($current / $song_length) * 100, 0)
    $levels = _BASS_ChannelGetLevel($bass_dll, $MusicHandle)
    $RightChLvl = Round(_LoWord($levels) / $height * 2.5, 0)
    $LeftChLvl = Round(_HiWord($levels) / $height * 2.5, 0)
    _GDIPlus_GraphicsClear($backbuffer)
    For $l = 0 To $leftChLvl
        $r = (-(Cos(1 * $l / 2^7) + 1) / 2) * 256
        $g = ((Cos(4 * $l / 2^8) + 1) / 2) * 256
        $b = (-(Cos(1 * $l / 2^8) + 1) / 2) * 256
        _GDIPlus_PenSetColor($pen1, "0xEF" & Hex($r, 2) & Hex($g, 2) & Hex($b, 2))
        _GDIPlus_GraphicsDrawLine($backbuffer, $width / 5, $height - $l, $width / 5 + 30, $height - $l, $pen1)
    Next
    For $l = 0 To $RightChLvl
        $r = (-(Cos(1 * $l / 2^7) + 1) / 2) * 256
        $g = ((Cos(4 * $l / 2^8) + 1) / 2) * 256
        $b = (-(Cos(1 * $l / 2^8) + 1) / 2) * 256
        _GDIPlus_PenSetColor($pen2, "0xEF" & Hex($r, 2) & Hex($g, 2) & Hex($b, 2))
        _GDIPlus_GraphicsDrawLine($backbuffer, 3 * $width / 5, $height - $l, 3 * $width / 5 + 30, $height - $l, $pen2)
    Next
    _GDIPlus_GraphicsDrawImageRect($graphics, $bitmap, 0, 0, $width, $height)
    Sleep(50)
Until False

Func close()
    _BASS_Free($bass_dll)
    _GDIPlus_PenDispose($pen1)
    _GDIPlus_PenDispose($pen2)
    _GDIPlus_BitmapDispose($bitmap)
    _GDIPlus_GraphicsDispose($graphics)
    _GDIPlus_GraphicsDispose($backbuffer)
    _GDIPlus_Shutdown()
    Exit
EndFunc   ;==>close

I hope it helps you

Regards,

UEZ

Edited February 23, 2009 by UEZ

[youknowwho4eva]

Sorry, I couldn't remember how to make it scrollable like that. That definatly is much smaller. You shoulda seen the way I had it before, it was over 3000 lines lol. I couldn't think of how to do it differently, the way you did it is much better. I wanna kick myself for not thinking of it. Well the cosin stuff I would have never thought of, But I could do it with less math probably. My computer is quick so it has no problem, But maybe putting some steps on the for loops would speed it up for slower systems. I was also thinking this could easily be done with an image and a black line covering up the image. But I wanted to try and learn some more of the GDI+ stuff. I plan on making more that better utilize the GDI+.

[UEZ]

Sorry, I couldn't remember how to make it scrollable like that. That definatly is much smaller. You shoulda seen the way I had it before, it was over 3000 lines lol. I couldn't think of how to do it differently, the way you did it is much better. I wanna kick myself for not thinking of it. Well the cosin stuff I would have never thought of, But I could do it with less math probably. My computer is quick so it has no problem, But maybe putting some steps on the for loops would speed it up for slower systems. I was also thinking this could easily be done with an image and a black line covering up the image. But I wanted to try and learn some more of the GDI+ stuff. I plan on making more that better utilize the GDI+.

We are here to exchange knowledge and to learn more techniques , so don't frustrate...

Nobody is perfect.

Regards,

UEZ

[UEZ]

I got an idea...

Here a small modifcation:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GDIplus.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <Bass.au3>
#include <BassConstants.au3>
$userdll = DllOpen("user32.dll")
$bass_dll = DllOpen("BASS.dll")
Global Const $width = 200
Global Const $height = 230
Global $title = "LMP Visualization"
$file = FileOpenDialog("Open...", "", "MP3 Files (*.mp3)")
_BASS_Init($bass_dll, 0, -1, 44100, 0, "")
$MusicHandle = _BASS_StreamCreateFile($bass_dll, False, $file, 0, 0, 0)
If @error Then
    MsgBox(0, "Error", "Could not load audio file" & @CR & "Error = " & @error)
    Exit
EndIf
Opt("GUIOnEventMode", 1)
$hwnd = GUICreate($title, $width, $height, -1, -1, Default, $WS_EX_TOOLWINDOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "close")
GUISetState()

_GDIPlus_Startup()
$graphics = _GDIPlus_GraphicsCreateFromHWND($hwnd)
$bitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $graphics)
$backbuffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
_GDIPlus_GraphicsClear($backbuffer)
$pen1 = _GDIPlus_PenCreate(0, 1)
$pen_size = 4
$pen2 = _GDIPlus_PenCreate(0, $pen_size)

$song_length = _BASS_ChannelGetLength($bass_dll, $MusicHandle, $BASS_POS_BYTE)
_BASS_ChannelPlay($bass_dll, $MusicHandle, 1)
$current = _BASS_ChannelGetPosition($bass_dll, $MusicHandle, $BASS_POS_BYTE)
$percent = Round(($current / $song_length) * 100, 0)

$max_l = 0
$max_r = 0
$fall_speed = 5
$fire_up = 10
Do
    $levels = _BASS_ChannelGetLevel($bass_dll, $MusicHandle)
    $LeftChLvl = Round(_HiWord($levels) / $height * 2.0, 0)
    $RightChLvl = Round(_LoWord($levels) / $height * 2.0, 0)
    If $max_l <= $LeftChLvl Then
        $max_l = $LeftChLvl + $fire_up
    Else
        If $max_l > $LeftChLvl + $pen_size + 1 Then $max_l -= $fall_speed
    EndIf
    If $max_r <= $RightChLvl Then
        $max_r = $RightChLvl + $fire_up
    Else
        If $max_r > $RightChLvl + $pen_size + 1 Then $max_r -= $fall_speed
    EndIf
    _GDIPlus_GraphicsClear($backbuffer, 0x5F000000)
    _GDIPlus_PenSetColor($pen2, 0xEF7F7F7F)
    For $l = 0 To $leftChLvl
        $r = (-(Cos(1 * $l / 2^7) + 1) / 2) * 256
        $g = ((Cos(4 * $l / 2^8) + 1) / 2) * 256
        $b = (-(Cos(1 * $l / 2^8) + 1) / 2) * 256
        _GDIPlus_PenSetColor($pen1, "0xEF" & Hex($r, 2) & Hex($g, 2) & Hex($b, 2))
        _GDIPlus_GraphicsDrawLine($backbuffer, $width / 5, $height - $l, $width / 5 + 30, $height - $l, $pen1)
    Next
    For $l = 0 To $RightChLvl
        $r = (-(Cos(1 * $l / 2^7) + 1) / 2) * 256
        $g = ((Cos(4 * $l / 2^8) + 1) / 2) * 256
        $b = (-(Cos(1 * $l / 2^8) + 1) / 2) * 256
        _GDIPlus_PenSetColor($pen1, "0xEF" & Hex($r, 2) & Hex($g, 2) & Hex($b, 2))
        _GDIPlus_GraphicsDrawLine($backbuffer, 3 * $width / 5, $height - $l, 3 * $width / 5 + 30, $height - $l, $pen1)
    Next
    _GDIPlus_GraphicsDrawLine($backbuffer, $width / 5, $height - $max_l, $width / 5 + 30, $height - $max_l, $pen2)
    _GDIPlus_GraphicsDrawLine($backbuffer, 3 * $width / 5, $height - $max_r, 3 * $width / 5 + 30, $height - $max_r, $pen2)
    _GDIPlus_GraphicsDrawImageRect($graphics, $bitmap, 0, 0, $width, $height)
    Sleep(15)
Until False

Func close()
    _BASS_Free($bass_dll)
    _GDIPlus_PenDispose($pen1)
    _GDIPlus_PenDispose($pen2)
    _GDIPlus_BitmapDispose($bitmap)
    _GDIPlus_GraphicsDispose($graphics)
    _GDIPlus_GraphicsDispose($backbuffer)
    _GDIPlus_Shutdown()
    Exit
EndFunc   ;==>close

UEZ

Edited February 24, 2009 by UEZ