Hi,

This is what you want.

`--' By Cosmo Alias Peter Wirbelauer. `

screen(640,480,0,"ImagePixel")

setframetimer(24)

backcolor(75,100,200)

function RGB(r,g,b)

g = g * 256

b = b * 65536

return r+g+b

end

local wAmp=6;wFreq=0.3;x=0;m=0;dx=0;cx=0;col=0;r=0;g=0;b=0;kn=0

kn= loadimage("egsl-icon.png")

repeat

key=getkey()

cls()

x = x - .5

m = x

for cx=0, imageheight(kn)-1 do

m = m + wFreq

for dx=0, imagewidth(kn)-1 do

r= imagered (dx,cx,kn)

g= imagegreen(dx,cx,kn)

b= imageblue (dx,cx,kn)

color(r,g,b)

if RGB(r,g,b) > 0 then

fillcircle(150+dx*2+sin(m)*wAmp+1,100+cx*2,2)

end

end

end

color(255,255,255)

sync()

until key == 27

CloseWindow()