Процедура Line

Модуль GRAPH

Рисует линию из точки с координатами (X1, Y1) в точку с координатами (X2, Y2).

Объявление:

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

Режим:

Real, Protected

Замечание:

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

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

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

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

Line(100, 100, 200, 200);
MoveTo(200, 200);

Используйте LineTo, когда текущий указатель (CP - Current Pointer) находится в конечной точке линии. Если вы хотите чтобы значение CP изменялось автоматически при рисовании линии, используйте LineRel. Процедура Line не изменяет значение CP.

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

Нужно быть в графическом режиме. Для рисования горизонтальной линии процедура Bar работает быстрее чем процедура Line.

Пример:

{ Пример программы для процедуры Line }

Uses Crt, Graph;

Var Gd, Gm : Integer;

Begin
	Gd:=Detect;
	InitGraph(Gd, Gm, '');
	If GraphResult <> grOk Then Halt(1);
	Randomize;
	Repeat
		Line(Random(200), Random(200), Random(200), Random(200));
	Until KeyPressed;
	ReadLn;
	CloseGraph;
End.