Code too slow, any help apreciated

[Janos Siklosi]

Hi,

this code takes about 2-2.5sec to execute. Any ideas how to speed it up?

Opt("PixelCoordMode", 0)
$begin = TimerInit()
$winsize = WinGetClientSize("[active]")
for $i = 0 to 63
$line = Mod($i,8)+1
$col = Ceiling(($i +1)/8)
$rgbleds[$i+1] =  StringRight(hex(PixelGetColor($line * int(($winsize[0]/2)/8),$col * ($winsize[1]/8))),6)
next
for $i = 0 to 63
$line = Mod($i,8)+1
$col = Ceiling(($i +1)/8)
$rgbleds[$i+65] = stringright(hex(PixelGetColor($line * int(($winsize[0]/2)/8) + int(($winsize[0]/2)), $col * ($winsize[1]/8))),6)
next
$dif = TimerDiff($begin)
ConsoleWrite($dif & @CR)

I made this http://www.youtube.com/watch?v=gtq_o76CT8A and I was planing to use this code to "transfer" winamp visualization to this board... It's actualy working but it's too slow... formating serial frames and sending takes about 8ms but pixelgetcolor takes 2.5sec

[JohnOne]

I can never work out that timerdiff, I think is telling me it takes 36+ milliseconds.

36.2149379320556

I have a lousey old AMD 64 single core

EDIT:

I just made a Array of 200 elements to get it going

Edited December 18, 2010 by JohnOne

[BrewManNH]

4.6msecs for me here on a very old laptop. The result from the TimerDiff is in milliseconds, not seconds. Perhaps you're misinterpreting the results?

[KaFu]

Let me guess, Vista or Win7 with DWM enabled?

[Janos Siklosi]

Yup Windows 7 and DWM... now it's around 4msec.... thanks a lot guys!!!

[Janos Siklosi]

here is result... Thank's again for tip... cheers

http://www.youtube.com/watch?v=n89OHC-rLeg