Основы применения вычислительной техники и программирование. Беспалов В.В. - 77 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

10.2. Базовые процедуры и функции
Для постро тся система ко-
ординат. Отсчет , который
имеет
SetColor(a:word);
осуществляться рисование.
);
закраски: a – стиль закраски, b – цвет.
вливат я пользователем),
с – тол-
щина
ивает шрифт, стиль и размер текста.
patternType;Color:word);
ый пользователем.
танавливает текущий указатель в начало.
1,y1,x2,y2:integer;Clip:boolean);
nteger);
том
с в (x, y).
er);
ординаты левого верхнего угла,
прямоугольника. Область
по цвету с фоном.
ения изображений на экране используе
начинается от верхнего левого угла экрана
координаты (0,0). Значение Х (столбец) увеличивается слева на-
право, значение Y (строка) увеличивается сверху вниз. Чтобы строить
изображения, необходимо указывать точку начала вывода. В текстовых
режимах эту точку указывает курсор, который присутствует на экране.
В графических режимах видимого курсора нет, но есть невидимый те-
кущий указатель CP (Current Pointer). Фактически это тот же курсор, но
он невидим.
10.2.1. Процедуры модуля Graph
Устанавливает цвет, которым будет
SetBkColor(a:word);
Устанавливает цвет фона.
SetFillStyle(a,b:word
Устанавливает стиль и цвет
SetLineStyle(a,b,c:word);
Устанавливает стиль и толщину линии:
а – стиль линии, b – обра-
ьсзец построения линии (может устана
линии.
SetTextStyle(a,b,c:word);
Устанавл
SetFillPattern(Pattern:Fill
Выбирает шаблон заполнения, определенн
Pattern – маска.
ClearDivice;
Очищает экран и ус
SetViewPort(x
Устанавливает текущее окно для графического вывода.
ClearViewPort;
Очищает окно.
PutPixel(a,b,c:i
Рисует точку цве
Line(x1,y1,x2,y2:integer);
Рисует линию от (x
1
, y
1
) к (x
2
, y
2
).
Rectangle(x1,y1,x2,y2:integ
Рисует прямоугольник; (x
1
, y
1
) – ко
(x
2
, y
2
) – координаты правого нижнего угла
внутри прямоугольника не закрашена и совпадает
78

Страницы