Graphics 800,600,32,2

Local Alpha#,x,y
Local Neu_Rot,Neu_Gruen,Neu_Blau
Local Neu_cl,Bild1_cl,Bild2_cl ; Farb_Hex Werte

Bild1 = CreateImage(200,200)
Setbuffer Imagebuffer(Bild1)
  Color 0,255,0
  Rect 0,0,200,200
  Lockbuffer
Bild2 = CreateImage(200,200)
Setbuffer Imagebuffer(Bild2)
  Color 0,0,255
  Rect 0,0,200,200
  Lockbuffer
 
Setbuffer Backbuffer()

Repeat
cls
if keydown(203) then alpha# = alpha# - 0.03
If keydown(205) Then alpha# = alpha# + 0.03

If alpha# > 1 then alpha# = 1
If alpha# < 0 then alpha# = 0


Lockbuffer
For y = 0 to 199
  for x = 0 to 199
    Bild1_cl = ReadPixelFast(x,y,Imagebuffer(Bild1))
    Bild2_cl = ReadpixelFast(x,y,IMagebuffer(Bild2))
   
    Neu_Rot =   Int(((Bild1_cl AND $FF0000)/$10000) * Alpha + ((Bild2_cl AND $FF0000)/$10000) * (1 - Alpha))
    Neu_Gruen = Int(((Bild1_cl AND $FF00)/$100) * Alpha + ((Bild2_cl AND $FF00)/$100) * (1 - Alpha))
    Neu_Blau =  Int((Bild1_cl AND $FF) * Alpha + (Bild2_cl AND $FF) * (1 - Alpha))
   
    Neu_cl = $FF000000 + Neu_Rot*$10000 + Neu_Gruen*$100 + Neu_Blau
    WritePixelFast x,y,Neu_cl
  next
next
Unlockbuffer



Text 230,20,"alpha# = " + alpha#
Text 230,40,"Benutze die Pfeiltasten, um den alphawert zu ändern!!"
Flip
Until Keyhit(1)