Лабораторная работа № 5

Графический модуль Graph языка Pascal

Цель: Изучить основные процедуры и функции графического модуля Graph.

1 Домашнее задание

1.1 Основные процедуры модуля Graph

Процедура InitGraph

Функция: Инициализирует графическую систему и переводит аппаратуру в графический режим.

Описание:

InitGraph(var граф_драйвер:integer; var граф_режим:integer; путь_драйвер:string)

Примечания: И параметр "граф-драйвер", и параметр "граф-режим" являются параметрами-переменными (var).

35

Если параметр "граф_драйвер" равняется Detect(0), то выполняется вызов процедуры DetectGraph, загружается соответствующий драйвер и выбирается графический режим.

Если параметр "граф_драйвер" не равен 0, то значение этого параметра рассматривается, как номер драйвера. Этот драйвер загружается и система переводится в режим, определяемый параметром "граф_режим". Заметим, что если значение автоматического распознавания аппаратуры изменено, то вы должны для требуемого драйвера обеспечить правильный параметр "граф_режим".

Параметр "путь_драйвер" определяет путь доступа к каталогу (маршрут), в котором находятся графические драйверы. Если этот параметр пуст, то подразумевается, что файлы драйверов содержатся в текущем каталоге.

После обращения к процедуре InitGraph для параметра "граф_драйвер" будет установлено значение, соответствующее текущем графическому драйверу, а для параметра "граф_режим" будет установлено значение, соответствующее текущему графическому режиму.

Если происходит ошибка, то процедура GrapDriver и функция GraphResult возвращают одно из следующих значений:

-2 - не обнаружена графическая плата;

-3 - не найден файл драйвера;

-4 - неверный драйвер;

-5 - для загрузки памяти недостаточно памяти.

Процедура InitGraph сбрасывает все графические параметры (текущий указатель, палитру, цвет, область просмотра и т.д.) и устанавливает для них предусмотренные по умолчанию значения.

Для установки поставляемый фирмами драйверов можно использовать процедуру InstallDriver (более подробная информация содержится в описании процедуры InstallUserDriver).

36

Процедура Line:

Функция: Рисует прямую линию из точки (x1,y1) в точку (x2,y2).

Описание: Line(x1, y1, x2, y2 : integer)

Примечания: Рисует прямую, толщина и тип которой задаются процедурой SetLineStyle, а цвет устанавливается процедурой SetColor.

Заметим, что MoveTo(100,100); LineTo(200,200); эквивалентно

LineTo(100,100,200,200); MoveTo(200,200);

Используйте данную процедуру только в том случае, когда текущий указатель находится в одном из концов строки, или когда вы хотите, чтобы позиция текущего указателя после вычерчивания линии автоматически изменилась. Заметим, что линия не изменяет текущий указатель.

Функция CloseGraph

Останавливает работу графической системы. Описание: CloseGraph

Примечания: Данная процедура восстанавливает исходный режим экрана (который был установлен до инициализации графики) и освобождает в динамически распределяемой области память, используемую графическим драйвером.

Процедура Rectangle

Рисует прямоугольник, используя текущий цвет и тип строки.

Описание: Rectangle(x1, y1, x2, x2 : integer)

Примечания: Точка с координатами (х1,у1) определяет верхний левый угол прямоугольника, а точка с координатами

37

(х2,у2) определяет нижний правый угол (0 <= х1 < х2 <= GetМахХ и 0 <= у1 < у2 <= GetМахY).

При вычерчивании прямоугольника будут использоваться текущий тип строки и цвет, которые устанавливаются процедурой SetLineStyle.

Процедура SetColor()

SetColor(Цвет:Word)

Процедура, используя палитру, устанавливает текущий цвет для рисунка.