Использование библиотеки Graph
Переход в графический режим и возврат в текстовый. Краткая характеристика графических режимов работы дисплейных адаптеров.
Начиная с версии 4.0, в состав Турбо Паскаля включена мощная библиотека графических подпрограмм Graph, остающаяся практически неизменной во всех последующих версиях. Библиотека содержит в общей сложности более 50 процедур и функций, предоставляющих программисту самые разнообразные возможности управления графическим экраном.Процедуры и функции
Процедура InitGraph | Инициирует графический режим работы адаптера. Заголовок процедуры: | Procedure InitGraph(var Driver,Mode: Integer; Path: String); | Здесь: | Driver – переменная типа Integer, определяет тип графического драйвера;Координаты, окна, страницы
Многие графические процедуры и функции используют указатель текущей позиции на экране, который в отличие от текстового курсора невидим. Положение этого указателя, как и вообще любая координата на графическом экране, задается относительно левого верхнего угла, который, в свою очередь, имеет координаты 0.0.Линии и точки
Процедура PutPixel | Выводит заданным цветом точку по указанным координатам. Заголовок: | Procedure PutPixel(X,Y: Integer; Color: Word); | Здесь: | X, Y – координаты точки; | Color – цвет точки. | Координаты задаются относительно левого верхнего угла окна или, если окно не установлено, относительно левого верхнего угла экрана.Многоугольники
Процедура Rectangle | Вычерчивает прямоугольник с указанными координатами углов. Заголовок: | Procedure Rectangle(X1,Y1,X2,Y2: Integer); | Здесь X1… Y2 – координаты левого верхнего (X1, Y1) и правого нижнего (Х2, Y2) углов прямоугольника.Дуги, окружности, эллипсы
Процедура Circle | Вычерчивает окружность. Заголовок: | Procedure Circle(X,Y: Integer; R: Word); | Здесь: | X, Y – координаты центра; | R – радиус в пикселях. | Окружность выводится текущим цветом. Толщина линии устанавливается текущим стилем, вид линии всегда SolidLn (сплошная).Краски, палитры, заполнения
Процедура SetColor | Устанавливает текущий цвет для выводимых линий и символов. Заголовок: | Procedure SetColor(Color: Word); | Здесь Color – текущий цвет. | В модуле Graph определены точно такие же константы для задания цвета, как и в модуле CRT (см. п.13.2).Сохранение и выдача изображений
Функция ImageSize | Возвращает размер памяти в байтах, необходимый для размещения прямоугольного фрагмента изображения. Заголовок: | Function ImageSize(X1,Y1,X2,Y2: Integer): Word; | Здесь X1… Y2 – координаты левого верхнего (X1, Y1) и правого нижнего (Х2, Y2) углов фрагмента изображения.Вывод текста
Описываемые ниже стандартные процедуры и функции поддерживают вывод текстовых сообщений в графическом режиме. Это не одно и то же, что использование процедур Write или WriteLn. Дело в том, что специально для графического режима разработаны процедуры, обеспечивающие вывод сообщений различными шрифтами в горизонтальном или вертикальном направлении, с изменением размеров и т.д.Включение драйвера и шрифтов в тело программы
В Турбо Паскале имеется возможность включения графического драйвера и штриховых шрифтов непосредственно в тело программы. Такое включение делает программу независимой от местоположения и наличия на диске драйверов и шрифтов, а также ускоряет подготовку графических программ к работе (шрифты и драйвер загружаются вместе с программой).