Курсовая работа: Графическое программирование на Ms Fortran
Call SetLineStyle (center), где center – имя 16-ти битной переменной. Бит 1 указывает на рисование соответствующего пиксела текущим цветом, 0 на отсутствие изменений цвета соответствующего пиксела. Шаблон повторяется по всей длине линий.
Пример задания переменной center.
$NODEBUG
integer*2 center /2#1111111100011000/ ! штрихпунктирная линия – ‘ – ‘ – ‘ –
$DEBUG
Установка шаблона штриховки.
Call SetFillMask (shad), где shad – 64-х битный массив 8*8 бит, где каждый бит представляет собой пиксел.
Пример задания shad:
$NODEBUG
integer*1 shading (8)/
> 2#00000001,
> 2#00000010,
> 2#00000100,
> 2#00001000,
> 2#00010000,
> 2#00100000,
> 2#01000000,
> 2#10000000/
$DEBUG
Создание и управление графическими объектами
4.1. Рисование графических примитивов
Рисование эллиптических дуг.
|
|
Функция аrc использует систему координат “порта просмотра”, функция arc_w использует систему ”оконных” координат. Центр дуги есть центр ограниченного прямоугольника. Dum = arc (x1, y1, x2, y2, x3, y3, x4, y4). |
Очистка экрана.
П/п ClearScreen очищает область, заполняя ее текущим цветом фона.
Пример:
Call ClearScreen ($GCLEARSCREEN) – очистка всего экрана (заполнение его текущим цветом фона)
При символической константе $GVIEWPORT – очистка текущей области просмотра; $GWINDOW – очистка текущего окна.
Рисование эллипса
|
|
dum = ellipse ($GFILLINTERIOR, x1, y1, x2, y2) – рисование эллипса, закрашенного текущей маской заполнения. При использовании символической константы $GBORDER – рисуется контур эллипса, ellipse_w – тоже в “оконных” координатах. |
Закрашивание замкнутой области.
dum = FloodFill (x, y, bnd) – закрашивание замкнутой области с точки (х,у) (не лежащей на контуре) текущим цветом. Bnd – индекс цвета ограничивающего контура. При достижении цвета bnd закрашивание в данном направлении заканчивается. При неуспешном выполнении возвращается нулевое значение.
Рисование линии.