Art Motion Tracking mit Scanlines

[NeoXan]

so

Delphi-Quellcode:

for y:=0 to bmpIN.Height do
  for x:=0 to bmpIN.Width do
    for i:=250 to 255 do
      if bmpIN.Canvas.Pixels[x,y] = RGB(0,0,i)
     then
      begin
        if( FirstRun ) then
        begin
          bmpOUT.Canvas.MoveTo(x,y);
          FirstRun := false;
        end;
        bmpOUT.Canvas.LineTo(x,y);
       break;
      end;