Line (процедура) (модуль Graph)

Язык:
Русский
English

 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.

Смотри также

Пример

Язык:
Русский
English


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

uses Crt, Graph;

var
  Gd, Gm : Integer;

begin
  Gd := Detect;
  InitGraph(Gd, Gm, 'X:\BP');
 if GraphResult <> grOk then
   Halt(1);
 Randomize;
 repeat
    Line(Random(200), Random(200), Random(200), Random(200));
 until KeyPressed;
 ReadLn;
  CloseGraph;
end.
Тэги: Line
| G+
Код для вставки: :: :: :: ::
Поделиться: // //