Art Motion Tracking mit Scanlines

[grizzly]

Ups, den hab' ich nicht mehr. Ausprobiert und gar nicht erst gespeichert.
Aber es war ja eh Deine Routine mit den ScanLines!
Da hab ich gerade mal ein "procedure Test(BMPIn, BMPOut: TBitmap);" davorgeschrieben. (Okay, und das "IN [250..255]" durch ein ">= 250" ersetzt, keine Ahnung warum)
Dann hatte ich zwei Images auf meiner Form, deren Bitmaps ich explizit auf 32bit, 320*240 Pixel gesetzt habe.
Und in einer Schleife (t := 0 TO 300) hab ich Image1 gelöscht und ein Pixel drauf gezeichnet, irgendwie so:
Image1.Picture.Bitmap.Canvas.Pixels[160+round(80*sin(t/50)),120+round(80*cos(t/40)] := clBlue;
Anschließend rief ich Deine Routine auf ("Test(Image1.picture.bitmap,Image2.picture.Bitmap )") und habe wie erwartet die ganze Spur in Image2 gesehen.

Als ich den Code durchgelesen hatte, dachte ich mir eh, daß der eigentlich funktionieren sollte. Habs ja nur ausprobiert um zu sehen, ob ich nicht doch was übersehen habe. Aber wenn die Rahmenbedingungen stimmen (gleich große Bilder, Bittiefe) funktioniert das Teil wie erwartet.

Meiner Meinung nach ist da irgenwas anderes verquer....

Gruß
Michael