![]() ТОР 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). Не нашли, что искали? Воспользуйтесь поиском:
|