В представленной ниже таблице приведены типы графических адаптеров и названия совместимых с ними драйверов

Таблица 1. Типы драйверов

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

При работе с графикой в Турбо Паскале есть возможность подключать не только стандартные, но и пользовательские драйверы. Последние должны удовлетворять стандарту BorlandInternational. В модуле Graph имеется процедура RegisterBGIDriver, которая обеспечивает поддержку работы с драйверами пользователя.

1.4 Инициализация графики

· заголовочный файл graphics.h,

· библиотечный файл graphics.lib,

· драйверы графических устройств (*.bgi),

· шрифты (*.chr).

Управление экраном в графическом режиме производится с помощью набора функций, прототипы которых находятся в заголовочном файле graphics.h. Для работы в графическом режиме файл graphics.h должен быть подключен с помощью директивы include препроцессора языка Cи ко всем модулям, использующим графические подпрограммы. Прежде чем использовать графические функции, необходимо переключить видеоадаптер в графический режим (по умолчанию он находится в текстовом режиме). Для инициализации графики предназначена функция initgraph(). Ее прототип -voidinitgraph (int driver, int mode, char path); где int driver - тип подключаемого драйвера, int mode - режим работы подключенного драйвера, char path - местоположение драйвера.

Функция initgraph() считывает в память указанный драйвер, устанавливает видеорежим, соответствующий аргументу mode, и определяет маршрут к директории, в которой находится файл .bgi(драйвер). Если маршрут не указан, то предполагается, что этот файл расположен в текущей директории.

При использовании initgraph() можно указать или конкретный драйвер (например, egavga.bgi), или задать автоматическое определение (детектирование) типа видеоадаптера и выбора соответствующего драйвера уже во время выполнения программы (макрос DETECT). Это позволяет без изменения переносить программы на компьютеры с другими видеоадаптерами. Например,

· int D=DETECT,M;

· initgraph;

В приведенном примере подразумевается, что файл драйвера (например, egavga.bgi) расположен в текущей директории. Эта функция очищает экран монитора и переводит его в графический режим 640*480*16 (разрешение монитора 640*480, 16 цветов).

Чтобы выйти из графического режима и перейти обратно в текстовый режим, необходимо использовать функцию voidclosegraph (void);

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

· Переход в графический режим;

· Работаем с графиком;

· Выход из графического режима.

Глава 2. Построение изображения на экране

2.1 Графические примитивы

Хотя любое изображение можно построить из точек, но программировать получение сложного рисунка или чертежа, используя только процедуру поставить точку, было бы слишком неудобно и громоздко. В любом графическом пакете существуют процедуры рисования основных геометрических фигур: прямых линий, окружностей, эллипсов, прямоугольников и т.п. Такие фигуры называют графическими примитивами.

Рассмотрим несколько основных процедур рисования графических примитивов, имеющихся в модуле Graph.

Линия с заданными координатами концов (XI, Y1) и (Х2, Y2):

Procedure Line(XI,Y1,Х2,Y2: Integer);

Линия от текущей точки до точки с координатами X, Y:

Procedure LineTo(X,Y: Integer);

Линий от текущей точки до точки с заданными приращениями координат DX, DY:

Procedure LineRel(DX,DY: Integer);

Прямоугольник с заданными координатами верхнего левого угла (XI, YI) и нижнего правого угла (Х2, Y2):

Procedure Rectangle(XI,Y1,X2,Y2: Integer);

Окружность с центром в точке (X, Y) и радиусом R -- в пикселях:

Procedure Circle(X,Y: Integer; R: Word);

Дуга окружности с центром в точке (X, Y), радиусом R, начальным углом BegA и конечным углом EndA. Углы измеряются в градусах против часовой стрелки от направления оси X.

Procedure Arc(X,Y: Integer; BegA,EndA,R: Word);

Эллипсная дуга с центром в точке X,Y с начальным и конечным углами BegA и EndA, горизонтальным радиусом RX и вертикальным радиусом RY:

Procedure Ellipse (X,Y: Integer:; BegA, EndA, RX,RY: Word);

Пример. Составим программу, рисующую голову робота (рис. 32).

Рисунок содержит два прямоугольника, две окружности, две дуги, эллипс, три прямые линии и две красные точки. Заранее определяются все координаты и размеры элементов рисунка.

Uses Graph;

Var Driver,Mode: Integer;

Begin

{Инициализация графического режима)

Driver:=Detect; i, InitGraph(Driver,Mode,'C:\TP\BGI || ;

Обведенный линией и закрашенный сектор окружности: Procedure PieSlice(X,Y:Integer; BegA,EndA: Word); Наконец, можно закрасить любую область, ограниченную замкнутой линией. Для этого нужно указать какую-нибудь точку внутри этой области (X, Y) и цвет граничной линии {Border). Соответствующая процедура выглядит следующим образом: Procedure FloodFill(X,Y: Integer; Border: Word); Модуль Graph позволяет выводить на графический экран тексты. Мы не будем сейчас детально обсуждать эту проблему, необходимую информацию можно найти в соответствующей литературе. Приведем лишь пример одной текстовой процедуры, с помощью которой выводится в графическое окно символьная строка (Txt), начиная с указанной позиции (X,Y). Procedure OutTextXY (X, YInteger; Txt: String) ; Например, чтобы вывести под нашим рисунком строку «ЭТО РОБОТ», следует в программу добавить оператор OutTextXY(195;400,'ЭТО РОБОТ'); Как построить график функции. Одним из приложений компьютерной графики является наглядное представление результатов математических расчетов. Графики функций, диаграммы, линии уровней распределения пространственных зависимостей и т. п. делают результаты расчетов обозримее, нагляднее, понятнее. Мы рассмотрим лишь один простейший вариант математической графики -- построение графика функции. Требуется составить программу построения на экране дисплея графика функции у = т.

Решение этой задачи удобно проводить в следующем порядке:

1.Определить границы значений аргумента, в пределах которых будет строиться график. Обозначим их следующим образом: X_min -- нижняя граница, -- верхняя граница.

2.Для данной области значений аргумента определить предельные значения функции: Y_min и У_max. Эти значения необязательно должны быть точными. Они могут быть оценочными снизу и сверху соответственно.

3.Задать границы графического окна, в пределах которого будет рисоваться график: [Xg_min, Xg_max], [ Yg_min, Yg_max] Поскольку в графических координатах вертикальная ось направлена вниз, то Yg_min > Yg_max.

Таким образом, мы имеем две системы координат: (X, У), которую назовем системой математических координат (в литературе чаще используют термин «мировые координаты).

Здесь квадратные скобки означают округление до целого значения (функция Round).Построение графика функции может производиться либо точечным методом, либо кусочно-линейным. При первом способе график строится как последовательность точек, расположенных максимально близко. Производится «попиксельный» перебор значений аргумента в интервале [Xg_min, Xg_max] с выставлением точек с соответствующими координатами Y. При кусочно-линейном методе задается шаг АХ и рассчитывается последовательность значений (Х, Y).

Пример. Составим программу построения графика функции

Uses Graph;

Var Driver,Mode: Integer;

X: Real; Xg,Yg,I: Integer;

Begin

{Инициализация графического режима}

Driver:=Detect;

InitGraph(Driver,Mode;'C:\TP\BGI');

SetColor(White);{белый цвет линий}

SetBkColor(Black);{черный цвет фона}

Line(10,90,200,90);(ось X}

Line(10,20,10,160);{ось Y}

{Построение графика функции желтыми точками}

Х:=0;

For 1:=0 То 190 Do

Begin Xg:=10+Round(95/Pi*X);

Yg:=90--Round(50*Sin(X)) ;

PutPixel(Xg,Yg,Yellow);

X:=X+Pi/95

End;

{Разметка осей, запись функции}

OutTextXY(15,30,'Y');

OutTextXY(205,90,'X');

OutTextXY(130,40,'Y=SIN(X)');

ReadLn;{задержка}

CloseGraph; {выход из графики}

End.

2.2 Работа с текстом

1.Изображает на экране скачущий мяч.

2.Изображает на экране человека.

3.Изображает на экране велосипед.

Размещено на Allbest.ru