Главная | Случайная
Обратная связь

ТОР 5 статей:

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

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






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




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

При построении изображения иногда надо указать точку начала вывода. В тек­стовых режимах эту точку указывает курсор, который присутствует на экране(его мож­но убрать). В графических режимах видимого курсора нет, но есть невидимый текущий указатель. Для перемещения текущего указателя по экрану дисплея служит процедура 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).




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

vikidalka.ru - 2015-2019 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных