При выводе на экран графической информации (линии, эллипсы, многоугольники, растровые изображения и др.) используется графический режим работы монитора, в котором изображение строится из пикселей (pixel) – точек на экране, каждая из которых может иметь свой цвет.
Для разработки программ, работающих в графическом режиме, в системе программирования Turbo Pascal существует стандартный модуль Graph.tpu, содержащий константы, типы, процедуры и функции (более 50).
Кроме файла Graph.tpu для разработки программ в графическом режиме требуется графический драйвер Egavga.bgi (для адаптеров EGA и VGA), расположенные в папке ..\BGI системы. Там же, в файлах *.chr находятся векторные шрифты для графического режима. Следует отметить, что в дистрибутивном пакете системы Turbo Pascal эти шрифты не имеют русских букв, однако можно найти и русифицированные *.chr файлы, например в системе Quattro Pro.
Для работы в графическом режиме следует выполнить действия:
- скопировать в каталог с файлом программы драйвер egavga.bgi;
- в разделе описания используемых модулей указать Uses Graph;
- описать две переменные целого типа Gd, Gm: Var Gd,Dm:integer;
- задать автоматический режим настройки графического драйвера: Gd:=Detect;
- для переключения в графический режим вызвать процедуру InitGraph: InitGraph(Gd,Gm,'');
- выполнить вывод на экран графической информации;
- для выхода из графического режима вызвать процедуру ClоseGraph;.
После переключения в графический режим вместо текстового курсора используется невидимый текущий указатель, который может быть установлен в определённой точке экрана с помощью задания графических координат. Для режима VGA 640´480 верхний левый угол экрана будет иметь координаты (0,0), а правый нижний угол (639,479).
Пример. Наберите текст программы, рисующей 5 концентрических окружностей в центре экрана:
Program Krug2;
Uses Graph;
Var
Gd,Gm,rad,xc,yc:integer;
begin
Gd:=Detect; { Функция InitGraph должна выполнить } { автоопределение типа монитора (Gd) и его } { максимального разрешения (Gm)}
InitGraph(Gd,Gm,''); { Инициализация графического режима }
if GraphResult <> 0 then { В случае ошибки инициализации }
Writeln('В каталоге программы должен присутствовать драйвер egavga.bgi');
Writeln('или укажите путь к нему в IniGraph(Gd,Gm,<путь>)');
Halt(1);
end;
Case Gd of { Анализируем тип дисплея }
{ и вычисляем координаты центра экрана }
9: begin { VGA монитор }
xc:=(640-1) div 2; yc:=(480-1) div 2;
end;
3: begin { EGA монитор }
xc:=(640-1) div 2; yc:=(350-1) div 2;
end;
end;
for rad:=1 to 5 do
Circle(xc,yc,rad*20); { Рисуем окружности }
Readln;
CloseGraph; { Возврат в текстовый режим }
end.
Ниже приведён перечень наиболее часто используемых процедур и функций для работы в графическом режиме.
Function GetMaxX:Integer;Возвращает максимальную x-координату (разрешение по горизонтали) текущего графического режима.
Function GetMaxY:Integer; Возвращает максимальную y-координату (разрешение по вертикали) текущего графического режима.
Function GetX:Integer; Возвращает текущую x-координату указателя.
Function GetY:Integer; Возвращает текущую y-координату указателя.
Procedure PutPixel(x,y,color:Word); Выводит на экран точку с координатами (x,y) и цветом color.
Procedure SetColor(color:Word); Устанавливает цвет рисуемых далее линий.
Procedure SetBkColor(color : Word); Устанавливает цвет фона.
Procedure Line(xStart,yStart,xEnd,yEnd:Integer);Проводит прямую линию из точки (xStart,yStart) в точку (xEnd,yEnd).
Procedure LineTo(xEnd,yEnd:Integer); Проводит прямую линию из текущего положения указателя в точку с координатами (xEnd,yEnd).
Procedure MoveTo(x,y : Integer); Перемещает указатель в точку с координатами (x,y).
Procedure Circle(x,y,Radius : Integer); Рисует окружность с центром в точке (x,y) и радиусом Radius.
Procedure Rectangle(x1,y1,x2,y2 : Integer); Рисует прямоугольник с координатами левого верхнего и правого нижнего угла (x1,y1) и (x2,y2) соответственно.
Procedure Bar(x1,y1,x2,y2 : Integer); Рисует закрашенный прямоугольник с координатами левого верхнего и правого нижнего угла (x1,y1) и (x2,y2) соответственно.
Procedure Ellipse(x,y, a1,a2, xRad,yRad : Integer); Рисует эллиптическую дугу с центром в точке (x,y), начальным и конечным углами a1 и a2 и радиусами по осям xRad, yRad; углы отсчитываются от положительного направления оси х в градусах.
Procedure FloodFill(x,y:integer; border:word); Закрашивает замкнутую область, внутри которой расположена точка (x,y), согласно текущему стилю заполнения. Параметр border задаёт цвет границы.
Procedure SetFillPattern(parttern:byte; color:word); Устанавливает тип закраски и её цвет. Тип закраски выбирается из списка: EmptyFill – сплошное заполнение цветом фона; SolidFill – сплошное заполнение заданным цветом; LineFill – заполнение горизонтальными линиями; LtSlashFill –диагональное заполнение (/ / /); LtBkSlashFill – обратное диагональное заполнение (\ \ \); XhatchFill – косое клетчатое заполнение.
Procedure OutTextXY(x,y:Integer; s:string); Выводит текстовую строку s начиная с точки с координатами (x,y).
Простейшие примеры работы с процедурами и функциями графического режима содержатся в справочной системе Turbo Pascal. Полный список констант, типов, процедур и функций модуля Graph содержится также в файле Graph.int в папке ..\DOC.
