Pixel zeilenweise durchnummerieren ohne scanline

[Medium]

Du hast sie doch schon soeben durchnummeriert, sogar ganz ohne Delphi!

[Bummi]

oder geht es um die hin und her Rechnerei?

Delphi-Quellcode:

procedure TForm1.SetPoint(index:Integer);
begin
   Image1.Canvas.Pixels[index div 100,index mod 100] := clBlack;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
begin
  for I := 0 to 99 do  SetPoint(100 * i + i);
  for I := 0 to 99 do  SetPoint(100 * i + 99 - i);
end;