For t=0 To 255
   l=t/100.0*light#
   SetGamma t,t,t,l,l,l
Next
UpdateGamma

; Werte: Blender Grafik,xpos,ypos,ein/ausblenden,zeit in Millisecs

b1=LoadImage("gfx/1.bmp")
b2=LoadImage("gfx/2.bmp")
b3=LoadImage("gfx/3.bmp")

Blender b1,170,190,0,3000
Blender b1,170,190,1,2000
Blender b2,170,190,0,3000
Blender b2,170,190,1,2000
Blender b3,170,190,0,3000
Delay 1200
Blender b3,170,190,1,2500
FreeImage b1:FreeImage b2:FreeImage b3

; Die eigentliche Function

Function Blender(Image, X, Y, Mode,Time)
   Source=ImageBuffer(Image)
   Dest  =FrontBuffer()
   MaxX  =ImageWidth(Image)-1
   MaxY  =ImageHeight(Image)-1
   Start =MilliSecs()
   Color 0,0,0
   If Mode=0 Then Rect X,Y,MaxX+1,MaxY+1
   If Mode=1 Then DrawBlock Image,X,Y
   LockBuffer Source
   LockBuffer Dest
   While MilliSecs()-Start<Time
      Count=(Count+1) Mod 4
      If Count=0 Then MinX=0: MinY=0
      If Count=1 Then MinX=1: MinY=1
      If Count=2 Then MinX=1: MinY=0
      If Count=3 Then MinX=0: MinY=1
      If Mode=0 Then Value=MilliSecs()-Start
      If Mode=1 Then Value=Time-MilliSecs()+Start
      For ii=MinY To MaxY Step 2
         For i=MinX To MaxX Step 2
            rgb=ReadPixelFast(i,ii,Source)
            rgb=(rgb And 16711680)/65536*Value/Time*65536+(rgb And 65280)/256*Value/Time*256+(rgb And 255)*Value/Time
            WritePixelFast X+i,Y+ii,rgb,Dest
         Next
      Next
   Wend
   UnlockBuffer Source
   UnlockBuffer Dest
   If Mode=0 Then DrawBlock Image,X,Y
   If Mode=1 Then Rect X,Y,MaxX+1,MaxY+1
End Function