Fortran для персонального компьютера

1.Вызов процедуры getvideoconfig для поиска и опреде­ ления видеоадаптера.

2.Установка требуемого графического режима для адапте­ рас применением процедуры setvideomode.

3.Рисование графических образов.

По завершении создания графического образа перед вы­

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

6.2.1.1Проверка текущего видеорежима

Для предотвращения возможных проблем несовмести­ мости, перед вводом видеорежима следует вызвать процедуру getvideoconfig. При ее выполнении, в структуре videoconrig возвращается информация о текущей системе; структура оп­ ределена вфайле FoRAPH.FD и показана в приведенном ниже примере.

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

STRUCTURE/videoconfie/

INTEGER*2 numxpixels ! Число пиксел по оси х INTEGERS numypixels ! Число пиксел по оси у INTEGERS numtextcols ! Допустимое число столбцов INTEGER*2 numtextrows ! Допустимое число строк INTEGERS numcolors ! Число индексов цвета INTEGER*2 bitsperpixel! Число разрядов на пиксел INTEGER*2 numviaeopage ! Число видеостраниц INTEGERS mode ! Текущий видеорежим INTEGER*2 adapter! Активный видеоадаптер INTEGER*2 monitor ! Активный дисплейный монитор

INTEGERS memory ! Память видеоадаптера в К байтах END STRUCTURE

Поля структурной переменной типа videoconfig инициализируются при вызове процедуры getvideoconfig.

6.2.1.2Установка видео-режима

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

setvideomode.

Включаемый файл FGRAPH.FD определяет символи­ ческие константы с соответствующими значениями. Парамет­ ры режимов приведены в таблице 6.11. Размеры экрана для каждого режима указаны в количестве элементов изображе­ ния для графического режима и в количестве столбцов для текстового режима. Графа Итип/техническая среда”указывает на предполагаемую техническую среду. Если используется адаптер Hercules, пользователь должен запустить программу MSHERC.COM перед отображением графических образов.

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