;Ein Bild langsam zu einem anderen übergehen lassen

Graphics 400,300,32


;Die informationen von Bild 1
Dim rot1#(400,300)
Dim gruen1#(400,300)
Dim blau1#(400,300)
;Die Informatieonen von Bild 2
Dim rot2(400,300)
Dim gruen2(400,300)
Dim blau2(400,300)
;Differenzen der Pixelfarben
Dim rotdif#(400,300)
Dim gruendif#(400,300)
Dim blaudif#(400,300)



bild1 = CreateImage(400,300)
bild2 = CreateImage(400,300)




;Bild 1 einlesen
SetBuffer ImageBuffer(bild1)
Color 255,0,0   
Rect 0,0,300,400,1               ;Bild 1 ist ein rotes Rechteck

LockBuffer ImageBuffer(bild1)
For i = 0 To 400
   For j = 0 To 300
   
       rgb = ReadPixel(i,j)
      rot1(i,j)   =(rgb And $FF0000)/$10000   ;Rot einlesen
      gruen1(i,j) =(rgb And $FF00)/$100       ;Grün einlesen
      blau1(i,j)  =rgb And $FF                ;Blau einlesen
      

   Next
Next
UnlockBuffer ImageBuffer(bild1)


;Bild 2 einlesen
SetBuffer ImageBuffer(bild2)
Color 0,0,255
Rect 0,0,400,300,1                 ;Bild 2 ist ein Blaues rechteck

LockBuffer ImageBuffer(bild2)
For i = 0 To 400
   For j = 0 To 300
   
       rgb = ReadPixel(i,j)
      rot2(i,j)   =(rgb And $FF0000)/$10000  ;Rot einlesen
      gruen2(i,j) =(rgb And $FF00)/$100      ;Grün einlesen
      blau2(i,j)  =rgb And $FF               ;Blau einlesen
      

   Next
Next
UnlockBuffer ImageBuffer(bild2)




;Die differenzen berechnen
For i = 0 To 400
   For j = 0 To 300
   
      rotdif(i,j) =Float rot1(i,j) -rot2(i,j)
      gruendif(i,j) =Float gruen1(i,j) -gruen2(i,j)
      blaudif(i,j) =Float blau1(i,j) -blau2(i,j)
   Next
Next



SetBuffer BackBuffer()

;Hauptschleife
Repeat
Cls
;Damit die Animationen nach 10 Läufen nicht noch weitergeht :
zaehler = zaehler + 1 : If zaehler = 10 Then SetBuffer FrontBuffer():Cls:Text 0,0,"Animation abgespielt":WaitKey:End
 
LockBuffer BackBuffer()

For i = 0 To 400
   For j = 0 To 300
   
   WritePixel i,j,blau1(1,1) Or (gruen1(1,1) Shl 8) Or (rot1(1,1) Shl 16)   ;Das Bild einzeichnen
   ;Jedes Pixel um Differenz/10 erhöhen
   ;nach 10 durchläufen sollte Bild 2 vollständig sein
    rot1(i,j)    =Float rot1(i,j)+rotdif(i,j)/10                             
    gruen1(i,j) =Float gruen1(i,j) + gruendif(i,j)/10
    blau1(i,j)  =Float  blau1(i,j)+blaudif(i,j)/10
   
   
   Next
Next
UnlockBuffer BackBuffer()

Delay 300

Flip
Until KeyHit(1)

Neu_Rot =   Int(Bild1_Rot * Alpha + Bild2_Rot * (1 - Alpha))
Neu_Gruen = Int(Bild1_Gruen * Alpha + Bild2_Gruen * (1 - Alpha))
Neu_Blau =  Int(Bild1_Blau * Alpha + Bild2_Blau * (1 - Alpha))

for i = 0 to bildbreite
for j = 0 to bildhoehe

rgb = readpixelfast
a=(rgb AND $FF000000)/$1000000
r=(rgb AND $FF0000)/$10000
g=(rgb AND $FF00)/$100
b=rgb AND $FF

a=a + 1    ;alphawert erhoehen, bei bild 2 verringern

rgb=a*$1000000 + r*$10000 + g*$100 + b

writepixelfast i,j,rgb

next
next

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)
 

Graphics 800,600

bild = CreateImage (400,300)
SetBuffer ImageBuffer(bild)

LockBuffer
For i = 0 To 400
   For j = 0 To 300
   
   WritePixel i,j,$FFFF0000  ;Das ganze Bild wird mit Roten pixeln gezeichnet und dem Alphawert 255
   
   Next
Next
UnlockBuffer



   
   
 




 


SetBuffer FrontBuffer()

DrawImage bild,0,0
;Das erste PIxel lesen
rgb = ReadPixel (1,1)

alpha=(rgb And $FF000000)/$1000000     
rot=(rgb And $FF0000)/$10000
gruen=(rgb And $FF00)/$100
blau=rgb And $FF

Text 410,100,alpha    ;sollte 255 sein

WaitKey

alpha=(rgb And $FF0000)/$10000