Лекция 8. Графика в Паскале. Модуль GRAPH

ПЛАН

7.1. Инициализация и закрытие графического режима

7.2. Базовые процедуры и функции модуля GRAPH: окно, текущий указатель, точка, линия

7.3. Работа с текстом

7.4. Установка цвета и палитры

7.5. Построение графических фигур

7.6. Работа с фрагментами изображения

Приложение: Процедуры управления графическим режимом

Модуль GRAPH

8.1. Инициализация и закрытие графического режима

InitGraph.

Для запуска графической системы необходимо:

1. Подключить модуль GRAPH — библиотеку графических процедур:

USES Graph;

2. Установить графический режим с помощью двух переменных и инициализировать графическую систему :

VAR DriverVar, ModeVar:Integer;

BEGIN

DriverVar := Detect;

InitGraph(DriverVar , ModeVar, '<путь к файлу драйвера>');

Таблица 1. Константы графических драйверов (DriverVar)

Константа	Значение
CurrentDrivgr	-128
Detect	0
CGA	1
MCGA	2
EGA	3
EGA64	4
EGAMono	5
IBM8514	6
HercMono	7
ATT400	8
VGA	9
PC3270	10

Таблица 2. Константы графических режимов (ModeVar)

Имя константы	Значение	Строк * столбцов	Палитра	Цвета	Кол-во страниц
АТТ400С0	0	320*200	0	Светло-серый, светло-красный, желтый.	1
АТТ400С1	1	320*200	1	Светло-бирюзовый, светло-малиновый, белый	1
АТТ400С2	2	320*200	2	Бирюзовый, ,малиновый, светло-серый.	1
ATT400Med	4	640*200
ATT400Hi	5	640*400
CGAC0	0	320*200	0	Светло-серый, светло-красный, желтый	1
CGAC1	1	320*200	1	Светло-бирюзовый, светло-малиновый, белый.	1
CGAC2	2	320*200	2	Зеленый, красный, коричневый.	1
CGAC3	3	320*200	3	Бирюзовый, малиновый, светло-серый.	1
CGAHi	4	640*200
EGALo	0	640*200		16 цветов	4
EGAHi	1	640*350		16 цветов	2
EGA64LO	0	640*200		16 цветов	1
EGA64Hi	1	640*350		4 цвета	1
EGAMonoHi	3	640*350		64К на плату, 256К на плату.	1 2
HercMonoHi	0	720*348
IBM8514Lo	0	640*480		256 цветов
1ВМ8514Ш	1	1024*76		256 цветов
MCGAC0	0	320*200	0	Светло-серый, светло-красный, желтый.	1
MCGAC1	1	320*200	1	Светло-бирюзовый, светло-малиновый, белый.	1
MCGAC2	2	320*200	2	Зеленый, красный, коричневый.	1
MCGAC3	3	320*200	3	Бирюзовый, малиновый, светло-серый.	1
MCGAMed	4	640*200
MCGAHi	5	640*480
PC3270Hi	0	720*350
VGALo	0	640*200		16 цветов	4
VGAMed	1	640*350		16 цветов	2
VGAHi	2	640*480		16 цветов	1

DriverVar := VGA; ModeVar := VGALo;

DriverVar := VGA; DriverVar := 9;

DriverVar:= Detect

InitGraph

DriverVar := Detect;

InitGraph(DriverVar, ModeVar, ' '); CloseGraph.