ГРАФИЧЕСКИЙ РЕЖИМ

Графические операции
Система координат
Инициализация
Изображение точек
Изображение линий
Закрашенные фигуры
Вывод текста

Стиль линии
0
1
2
3
4 Определяется шаблоном
Шаблон
SetLineStyle(s, p, t)
Стиль
Толщина
1 Тонкая
3 Толстая

Цвет линий и текста
SetColor(c)
Цвет текста
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Экранная система координат
x
y
(0,0)
Пиксель
Экран
(639,0)
(0,479)

Инициализация (включение) графического режима
Путь к драйверу
InitGraph (gd,gm,p)
Графический драйвер (gd=9)
y
Режим (разрешение)
‘c:\trans\bp\bgi’
gm=0 - низкое (640x200)
gm=1 - среднее (640x350)
gm=2 - высокое (640x480)

Выключение графического режима
CIoseGraph
y

Изображение точек
Координаты
PutPixel (x, y, c);
Цвет
x
y

Нарисовать точку зеленого цвета в центре экрана
Program Primer;
Uses Graph;
Var Gd, Gm : Integer;
Begin
Gd:=9; Gm:=2;
InitGraph(Gd,Gm,’c:\trans\bp\bgi’);
PutPixel(320,240,2);
Readln;
CloseGraph;
End.

Изображение линий
Стиль и цвет линии
Прямые линии
Контур прямоугольника
Окружность
Дуга окружности
Эллипс (дуга эллипса)

Цвет линии
SetColor(c)
Цвет линии
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Отрезок прямой линии
Line (x1,y1, x2,y2)

Отрезок до точки
LineTo (x,y)
Текущий указатель до исполнения команды
Текущий указатель после исполнения команды

Перемещение
текущего указателя
в точку с координатами (x,y)
MoveTo (x,y)

Отрезок (вектор)
LineRel (dx, dy)
Текущий указатель до исполнения команды
Текущий указатель после исполнения команды

Контур прямоугольника
Rectangle(x1,y1,x2,y2)

Окружность
Circle (x, y, r)
r

Дуга окружности
Arc (x,y,nu,ku,r)
nu
ku
r

Дуга эллипса
Ellipse(x,y,nu,ku,rx,ry)

Закрашенные фигуры
Стиль заполнения фигуры
Прямоугольник
Параллелепипед
Закрашенный эллипс
Сектор круга
Сектор эллипса
Закраска произвольной фигуры

Стиль заполнения фигуры
SetFillStyle (s, c)
Стиль
Активный цвет
0 … 15
0 … 12

Виды стилей заполнения:
0 - сплошная закраска фоновым цветом
1 - сплошная закраска активным цветом
9 - закраска пикселей в шахматном порядке
12 - пользовательский стиль
2 3 4 5 6 7 8 10 11

Закрашенный прямоугольник
Bar (x1,y1, x2,y2)

Параллелепипед
Bar3d(x1,y1,x2,y2,d,t)
Верхняя грань
True (TopOn) - есть
False (TopOff) - нет

Закрашенный эллипс
FillEllipse (x,y,Rx,Ry)
Rx
Ry

Закрашенный сектор круга
PieSlice (x,y,nu,ku,r)

Закрашенный сектор эллипса
Sector(x,y,nu,ku,rx,ry)

Закраска произвольной фигуры
F l o o d F i l l (x,y, b)
Цвет границы
Координаты внутренней точки

Вывод текста в графике
Стиль и цвет текста
Вывод текста
Выравнивание текста
Преобразование чисел в текстовую форму
Высота и ширина строки

Стиль текста
Направление
SetTextStyle(s, d, r)
Стиль
Размер
0 - побитовый
1 - тройной
2 - малый
3 - гротесковый
4 - готический
0 - горизонтально (→)
1 - вертикально (↑)
1..10

Цвет текста
SetColor(c)
Цвет текста
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Вывод текста
OutTextXY(x, y,s)
Координаты
Текст
Тип - string

Выравнивание текста
SetTextJustify(h, v)
Выравнивание по горизонтали
Выравнивание по вертикали

Выравнивание текста отно-сительно точки привязки
Текст
Текст
Текст
h=0
h=2
h=1
Текст
v=0
Текст
v=1
Текст
v=2

Преобразование чисел в текст
S t r ( x, s )
Исходное число
Строка (текст)
Тип - string

Ширина строки
TextWidth (S)
Ширина в пикселях
Функция
Строка