Процедура LineTo

Модуль GRAPH

Рисует линию от текущего указателя (CP) до (X, Y).

Объявление:

Procedure LineTo(X, Y : Integer);

Режим:

Real, Protected

Замечание:

Рисует линию стилем и толщиной, определенными при обращении к процедуре SetLineStyle и использует цвет, установленный обращением к SetColor.

Используйте процедуру SetWriteMode, чтобы определить, какую логическую операцию выполнять для каждой точки линии при ее выводе на экран (MOV или XOR).

Учтите, что последовательность операторов

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

является эквивалентной

Line(100, 100, 200, 200);

Первый метод медленнее и использует большее количество кода. Используйте LineTo только втом случае, если текущий указатель находится в конечной точке линии. Используйте LineRel, чтобы рисовать линию относительно текущего указателя CP. Второй метод не изменяет значение CP.

LineTo перемещает текущий указатель (CP) на (X, Y).

Ограничения:

Нужно быть в графическом режиме.

Пример:

{ Пример программы для процедуры 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.