Inici Programari Fortran

Guitar

Guitar, és un petit programa per a dibuixar perfils longitudinals o transversals formats per polilínies amb punts coneguts, i els eixos amb dades de distància i cotes, amb línies horitzontals i verticals equidistants, segons un sistema conegut com a "guitarra". És un exemple molt simple de l'ús de les subrutines gràfiques DXF. Aquest programa el vaig fer el 2005 i gairebé no ha sofert canvis des de llavors.

Codi font guitar.f

Fitxer de dades guitar.dat

L'usuari ha d'escriure el fitxer de dades en el format estricte demanat. Recordem que en fitxers per lectura de dades de forma seqüencial no podem afegir no treure línies i el nombre de paràmetres a cada línia ha de ser l'esperat. El fitxer de dades s'autoexplica sol, però anem a donar alguns detalls:

Compilar el codi amb Linux o una consola Cygwin en Windows amb: gfortran guitar.f

Executar amb: ./a.out (linux) o ./a.exe (Windows) i el resultat és un fitxer guitar.dxf

Explicació del codi del fitxer de dades.dat. Cal respectar el nombre de paràmetres per línia i de línies. Es poden afegir comentaris (no llegits) a la dreta dels paràmetres. Es poden afegir línies en blanc.

"PERFIL LONGITUDINAL DE L'EIX"  > un paràmetre, el nom del gràfic

100 PK inici                    > un paràmetre, PK inicial
400 PK fi                       > un paràmetre, PK final
20 pas entre PKs                > un paràmetre, PK final


5 cota més baixa                > un paràmetre, cota baixa
30 cota més alta                > un paràmetre, cota alta
5 pas de cotes                  > un paràmetre, pas cotes

10 Escala vertical 10:1         > un paràmetre, escala V

2 Nombre de perfils a dibuixar  > un paràmetre, nombre de perfils a dibuixar

"Perfil 1" Nom del perfil 1     > un paràmetre, nom perfil 1
5 Nombre de punts del perfil 1  > un paràmetre, nombre de punts a definir
2 Color de línia                > un paràmetre, color CAD
1 100 11.5                      > tres paràmetres, i, x, y
2 120 15
3 160 26
4 200 30
5 250 10

"Perfil 2"
3 Nombre de punts del perfil    > un paràmetre, nom perfil 2
12 Color de línia               > un paràmetre, color
1 100 30                        > tres paràmetres, npunt, x, y
2 159 20
3 200 15

3 Escala del tipus de lletra    > un paràmetre, escala lletra
25 Separació vertical entre línies > un paràmetre, sep vertical