GFX Line Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Zeichnet eine Linie vom Punkt X1,Y1 zum Punkt X2,Y2 in der aktuell gesetzten Zeichenfarbe.

vgl. - SetColor - GetColor

Deklaration

PROCEDURE Line(X1, Y1, X2, Y2 : Integer);

Beispiel

PROGRAM Test;
USES GFX, Crt;
VAR Col : LongInt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  SetColor($12FCD3);            { setze Zeichenfarbe auf mintgrün }
  Line(100, 100, GetMaxX-100, GetMaxY-100);
  SetColor($C0C0C0);            { setze Zeichenfarbe auf ein helles Grau }
  Line(200, GetMaxY-200, GetMaxX-200, 200);   
  ReadKey;
END.

---