Глава 9. Графика

Если в предыдущих главах на экране изображались только буквы, цифры и прочие символы, то эта глава научит вас рисовать.

9.1. Стандартные модули

В разделе 2.5 говорилось, что при работе с языком программирования мы реально работаем с комплексом программ, позволяющим программисту создавать собственные программы, пользуясь при этом значительным количеством готовых процедур. На данный момент мы знаем следующие стандартные процедуры языка Паскаль: Write, WriteLn, Read, ReadLn, Sound, Delay, NoSound, Exit, Halt. Вспомним теперь, что для того, чтобы вообще быть выполненной, программа должна находиться в оперативной памяти компьютера. Паскаль - это программа. Значит, для того, чтобы мы могли работать с Паскалем, все стандартные процедуры Паскаля тоже должны находиться в памяти? Однако память - вещь дефицитная и ее нужно экономить. Хорошо бы в память загружались не все процедуры, а только те, которые нужны данному программисту. Действительно, во многих приведенных в этой книге программах мы не использовали звук, зачем же нам было иметь в памяти процедуры Sound и NoSound?

Реально так и сделано. В Паскале определен целый ряд необязательных его кусков, которые называются стандартными модулями. Упрощенно говоря, стандартный модуль является сборником процедур и других элементов, которые загружаются с диска в память только тогда, когда программист их потребует. Один из этих модулей называется CRT и, кроме всего прочего, занимается звуком. Другой называется Graph и дает возможность программисту работать с изображениями на экране. С некоторыми другими стандартными модулями мы познакомимся позже.

Если программист специально не попросил, то в памяти оказывается только минимальная часть Паскаля, которая нужна всем.

А как же попросить? Очень просто. Если вам нужно работать со звуком, вы пишете первой строкой своей программы USES CRT, a если вы собираетесь работать с изображениями, то - USES Graph. USES (читается - "'юзез") переводится как "использует". Значит, строка USES CRT является приказом компьютеру использовать стандартный модуль CRT, для чего загрузить в память те его процедуры и другие элементы, которые требует программа.

9.2. Стандартный модуль Graph, текстовый и графический режимы

Graph (читается - "грэф") - это сокращение слова "графика". Если мы напишем первой строкой своей программы USES Graph, то Паскаль предоставит нам целый ряд процедур и других средств, позволяющих рисовать на экране разноцветные точки, отрезки прямых, дуги, закрашенные и незакрашенные окружности, прямоугольники, а также выполнять ряд других действий. Пользуясь этими возможностями, мы очень скоро напишем программы, рисующие причудливые картинки и заставляющие изображения двигаться по экрану. С помощью модуля CRT мы научимся управлять этим движением с клавиатуры, а значит, сможем создавать свои собственные компьютерные игры. В разделе 10.9 покажем создание игры "Торпедная атака". В следующем разделе будет описана работа самых популярных процедур модуля Graph.

Текстовый и графический режимы

Существует два режима (способа) работы компьютера с монитором - текстовый и графический. В любом месте программы вы можете приказать компьютеру переключиться из одного режима в другой.

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

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

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

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

Переключение между текстовым и графическим режимами

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

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

Вот пример программы, которая сначала в текстовом режиме пишет на экране текст "Это текстовый режим", затем переключается в графический режим, рисует окружность, а затем снова переключается в текстовый режим и пишет "Это снова текстовый режим":

USES Graph;

VAR Device, Mode :Integer;

BEGIN

WriteLn('Это текстовый режим'); {Инициализируем графический режим:}

ReadLn;

Device:=0;

InitGraph(Device, Mode, '<путь к графическим драйверам>');

Circle(100,80,50); {Обращение к процедуре рисования окружности.}

{Пока без пояснений}

ReadLn; {Закрываем графический режим, что рекомендую:}

CloseGraph;

WriteLn('Это снова текстовый режим');

ReadLn

END.

Пояснения. Перед использованием процедуры InitGraph необходимо создать две переменные величины типа Integer с произвольными именами (здесь использовались имена Device и Mode). Обе эти переменные при обращении к процедуре InitGraph должны быть записаны внутри круглых скобок. Device означает тип вашего видеоадаптера (CGA, EGA, VGA или другой), a Mode означает номер графического режима. Если вы ничего не знаете ни о том ни о другом, смело пишите Device := 0 и Паскаль сам определит тип вашего видеоадаптера и установит самый мощный из допустимых графический режим.

Третий элемент - не что иное, как путь к графическим драйверам Паскаля. Здесь использовались угловые скобки <>, чтобы подчеркнуть, что в вашей программе нужно писать не те ,4 русских слова, что внутри угловых скобок, а то, на что они указывают. Почти наверняка для вас графический драйвер представлен файлом egavga.bgi, расположенным в каталоге BGI. Если сам Паскаль расположен в каталоге ТР диска с:, то строка вашей программы будет выглядеть так:

InitGraph(Device, Mode, 'c.\TP\BGI')

Если вы ее записали верно, то можете попытаться запустить программу, и при правильной настройке Паскаля у вас все получится. Если Паскаль при запуске графического режима выдает (File not found (GRAPH.TPU)), то прочтите "Обзор популярных команд меню" из части 4. Там сказано, что делать.

Учтите, что при переключении режимов все содержимое экрана стирается.