С помощью этой функции пользователь может выбрать HPGL файл для просмотра через стандартное OPEN диалоговое окно

__declspec (dllimport) extern BOOL __stdcall VIEWHGLFILE (LPINT pnFile);

Данная функция открывает для просмотра предварительно заданный HPGL файл

__declspec (dllimport) extern void __stdcall SIZETOFIT (void);

Функция восстанавливает реальные размеры и масштаб HPGL изображения.

__declspec (dllimport) extern void __stdcall ZOOM (int nDirection);

Функция осуществляет масштабирование HPGL изображения; масштабирование осуществляется по следующей шкале: ... 12,5% 25% 50% 100% 150% 200% 250% ...

__declspec (dllimport) extern BOOL __stdcall ISHGLVIEW (HWND hWnd);

Функция проверяет является ли данное окно окном HPGL изображения.

Программа просмотра (Viewer).

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

Здесь, помимо возможностей передачи изображения в буфер обмена, масштабирования, подстраивания под размер, имеются возможности посмотреть, какая директория является текущей, задать просмотр одного конкретного файла или всех файлов из текущей директории, получить информацию о файле (полное имя, размер файла, дата создания и размер изображения в точках X на Y), а также сохранить текущее изображение в файле PS-формата. Сохранение изображения в файле PS-формата осуществляется специально написанной программой, о которой речь пойдет ниже в разделе “Запись графических файлов в формат Post Script”.

Описание меню.

Меню содержит команды работы с окнами просмотра HP-GL файлов.

Работа пакета ГРАФОР в Linux

Программа визуализации для пакета ГРАФОР на платформе UNIX написана с использованием функций графической библиотеки QT версии 2.3.1. Входом программы является файл в формате HP-GL. Каждому файлу соответствует об'ект класса Mwidget. Конструктор этого об'екта читает файл-результат, создает цепочку, каждый элемент которой - отрезок (цвет+координаты) в окне и инициализирует окно. Функция прорисовки окна берет информацию из цепочки.

Об'ект Mwidget cоздает окно, меню которого содержит пункты :

"Close" - закрывает окно,

"1x1" - устанавливает масштаб 1х1,

"In" - увеличивает изображение в 2 раза,

"Out" - уменьшает изображение в 2 раза.

Если изображение не помещается в окне, то повляется соответствующая (Х и/или У) полоса прокрутки. При закрытии последнего окна приложение заканчивает работу. Имена процедур в С/С++ не совпадают ( добавлен символ подчеркивания в конце ) c именами в Fortran'е.

Пример окна :

Для получения исполнимого модуля из ГРАФОРА и программы визуализации в LINUX предполагается использовать 3 модуля :

1) Модуль, написанный на Fortran - fortran.f.

2) Модуль, написанный на C - sig.c, нужен для связи с модулем main.cpp. программный файл формат алгоритмический

3) Модуль, написанный на C++ - main.cpp, реализует визуализацию результатов, полученных в fortran.f.

Взаимодействие модулей должно осуществлятся так :

1. Запускается функция main() модуля main.cpp. Она назначает процедуру signal1() обработчиком сигнала SIG_USR1, подготавливает среду для создания окон приложения и вызывает главную процедуру модуля grafor.f, передавая ей без изменений все полученные при запуске параметры.

2. В модуле grafor.f после создания файла-результата для его отображения вызывается процедура dowin1(),

3. Процедура dowin1() модуля sig.c изменяет глобальную переменную num_win ( в данном случае в 1) и посылает приложению ( то есть себе) сигнал SIG_USR1.

4. Процедура signal1() модуля main.cpp создает динамический объект класса MWidget.

Проведено предварительное тестирование предложенного способа - роль grafor.f выполнял модуль callwin.f.

Исходные тексты :

/********** begin callwin.f ***************/

subroutine fortran

integer argc

character(*) argv

call dowin1

call dowin2

end

/********** end callwin.f ***************/

/************* begin sig.c *************/

#include <signal.h>

• char num_win;
• void dowin1_()
• {
• num_win=1; kill( getpid(), SIGUSR1);
• }
• void dowin2_()
• {
• num_win=2; kill( getpid(), SIGUSR1);
• }
• /************* end sig.c **************/
• // фрагмент main.cpp Вариант для сборки вместе с callwin.f , sig.c.

/*

Описание класса VWidget

*/

#define TEST

#ifdef TEST

extern char num_win;

extern "C" void fortran_(int argc, char **argv);

void signal1(int sig)

{ MWidget *m=new MWidget(0,0, num_win, 300, 200 ); }

#endif

int main( int argc, char **argv )

{

#ifdef TEST

signal( SIGUSR1, signal1 );

#endif

QApplication a( argc, argv );

QObject::connect( qApp, SIGNAL( lastWindowClosed() ), qApp, SLOT( quit() ) );

#ifdef TEST

fortran_( argc, argv);

#else

MWidget *m1=new MWidget(0,0, 1, 300, 200 );

MWidget *m2=new MWidget(0,0, 2, 300, 200 );

// . . .

// + another windows

#endif

return a.exec();

}

// main.cpp

Формат Post Script

Наряду с файлами на языке HP-GL удобно получать файлы на языке PostScript, который является межплатформенным и также имеет текстовый формат. Кратко опишем особенности этого языка.

Файл EPS состоит из двух частей - Prolog и Script, каждая из которых может включать в себя управляющие операторы EPS. Содержащиеся в теле файла управляющие операторы EPS начинаются, как и операторы языка PostScript, с символа процента - “%”. Таким образом, EPS-файлы могут обрабатываться как обычным транслятором с языка PostScript, который такие опреаторы будет игнорировать, так и более сложными программами обработки, которыми операторы EPS будут интерпретироваться. Признаком опратора EPS, позволяющего отличить его от комментария, служит второй символ оператора, следующий за “%”. Управляющие операторы начинаются символами “%!” или ”%%”, за которыми следует ASCII-строка. Первый оператор выглядит так (W, X, Y, Z - конкретные номера версий и подверсий):

%!PS-Adobe-W.X EPSF-Y.Z

При записи операторов языка PostScript используется обратная польская кодировка. Приведем примеры операторов, которые используются нами при “переводе” файлов из формата HP-GL в PostScript:

Оператор: lineto

Формат: x y lineto

Функция: Присоединяет к текущей области вывода отрезок прямой, ограниченной точкой с координатами (x,y) и текущей точкой.

Оператор: moveto

Формат: x y moveto

Функция: Устанавливает в качестве текущей точку с координатами (x,y). Запись графических файлов в формат Post Script

Реализована подпрограмма, осуществляющая чтение файлов (записанных при работе ГРАФОРа) в формате HP-GL и запись в PostScript соответствующих операторов. Программа реализована на ФОРТРАНе и работает как в WINDOWS, так и в LINUXе. Возможны передача файла, полученного в одной системе, в другую, и просмотр его (в LINUX есть “штатный просмотрщик” PS-файлов).

Реализована и возможность использования этой подпрограммы непосредственно в драйвере ГРАФОРа, однако, как нам кажется, её использование уже “избыточно”, поскольку пользователь, получив ряд изображений, может выбрать только те, которые ему необходимы, и осуществить конвертацию только нужных ему изображений.

Получение изображения двумерного поля параметров в формате PostScript.

Приведем текст программы, записывающей изображение двумерного поля параметров (в данном примере поле задается по аналитической формуле), в файл формата PostScript. Просмотреть получающийся файл (в системе WINDOWS) можно широко распространенной программой Gsview, а в операционной системе Linux - имеющейся в ней штатной программой просмотра.

open (3,file='test_ps.ps',status='unknown')

write (3,*)'3 dup scale'

write (3,*)'0 setlinewidth'

write (3,*)'/L{lineto}def /M{moveto}def'

write (3,*)'/C{sethsbcolor}def /F{fill}def /S{stroke}def'

do j=1,100

do k=1,100

xcol=2.0+( cos(float(k)) + sin(float(j)) )

write (3,'(2I4,2H M,3(2I4,2H L))')j-1,k-1,j,k-1,j,k,j-1,k

write (3,'(F6.3,10H 1 1 C F S)') xcol

enddo

enddo

write (3,*) 'showpage'

write (3,*) 'quit'

close (3)

end

Аннотация

Излагаются особенности использования пакета ГРАФОР - набора графических подпрограмм и функций, в ОС Windows 95/98/ME/NT/2000 (при использовании транслятора Compaq Visual Fortran 6.X) и Linux.

The application of GRAFOR (GRAphical FORtran - the set of routines for graphics) in the Microsoft Visual Studio and in OS Linux is considered.

Размещено на Allbest.ru