Graphics 800,600,32,2
SetBuffer BackBuffer()

mask=1

;Maske1 initialisieren
 Type pixel
    Field pixx,pixy,pixz
 End Type
 helldunkel1=LoadImage("breit.bmp")
 DrawImage helldunkel1,0,0
 Flip
  For i=0 To 799
    p.pixel=New pixel
    LockBuffer BackBuffer()
    rgb=ReadPixelFast(xp,yp)
    p\pixx=(rgb And $FF0000)/$10000
    p\pixy=(rgb And $FF00)/$100
    p\pixz=rgb And $FF
    UnlockBuffer BackBuffer()
    xp=xp+1
    If xp=799 Then yp=yp+1:xp=0
   If yp=599 Then
   EndIf
  Next
 FreeImage helldunkel1
 Cls
;Maske2 initialisieren
 Type pixel2
    Field pixx2,pixy2,pixz2
 End Type
 helldunkel2=LoadImage("hoch.bmp")
 DrawImage helldunkel2,0,0
 Flip
  For o=0 To 449
    q.pixel2=New pixel2
    LockBuffer BackBuffer()
    rgb2=ReadPixelFast(xp2,yp2)
    q\pixx2=(rgb2 And $FF0000)/$10000
    q\pixy2=(rgb2 And $FF00)/$100
    q\pixz2=rgb2 And $FF
    UnlockBuffer BackBuffer()
    xp2=xp2+1
    If xp2=799 Then yp2=yp2+1:xp2=0
   If yp2=599 Then
   EndIf
  Next
 FreeImage helldunkel2
 Cls
;Bilder laden+initialisieren
 image=LoadImage("1.jpg")
 Type pixel3
    Field pixx3,pixy3,pixz3
 End Type
    If ImageWidth(image)=800 Then
       DrawImage image,0,0
       Flip
       For u=0 To 799
       w.pixel3=New pixel3
       LockBuffer BackBuffer()
       rgb3=ReadPixelFast(xp,yp)
       w\pixx3=(rgb3 And $FF0000)/$10000
       w\pixy3=(rgb3 And $FF00)/$100
       w\pixz3=rgb3 And $FF
       UnlockBuffer BackBuffer()
       xp3=xp3+1
       If xp3=799 Then yp3=yp3+1:xp3=0
      If yp3=599 Then
      EndIf
        Next
       FreeImage image
       Cls
       mask=1
   Else
       DrawImage image,0,0
       Flip
        For u=0 To 449
       w.pixel3=New pixel3
       LockBuffer BackBuffer()
       rgb3=ReadPixelFast(xp3,yp3)
       w\pixx3=(rgb3 And $FF0000)/$10000
       w\pixy3=(rgb3 And $FF00)/$100
       w\pixz3=rgb3 And $FF
       UnlockBuffer BackBuffer()
       xp3=xp3+1
       If xp3=799 Then yp3=yp3+1:xp3=0
      If yp3=599 Then
      EndIf
        Next
       FreeImage image
       Cls
       mask=2
   EndIf
;"Ueberblendungseffekt" berechnen
 Type pixel4
    Field pixx4,pixy4,pixz4
 End Type
   p.pixel  = First pixel
   q.pixel2 = First pixel2
   w.pixel3 = First pixel3
   v.pixel4 = First pixel4
   
   
   If mask=1
      For h=0 To 479999
         v.pixel4=New pixel4
         v\pixx4=w\pixx3+p\pixx:If v\pixx4>255 Then v\pixx4=255
         v\pixy4=w\pixy3+p\pixy:If v\pixy4>255 Then v\pixy4=255
         v\pixz4=w\pixz3+p\pixz:If v\pixz4>255 Then v\pixz4=255
         w=After w
         p=After p
       Next
   EndIf


While Not KeyHit(1)










Wend
End