Курсовая работа: Графическое программирование на Ms Fortran
Установить графический видеорежим можно функцией setvideomode.
Пример:
dum = setvideomode ($MAXRESMODE)
В функцию передается идентификатор (номер) видеорежима. В данном случае передается символическая константа целого типа $MAXRESMODE (= - 3), определенная в файле FGRAPH.FD и определяющая, что выбирается и устанавливается видеорежим с максимальным разрешением.
В случае возникновения ошибки функция возвращает значение 0.
3. Установка среды изображения.
Перед непосредственным выводом изображения необходимо произвести некоторые предварительные настройки.
Установка курсора.
Функция displaycursor позволяет включить или выключить изображение курсора.
Пример:
I2 = displaycursor (1) ! включение курсора, 0 – выключение. Можно использовать символические константы $GCURSOROFF и $GCURSORON.
3.2 Установка палитры.
Каждому цвету на экране ставится в соответствие индекс цвета, по которому он вызывается. Обычно имеется 16 индексов, которым соответствуют 16 стандартных цветов, хотя самих цветов может быть больше.
Для ассоциирования цвета конкретному индексу используются процедуры: remappallpalette, remappalette и selctpalette.
Значение цвета определяется целым числом, состоящим из четырех байт (32 битов). Цвет задается указанием уровня интенсивности для каждого значения красного, зеленого и голубого цветов (RGB модель).
Значение цвета в двоичном виде:
zzzzzzzz zzBBBBBB zzGGGGGG zzRRRRRR, где z это 0, а B, G и R – значения битов для соответствующих цветов различной интенсивности. 1 (двоичные 00000001) соответствует минимальной интенсивности, а 63 (двоичное 00111111) максимальной. Чисто желтому цвету (100% зеленого и 100% красного) соответствуют значение:
(00000000 00000000 00111111 00111111)2 = (1392447)10 = (153f3f)16
белому (всего по 100%): (4144959)10 = (3f3f3f)16
Пример:
i2 = remapalette (1#153f3f) !присвоение индексу 1 желтого цвета
аналогично
i2 = remapalette (1,1392447)
аналогично
i2 = remapalette (1,$YELOW) !где $YELOW – константа, соответствующая желтому цвету (определена в файле Fgraph.fd)
Функция remappallpalette выполняет одновременное переназначение всех индексов цвета. В функцию передается массив значений цветов.
Установка координатных систем
Текстовые координаты.
Текстовые координаты служат для отображения текста шрифтом фиксированного размера. Координаты текста задаются в строках и столбцах. В обычном текстовом режиме: 25 строк и 80 столбцов. Установка текстовых координат осуществляется графической п/п settextposition.