Primer programa v fortranu

    program primer
    include 'phigsdef.f'
    

    real    x(4)    /-200.0, 350.0, 250.0, -200.0/
    real    y(4)    /-200.0, 300.0, -250.0, -200.0/
    real    okx(5)  /-298.0, -298.0, 398.0, 398.0, -298.0/
    real    oky(5)  /-298.0, 398.0, 398.0, -298.0, -298.0/
    real    ViewMappingMatrix(3,3)
    real    WindowLimits(4) /-300.0, 400.0, -300.0, 400.0/
    real    ViewportLimits(4) /0.2, 0.8, 0.2, 0.8/
    real    ClipLimits(4)     /0.0, 1.0, 0.0, 1.0/
    integer wkid, ErrorReturn, i, j
    
c   Odpre PHIGS ( PhigsOPenPHigs )
    call popph(1,0)

c   Odpre delovno postajo ( Phigs OPen WorKstation )
    wkid = 1
    call popwk(wkid,"",WK17800)

    call pevmm(WindowLimits, ViewportLimits, 
   *          ErrorReturn, ViewMappingMatrix)
    do 50 i=1,3
        do 60 j=1,3
            write(*,*) ViewMappingMatrix(i,j)
60              continue
50      continue

c   Nastavitev uporabniskega koordinatnega sistema
c   ( PhigsSetWorKstationWindow )
c   ( wkid, xmin, xmax, ymin, ymax )
    call pswkw(wkid, 0.0, 1.0, 0.0, 1.0)

c   Nastavitev zaslonskih koordinat
c   ( PhigsSetWorKstationViewport )
    call pswkv(wkid, 0.0, 0.5, 0.0, 0.5)

c   Dolocitev barve crte
c   ( PhigsSetPolyLineColorIndex )
c   ( PhigsSetPolyLineColorIndex )
c     Indeksi:
c       1 = bela, 2 = rdeca, 3 = rumena,
c       4 = zelena, 5 = svetlo modra, 6 = modra,
c       7 = violicna, 8 = crna (ozadje)
    
    call psplci(4)
    
c   Izris trikotnika
c   ( PhigsPolyLine )
    call ppl(4, x, y)
    
    call psplci(6)
    
c   Izris okvirja
    call ppl(5, okx, oky)
    
c   Dolocitev barve teksta
c   ( PhigsSetTeXtColorIndex )
    call pstxci(2)

c   Dolocitev visine teksta
c   ( PhigsSetCHaracterHeight )
    call pschh (40.0)

c   Dolocitev poravnave texta
c   ( PhigsSetTeXtALignment )
    call pstxal(PACENT, 0)

c   Izris texta
c   ( PhigsTeXt )
    call ptx( 0.0, 300.0, 'PHIGS skeleton')
        
    pause

c   Zapre delovno postajo
c   ( PhigsCLoseWorKstation )
    call pclwk(wkid)

c   Zapre PHIGS (zakljuci z graficnim nacinom dela)
c   ( PhigsCLosePHigs )
    call pclph()

    end

Ljubljana, marec 1997