Graphics 800, 600

hin_bild=LoadImage ("hin.bmp") ;Hintergrund laden
bild_bild = LoadImage ("janware.bmp") ;Bild laden

Dim bild (ImageWidth (bild_bild), ImageHeight (bild_bild)) ;Arrays für Funktion deklarieren
Dim hin (ImageWidth (bild_bild), ImageHeight (bild_bild))

Repeat
zeit1 = MilliSecs () ;Zeitwert für FPS

DrawImage hin_bild, 0, 0 ;Hintergrund zeichnen
DrawImageTransparent (bild_bild, MouseX(), MouseY(), 0, 0, 0, 80) ;Transparentese Bild zeichnen

zeit2 = MilliSecs () ;FPS berechnen
zeit = zeit2 - zeit1
fps = 1000 / zeit
Text 0, 0, "FPS: "+ fps

Flip
Until KeyHit(1)=1





Function DrawImageTransparent (bild_bild, x, y, mask_r, mask_g, mask_b, alpha)

LockBuffer BackBuffer() ;Die Pixel vom aktuellen Hintergrund auslesen in ein Array
For xx = 0 To  ImageWidth (bild_bild)
For yy = 0 To ImageHeight (bild_bild)
hin (xx,yy) =ReadPixelFast(xx + x,yy + y,FrontBuffer())
Next
Next
UnlockBuffer BackBuffer()

LockBuffer ImageBuffer (bild_bild) ;Die Pixel vom Bild auslesen in ein Array
For xx = 0 To  ImageWidth (bild_bild)
For yy = 0 To ImageHeight (bild_bild)
bild (xx,yy) =ReadPixelFast(xx,yy,ImageBuffer (bild_bild))
Next
Next
UnlockBuffer ImageBuffer (bild_bild)

For xx = 0 To  ImageWidth (bild_bild)
For yy = 0 To ImageHeight (bild_bild)

hin_r=(hin (xx,yy) And $FF0000)/$10000 ;Farbcode ind RGB umwandeln
hin_g=(hin (xx,yy) And $FF00)/$100
hin_b=hin (xx,yy) And $FF

bild_r=(bild (xx,yy) And $FF0000)/$10000
bild_g=(bild (xx,yy) And $FF00)/$100
bild_b=bild (xx,yy) And $FF

If bild_r = mask_r And bild_g = mask_g And bild_b = mask_b Then ;Mask Farbe auslassen
Else
neu_r = (hin_r + bild_r) / 2 ;Neue RGB Werte berechnen
neu_g = (hin_g + bild_r) / 2
neu_b = (hin_b + bild_r) / 2

rgb=a*$1000000 + neu_r*$10000 + neu_g*$100 + neu_b ;Neue RGB Werte in Farbcode umwandeln
rgb2=rgb And $FFFFFF

WritePixelFast x + xx, y + yy, rgb2, BackBuffer() ;Pixel in den BackBuffer schreiben

EndIf

Next
Next

End Function

Graphics 800,600
SetBuffer BackBuffer()

Dim alphaimage(GraphicsWidth (),GraphicsHeight ()) ;Array wird in der Funktion benötigt!

bild=LoadImage("janware.bmp")
bg=LoadImage("hin.bmp")


While Not KeyDown(1)
DrawBlock(bg,0,0)
drawalphaimage(bild,MouseX(),MouseY(),50,0,0,0)
Flip
Cls
Wend



Function drawalphaimage(pic,x,y,a,mask_r,mask_g,mask_b) ;a=0(transp)-100(deckend),mask_x=Farbmaske
If a <= 0 Then Return

SetBuffer ImageBuffer(pic) ;einlesen des Bildes
LockBuffer ImageBuffer(pic)
For scanx = 0 To ImageWidth(pic)-1
For scany= 0 To ImageHeight(pic)-1
alphaimage(scanx,scany)=ReadPixelFast(scanx,scany)
Next
Next
UnlockBuffer ImageBuffer(pic)

SetBuffer BackBuffer() ; auslesen des Hintergrundes und
LockBuffer BackBuffer() ; mischen und malen der neuen Pixel
For scanx = 0 To ImageWidth(pic)-1
For scany= 0 To ImageHeight(pic)-1
rgb2=ReadPixelFast(scanx+x,scany+y)
rbg=(rgb2 And $FF0000)/$10000
gbg=(rgb2 And $FF00)/$100
bbg=rgb2 And $FF
rpic=(alphaimage(scanx,scany) And $FF0000)/$10000
gpic=(alphaimage(scanx,scany) And $FF00)/$100
bpic=alphaimage(scanx,scany) And $FF
If Not rpic = mask_r And gpic = mask_g And bpic = mask_b
rneu=rbg*(1.0-(a/100.0))+rpic*a/100.0
gneu=gbg*(1.0-(a/100.0))+gpic*a/100.0
bneu=bbg*(1.0-(a/100.0))+bpic*a/100.0
rgbneu=255*$1000000 + rneu*$10000 + gneu*$100 + bneu
WritePixelFast(scanx+x,scany+y,rgbneu)
EndIf
Next
Next
UnlockBuffer BackBuffer()
End Function