next up previous
Next: 5 Fortran Up: Laboratorijske vaje pri predmetu Previous: 3.2 Izpis rezultatov

4 Grafièni prikaz rezultatov

Za prikaz rezultatov v programu uporabite grafièni jezik GKS [&make_named_href('', "node10.html2#GKS1","[5]")]. V ta namen uporabite homogene matrike in homogene transformacije. Omogoèati mora tudi ogled prostorov s transformacijami poljubnega zaporedja: (rotacija, translacija in skaliranje v homogenih koordinatah). Ker so podatki za zgradbo tridimenzionalni, prikaz pa bo ravninski, je potrebno, da program pred prikazom vpra¹a, za katero vi¹ino naj se izri¹e tloris zgradbe.

Osnovni program, ki demonstrira uporabo jezika GKS je:

      program GKS skeleton
      implicit none
      real x(3)  /-200.0, 350.0, 250.0/
      real y(3)  /-200.0, 300.0,-250.0/
      real kx(2) /0.0, 100.0/
      real ky(2) /50.0, 120.0/
      character*80 datrec(1)
c     Odpre GKS (Gks OPen gKS)
      call gopks()
c     Nastavitev zaslonskih koordinat
c     (Gks Set WorKstation ViewPort)
      call gswkvp(1, 20.0, 50.0, 600.0, 450.0)
c     Nastavitev uporabniskega koord. sistema
c     (Gks Set WiNdow)
      call gswn(1, -300.0, -300.0, 400.0, 400.0)
c     Izris lika z dvema crtama
c     (GksSetPolyLineColorIndex, GksPolyLine)
c     Indeksi:1 modra, 2 zelena, 3 cyan, 4 rdeca,
c             5 violicna, 6 rjava, 7 bela, 8 siva,
c             9 svetlomodra, ..., 14 rumena, 15
      call gsplci(3)
      call gpl(3, x, y)
c     Izris teksta (GksSetCharacterHeight,
c     ...TextColorIndex, GksTeXt)
      call gstxci(14)
      call gschh(20)
      call gtx(-250.0, 300.0, 'GKS skeleton')   
c     Izris kroga
c     (Generalized Drawing Primitive)
      call gdp(2, kx, ky, -1, 1, datrec)
c     Zapre GKS (Gks CLose gKS)
      call gclks()
      end



Leon Kos
Fri Nov 8 12:43:21 GWT 1996