HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
20 января. В 1714 году (305 лет назад) - Петр I издает указ, уникальный в русской истории, согласно которому дворянину, не постигшему основ знаний, необходимых для службы, запрещается жениться... Под вопли родителей дворянские отроки станут отправляться за счет государства за границу, где будут обучаться различным специальностям.
 
 

Turbo Pascal Documentation

Процедура LineRel

Модуль Graph


     Функция:  Проводит прямую в точку, заданную
относительным расстоянием от текущего указателя (СР).
     Описание: LineRel(Dx,Dy)
     Примечания:  Данная  процедура вычерчивает прямую линию
из текущей точки в точку,  заданную относительным растоянием
(Dх,Dу) от текущего указателя. Процедура рисует прямую,
толщина и тип которой задаются  процедурой SetLineStyle, а
цвет
устанавливается процедурой  SetColor.  Относительные команды
перемещения и рисования  полезны при  вычерчивании различных
объектов на экране, у которых начальная точка может быть
изменена (чтобы, например, вычертить ту же самую фигуру в
другом месте экрана).
     Ограничения: Должен использоваться графический режим.
     Прочее: См.  также  процедуры  Line,  LineTo,  MoveRel,
MoveTo, SetLineStyle.
     Пример:

uses Graph;
  var
    Gd, Gm : integer;
  begin
    Gd := Detect;
    InitGraph(gd, Gm, '');
    if GraphResult <> 0 then
       Halt(1);
begin
  MoveTo(1,2);
  LineRel(10,10);       { провести прямую в точку (11,12) }
  end;
  Readln;
  CloseGraph;
end.




HOME