LineTo

Nakreslí čáru z aktuální pozice do bodu (X, Y).

Deklarace

procedure LineTo(X, Y: Integer);

Režim

Reálný, Chráněný

Poznámky

Nakreslí čáru ve stylu a tloušťce, definovaných procedurou SetLineStyle, a použije barvu, nastavenou procedurou SetColor. Procedurou SetWriteMode můžete určit, zda se čára na obrazovku zkopíruje nebo nakreslí operací XOR.

Pamatujte, že

MoveTo(100, 100);
LineTo(200, 200);

je ekvivalentní s

Line(100, 100, 200, 200);

První metoda je pomalejší a potřebuje více kódu. LineTo používejte jen tehdy, je-li ukazatel pozice (CP) na jednom z konců budoucí čáry. LineRel použijte ke kreslení čar pomocí relativní vzdálenosti od CP. Druhá metoda nemění hodnotu CP.

LineTo přemístí ukazatel pozice do (X, Y).

Omezení

Je nutno být v grafickém režimu.

Viz také

Line

LineRel

MoveRel

MoveTo

SetLineStyle

SetWriteMode

Vzorový příklad

{LineTo.PAS}
{Vzorový příklad pro proceduru LineTo.}
uses Crt, Graph;
var Gd, Gm: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  Randomize;
  repeat
    LineTo(Random(200), Random(200));
  until KeyPressed;
  Readln;
  CloseGraph;
end.