|
Наши спонсоры:
|
|
Процедура LineRel.
- Объявление:
Procedure LineRel(Dx, Dy : Integer);
- Описание:
Рисует линию относительно текущего указателя
(CP) и перемещает CP в точку с координатами
(X1, Y1).
- Замечания:
Рисует линию из CP (X0, Y0) в точку (X1, Y1),
где
X1 = X0 + Dx
Y1 = Y0 + Dy
- Ограничения:
Нужно быть в графическом режиме.
- Пример:
{ Пример программы для процедуры LineRel }
Uses Graph;
Var Gd, Gm : Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm, '');
If GraphResult <> grOk Then Halt(1);
MoveTo(1, 2);
{ Рисуем линию в точку (101,102) }
LineRel(100, 100);
ReadLn;
CloseGraph;
End.
Вернуться к оглавлению справочника
|
|
|
|