4 Графическое программирование

Любой монитор может работать в двух режимах: текстовом и графическом. При включении среды Borland Pascal монитор автоматически переключается в текстовый режим, при котором экран разбивается на 25 строк и 80 столбцов. На пересечении столбцов и строк располагаются так называемые знакоместа. Каждое знакоместо представляет собой прямоугольную область экрана, содержащую набор пикселей. Размер этой области зависит от типа и характеристик монитора. Минимальный размер знакоместа пикселей соответствует цветному монитору EGA. В текстовом режиме управление выводом состоит в отображении на каждом знакоместе литеры или символа псевдографики.

4.1 Управление видеорежимом

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

Рис. 3.5 Координаты пикселей на экране монитора

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

Инициализация видеорежима. Процедура InitGraph

Для работы в графическом режиме необходимо использовать две библиотеки CRT и GRAPH, располагающиеся, как правило, в поддиректории UNITS. Для инициализации графического видеорежима необходима процедура InitGraph(DV, MV, 'E:\TP\BGI'). Параметр DV определяет драйвер, а переменная MV - режим его работы. В Паскале предусмотрена возможность автоматического выбора драйвера и режима, для этого достаточно переменной DV присвоить стандартное значение с помощью константы Detect. В целом набор команд необходимых для инициализации выглядит следующим образом:

USES CRT, GRAPH;

VAR DV, MV: INTEGER;

BEGIN DV := DETECT;

InitGraph(DV, MV, 'E:\TP\BGI');

Здесь путь 'E:\TP\BGI' определяет расположение поддиректория где находятся драйверы монитора. Естественно, что у разных компьютеров этот путь может быть различным.

Закрытие видеорежима. Процедура CloseGraph

По завершении работы с графикой можно вернутся к текстовому режиму работы монитора, для этого в любом месте тела программы достаточно вызвать процедуру CloseGraph модуля GRAPH. Если эту процедуру не использовать, то возврат в текстовый режим произойдет автоматически по завершении работы программы и выходе в интегрированную среду Borland Pascal.

Создание графического окна. Процедура SetViewPort

На экране монитора в графическом режиме можно выделить прямоугольную область любого размера, которая получила название графическое окно. Вывод информации можно осуществлять именно в это окно, как будто остального экрана и не существует. При инициализации видеорежима окном является весь экран. Текущий указатель, иногда его называют графический курсор, занимает в окне начальное положение, то есть его координаты имеют значения X = 0, Y = 0, что соответствует верхнему левому пикселю. Для создания графического окна используют процедуру

SetViewPort(Xup, Yup, Xlow, Ylow: Integer; L: Boolean),

где Xup, Yup - координаты верхней левой точки окна на экране, которая получила название UP; Xlow, Ylow - координаты нижней правой точки окна на экране, которая получила название low. L - переменная логического типа принимает значение True, если рисунок следует ограничить размерами окна, то есть отсечь те его части, которые выходят за пределы графического окна на остальную часть экрана. Если L = False, то рисунок продолжается вне окна, если его размеры превышают окно. На рис. 3.6 показан результат выполнения команды:

SetViewPort(100, 70, 450, 310, True);

Цвет окна определяют как цвет фона с помощью процедуры: SetBkColor(<Номер цвета>). Номер цвета - это целое число в диапазоне от 0 до 15: 0 - черный, 1 - синий, 2 - зеленый, 3 - голубой, 4 - красный, 5 - фиолетовый, 6 - коричневый, 7 - белый (светло-серый), 8 - темно-серый, 9 - ярко-синий, 10 - ярко-зеленый, 11 - ярко-голубой, 12 - ярко-красный, 13 - ярко-фиолетовый, 14 - желтый, 15 - ярко-белый.

Рис. 3.6 Расположение графического окна (100, 70, 450, 310) на экране

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