2015-08-12
297
Цвет является выражением целого типа со значением из интервала 0..15, в частности, может быть константой из таблицы:
| Black = 0 (черный) | Darkgray = 8 (темно-серый) |
| Blue =1 (синий) | Lightblue = 9 (светло-синий) |
| Green =2 (зеленый) | Lightgreen =10 (светло-зеленый) |
| Cyan =3 (голубой) | Lightcyan =11 (светло- голубой) |
| Red =4 (красный) | Lightred =12 (светло-красный) |
| Magenta =5 (фиолетовый) | Lightmagenta=13(светло-фиолетовый) |
| Brown =6 (коричневый) | Yellow =14 (желтый) |
| Lightgray =7 (светло-серый) | White =15 (белый). |
Процедуры setcolor(цвет) и setbkcolor(цвет) устанавливают цвет рисунка и цвет фона. При инициализации графики по умолчанию устанавливается черный фон и белый цвет рисунка.
В следующей таблице указаны основные процедуры для модуля Graph, применяющиеся для построения точек, отрезков, дуг, прямоугольников, закрашивания замкнутых областей и вывода текста на графический экран.
| Заголовок процедуры | Геометрический смысл |
| putpixel(x,y,c) | построить точку (x,y) цветом c |
| setlinestyle(a,b,t) | установить стиль, образец и толщину линий |
| line(x1,y1,x2,y2) | соединить две точки отрезком |
| rectangle(x1,y1,x2,y2) | построить прямоугольник с заданными концами диагонали и сторонами, парал- лельными осям координат |
| circle(x,y,r) | построить окружность с центром (x,y) и радиусом R |
| arc(x,y,a,b,r) | построить дугу окружности: a,b -начальный и конечный углы в градусах |
| ellipse(x,y,a,b,rx,ry) | построить эллиптическую дугу: rx, ry - полуоси эллипса |
| setfillstyle(t,c) | установить стиль закраски и ее цвет |
| fillellipse(x,y,rx,ry) | построить закрашенный эллипс, используя цвет рисунка, |
| floodfill(x,y,cg) | закрасить фигуру до границы с цветом cg; (x,y) - внутренняя точка фигуры |
| bar(x1,y1,x2,y2) | построить столбец, используя тип и цвет закраски |
| pieslice(x,y,a,b,r) | построить и закрасить сектор круга: a,b - начальный и конечный углы дуги в градусах |
| sector(x,y,a,b,rx,ry) | построить и закрасить эллиптический сектор |
| settextstyle(f,n,d) | установить шрифт, направление вывода и размер символов текста |
| outtextxy(x,y,st) | вывести строку st, начиная с точки (x,y) |
| outtext(st) | вывести строку, начиная с точки рас- положения текущего указателя |
Первый аргумент процедуры setlinestyle(a,b,t) - стиль линии a - принимает значения из таблицы:
| Значение стиля | Смысл |
| 0 solidln | непрерывная линия |
| 1 dotteln | пунктирная линия |
| 2 centerln | штрихпунктирная линия |
| 3 dashedln | штриховая линия |
| 4 userbitln | определенная пользователем |
Второй параметр b, "образец", имеет значение 4, если a=4, в оста- льных случаях b=0. Третий параметр t, толщина линии, может иметь значение 1 (нормальная толщина) или 3 (жирная линия).
Первый аргумент процедуры setfillstyle(t,c) - тип закраски t - принимает значения из интервала 0..12. Наиболее употребителен тип t=1 - заполнение фигуры текущим цветом. Другие типы закраски приведены ниже.
Для вывода текста на графический экран сначала выполняется процедура settextstyle(f,n,d), устанавливающая шрифт f, направление вывода n и размер символов (параметр d). При f=0 используется стандартный точечный шрифт, встроенный в систему Турбо- Паскаль.
Направление вывода принимает значения 0 (горизонтальный вывод) и 1 (вертикальный вывод).
Размер букв определяется параметром d, принимающим значения из интервала 1..10. Если d=1 и f=0, то каждый символ занимает квадрат 8*8 точек, при d>1 сторона квадрата умножается на d.
Далее с помощью процедуры outtextxy(x,y,st) строка st выводится на экран, начиная с точки (x,y), например:
• settextstyle(0,0,2);
• outtextxy(100,200,'горизонтальная строка');
• outtextxy(100,230,'размер увеличен вдвое');
