;Ein Bild langsam zu einem anderen übergehen lassen

Graphics 800,600 ,32


bild1 = LoadImage("HM1.jpg")
bild2 = LoadImage("HM2.jpg")

Global bildbreite = ImageWidth(bild1)
Global bildhoehe = ImageHeight(bild2)
Global abstufungen = Input("Stufen	->")
Global spanne=Input("Zeitspanne	->")
Global frequenz=abstufungen/spanne
Global timer=CreateTimer(frequenz)

Dim bilder(abstufungen)

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








;Bild 1 einlesen
SetBuffer ImageBuffer(bild1)
LockBuffer ImageBuffer(bild1)
For i = 0 To bildbreite-1
	For j = 0 To bildhoehe-1
		rgb = ReadPixelFast(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)
LockBuffer ImageBuffer(bild2)
For i = 0 To bildbreite-1
	For j = 0 To bildhoehe-1
		rgb = ReadPixelFast(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)

For i = 0 To bildbreite-1
	For j = 0 To bildhoehe-1
		rotdif(i,j) =Float (rot1(i,j)-rot2(i,j))/abstufungen*(-1)
		gruendif(i,j) =Float (gruen1(i,j) -gruen2(i,j))/abstufungen*(-1)
		blaudif(i,j) =Float   (blau1(i,j) - blau2(i,j))/abstufungen*(-1)
	Next
Next 

For bi=1 To abstufungen
	bilder(bi)=CreateImage(bildbreite,bildhoehe)
	SetBuffer ImageBuffer(bilder(bi))
	LockBuffer
	For i = 0 To bildbreite-1
		For j = 0 To bildhoehe-1
			rot1(i,j)=rot1(i,j)+ rotdif(i,j)
			gruen1(i,j)=gruen1(i,j) + gruendif(i,j)
			blau1(i,j)=blau1(i,j) +blaudif(i,j)
			WritePixelFast i,j, rgb(rot1(i,j),gruen1(i,j),blau1(i,j))
		Next
	Next 
	UnlockBuffer
	DebugLog bi+" Bild erstellt."
Next



bi=0
SetBuffer BackBuffer()
Repeat 
	bi=bi+1
	If bi>abstufungen
		Color 255,255,255
		SetBuffer FrontBuffer()
		Text bildbreite+10,10,"Animation beendet"
		End
	EndIf

	DrawImage bilder(bi),0,0
	Flip 
	WaitTimer( timer)
Until KeyHit(1)

Function rgb(rot,gruen,blau)
	Return blau Or(gruen Shl 8) Or ( rot Shl 16)
End Function 

Dim rot1#(bildbreite-1,bildhoehe-1) 
Dim gruen1#(bildbreite-1,bildhoehe-1)
...