Установка цвета и стиля заполнения

Установка цвета графического изображения:

SetColor(<кoнcтaнтa_oпpeдeляющaя UBeT>:word);

Установка цвета фона:

SetBkColor(<кoнcтaнтa_oпpeдeляющaя_цвeт_фoнa>:word);

Установка способа закраски:

SetFillStyle(<кoнcтaнтa_cтиля_зaпoлнeния>:word;

<константа _ цвета _зaпoлнeния>:word);

Значения констант приведены ниже.

Закраска области экрана может производиться разными способами: штриховкой разного цвета и направления, точками разной плотности и т.д.

Таблица цветов

в ш

Информатика

Таблица констант для стандартных стилей заполнения.

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

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

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