Graphics 800,600,32,1
SetBuffer(BackBuffer())
bg=LoadImage(\"C:/windows/web/wallpaper/karibiktraum.jpg\")
logo=LoadImage(\"gfx/xukiniwarelogo.png\")
DrawBlock bg,0,0
WaitKey
oldtime=MilliSecs()
drawimagetransparent(logo,272,172)
Print MilliSecs()-oldtime
Flip
WaitKey
End

Function drawimagetransparent(image,x,y)
imgbuffer=ImageBuffer(image)
bgbuffer=BackBuffer()
b=ImageWidth(image)
h=ImageHeight(image)
LockBuffer(imgbuffer)
LockBuffer(bgbuffer)
For nx=0 To b
For ny=0 To h
imagergb=ReadPixelFast(nx,ny,imgbuffer)
bgrgb=ReadPixelFast(nx+x,ny+y,bgbuffer)
bildrot=(imagergb And $FF0000)/$10000
bildgruen=(imagergb And $FF00)/$100
bildblau=imagergb And $FF
bgrot=(bgrgb And $FF0000)/$10000
bggruen=(bgrgb And $FF00)/$100
bgblau=bgrgb And $FF
WritePixelFast(nx+x,ny+y,$FF000000+((bildrot+bgrot)/2)*$10000+((bildgruen+bggruen)/2)*$100+(bildblau+bgblau)/2,bgbuffer)
Next
Next
UnlockBuffer(imgbuffer)
UnlockBuffer(bgbuffer)
End Function

For nx=0 To b-1
For ny=0 To h-1