Linie aus einzelnen Pixeln zeichnen

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

Von [X1, Y1] zu [X2, Y2]:

Code:

[b]Var[/b] X1, Y1, X2, Y2: Integer;


[b]Var[/b] X, Y: Integer;

[b]For[/b] I := 0 [b]to[/b] [color=red]100[/color] [b]do Begin[/b]
  X := X1 + ((X2 - X1) * I [b]div[/b] [color=red]100[/color]);
  Y := Y1 + ((Y2 - Y1) * I [b]div[/b] [color=red]100[/color]);
  Canvas.Pixels[X, Y] := clRed;
[b]End[/b];

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif