GFX LineTo Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Zeichnet eine Linie von den aktuell gesetzten Grafikcursorkoordinaten zur angegebenen Position und setzt den Grafikcursor auf diese Position. Dies ist sinnvoll, wenn man z.B. mehrere Linienteile hintereinander zeichnen will.

vgl. - MoveTo

Deklaration

PROCEDURE LineTo(X, Y : Integer);

Beispiel

PROGRAM Test;
USES GFX, Crt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  MoveTo(100, 100);             { Grafikcursor setzen }
  LineTo(200, 300);             { Linie von aktueller Cursorposition aus zeichnen }
  LineTo(200, 100);
  ReadKey;
END.

---