Процедуры создания графических примитивов

Текущий указатель.

При построении изображения иногда надо указать точку начала вывода. В тек­стовых режимах эту точку указывает курсор, который присутствует на экране(его мож­но убрать). В графических режимах видимого курсора нет, но есть невидимый текущий указатель. Для перемещения текущего указателя по экрану дисплея служит процедура MoveTo(x,y), перемещающая указатель в точку с координатами (х,у).

Процедура MoveRel(dx,dy), перемещает указатель на dx точек по горизонтали;и

dy точек по вертикали от предыдущей позиции.

Примеры.

1.......

MoveTo(200,100); {указатель переместится в точку (200,100)} MoveRel(5,10); {указатель переместится в точку (205,110)}

Чтобы определить максимальное значение координат Х и Y для установленного видеорежима, используют функции

GetMaxX:integer; для определения максимального значения Х GetMaxY:integer; для определения максимального значения Y.

2. Установить указатель в центр экрана.

VAR Xcentr.Ycentrinteger;

begin

Xcentr^GetMaxX div 2;

Ycentr:=GetMaxY div 2;

MoveTo(Xcentr,Ycentr);

Вывод точки.

PutPixel(x,y:integer;<uBeT_T04KH>);

x,y- координаты точки.

Вывод отрезка.

Line(xl,yl,x2,y2);

(х1,у1)-координаты начала отрезка;

(х2,у2)-координаты конца отрезка;

Обратите внимание на то, что в процедуре не задается цвет. В этом и аналогичных случаях цвет определяется процедурой SetColor().

Процедура UneTo(x,y) строит отрезок из точки текущего положения указателя в точку с координатами (х.у).

Процедура LineRel^x.dy) строит отрезок из точки текущего положения указателя (пусть это будут коордлваты Х и Y) в точку с координатами (x+dx,y+dy).

Не нашли, что искали? Воспользуйтесь поиском: