Главная Программы Fortran

Guitar

Guitar — это небольшая программа для рисования продольных или поперечных профилей, состоящих из полилиний с известными точками, и осей с данными расстояний и отметок, с равноудалёнными горизонтальными и вертикальными линиями, по системе, известной как "guitar". Это очень простой пример использования графических подпрограмм DXF. Я сделал эту программу в 2005 году, и с тех пор она почти не изменилась.

Исходный код guitar.f

Файл данных guitar.dat

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

Скомпилируйте код в Linux или в консоли Cygwin в Windows с помощью: gfortran guitar.f

Запустите с помощью: ./a.out (Linux) или ./a.exe (Windows), и результатом будет файл guitar.dxf

Пояснение к коду файла data.dat. Необходимо соблюдать количество параметров в строке и количество строк. Комментарии (не читаемые) можно добавлять справа от параметров. Можно добавлять пустые строки.

"ПРОДОЛЬНЫЙ ПРОФИЛЬ ОСИ"  > один параметр, имя графика

100 ПК начало                    > один параметр, начальный ПК
400 ПК конец                     > один параметр, конечный ПК
20 шаг между ПК                  > один параметр, шаг ПК

5 самая низкая отметка           > один параметр, низкая отметка
30 самая высокая отметка         > один параметр, высокая отметка
5 шаг отметок                    > один параметр, шаг отметок

10 Вертикальный масштаб 10:1     > один параметр, вертикальный масштаб

2 Количество профилей для рисования > один параметр, количество профилей

"Профиль 1" Имя профиля 1        > один параметр, имя профиля 1
5 Количество точек профиля 1     > один параметр, количество точек для определения
2 Цвет линии                     > один параметр, цвет CAD
1 100 11.5                       > три параметра: i, x, y
2 120 15
3 160 26
4 200 30
5 250 10

"Профиль 2"
3 Количество точек профиля 2     > один параметр, имя профиля 2
12 Цвет линии                    > один параметр, цвет
1 100 30                         > три параметра: номер точки, x, y
2 159 20
3 200 15

3 Масштаб шрифта                 > один параметр, масштаб текста
25 Вертикальное расстояние между строками > один параметр, вертикальное расстояние