Numxpixels - число пикселей по оси х,

Numypixels - число пикселей по оси у,

numtextcols – число доступных текстовых колонок, numtextrows - число доступных текстовых строк, numcolors – число доступных цветов, fontsize – размер шрифта по умолчанию.

 

data wc.numxpixels, wc.numypixels, wc.numtextcols, &

wc.numtextrows, wc.numcolors, wc.fontsize / 6*-1 /

Инициализация окна строкой в стиле С.

 

wc.title = "Интерполяционный многочлен Лагранжа"C

 

Читаем параметры видеоокна. getwindowconfig возвращает информацию об активном окне в структуру wc. Если свойства окна не были установлены с помощью SETWINDOWCONFIG, функция GETWINDOWCONFIG возвращает параметры окна по умолчанию. Логический результат res равен true, если функция выполнена успешно, false – в противном случае.

 

res = getwindowconfig(wc)

 

Графическая функция рисует прямоугольник текущим цветом и стилем. RECTANGLE использует коодинаты видеопорта, RECTANGLE_W использует систему координат окна.

 

result = RECTANGLE (control, x1, y1, x2, y2)

result = RECTANGLE_W (control, wx1, wy1, wx2, wy2)

control - флаг заполнения прямоугольника целого типа. Одна из символических констант заполнения:

· $GFILLINTERIOR – рисует сплошную фигуру текущим цветом и заполнением.

· $GBORDER – рисует фигуру без заполнения.

x1, y1 - координаты верхнего-левого угла прямоугольника типа (Input) INTEGER(2) в системе координат видеопорта.

x2, y2 - координаты нижнего-правого угла прямоугольника типа (Input) INTEGER(2) в системе координат видеопорта.

wx1, wy1 - координаты верхнего-левого угла прямоугольника типа (Input) REAL(8) в системе координат окна.
wx2, wy2 - координаты нижнего-правого угла прямоугольника типа (Input) REAL(8) в системе координат окна.

result – результат целого типа INTEGER(2) возвращает ненулевое число в случае успешного завершения функции, 0 – иначе.

 

Графическая функция. Устанавливает текущий цвет рисования.

 

result = SETCOLOR (color)

 

· color - индекс цвета рисования типа (Input) INTEGER(2);

· result - результат типа INTEGER(2) имеет значение индекса предыдущего цвета; иначе -1.

 

Графическая процедура переустанавливает графический видеопорт, определяя область клипа. Любая установка окна рисования с помощью функции SETWINDOW выполняется относительно видеопорта, а не всего экрана.

CALL SETVIEWPORT (x1, y1, x2, y2)

 

· x1, y1 - (Input) INTEGER(2). Физические координаты верхнего-левого угла видеопорта (прямоугольной области клипа);

· x2, y2 - (Input) INTEGER(2). Физические координаты нижнего-правого угла видеопорта.

 

Графическая функция SETWINDOW определяет систему координат, которую используют все рисующие графические подпрограммы, имена которых заканчивается на _W (например, ARC_W, RECTANGLE_W или LINETO_W). Любая установка окна рисования с помощью функции SETWINDOW выполняется относительно видеопорта, а не всего экрана.

 

result = SETWINDOW (finvert, wx1, wy1, wx2, wy2)

 

· finvert - (Input) LOGICAL(2). Определяет направление оси y. Если finvert равен.TRUE., ось y направлена от низа окна к верху. Если finvert равен.FALSE., ось yнаправлена от верха окна к низу (как и координаты пиксела);

· wx1, wy1 - (Input) REAL(8). Координаты верхнего-левого угла окна;

· wx2, wy2 - (Input) REAL(8). Координаты нижнего-правого угла окна;

· result - INTEGER(2). Результат имеет ненулевое значение, если функция завершена успешно; иначе, 0 (например, если программа вызывает SETWINDOW, но находится не в графическом режиме).

 

Производный тип (структура) xycoord. содержит координаты (x,y) видеопорта и определена как:

TYPE xycoord

INTEGER(2) xcoord! x-coordinate

INTEGER(2) ycoord! y-coordinate

END TYPE xycoord