home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / libs / phigs / ptk.lha / ptk / fortran / source / library / view.f < prev    next >
Encoding:
Text File  |  1992-06-18  |  4.5 KB  |  125 lines
  1. C----------------------------------------------------------------------------
  2.  
  3. C  Module name: PHIGS View Utility.
  4.  
  5. C  Author: Gareth Williams.
  6.  
  7. C  Function: This module contains the PHIGS viewing utility.
  8.  
  9. C  Dependencies:
  10.  
  11. C  Internal function list: 
  12.  
  13. C  External function list: 
  14.  
  15. C  Modification history: (Version), (Date), (name), (Description).
  16.  
  17. C  1.0, 26th November 1991, G. Williams, First version, based on notes by
  18. C  Karen Wyrwas.
  19.  
  20. C----------------------------------------------------------------------------
  21.  
  22.         SUBROUTINE ptkf_vieweditor(wsid, num, stids, vwormt, vwmpmt, 
  23. & vwcplm, xyclpi, bclipi, fclipi)
  24. C /*
  25. C ** \parambegin
  26. C ** \param{INTEGER}{wsid}{workstation identifier}{IN}
  27. C ** \param{INTEGER}{num}{number of structures}{IN}
  28. C ** \param{INTEGER}{stids(*)}{list of structure identifiers}{IN}
  29. C ** \param{REAL}{vwormt(4, 4)}{view orientation matrix}{OUT}
  30. C ** \param{REAL}{vwmpmt(4, 4)}{view mapping matrix}{OUT}
  31. C ** \param{REAL}{vwcplm(6)}{view clipping limits}{OUT}
  32. C ** \param{INTEGER}{xyclpi}{x-y clipping indicator}{OUT}
  33. C ** \param{INTEGER}{bclipi}{back clipping indicator}{OUT}
  34. C ** \param{INTEGER}{fclipi}{front clipping indicator}{OUT}
  35. C ** \paramend
  36. C ** \blurb{This function starts the interactive PHIGS view editor, on
  37. C **  workstation \pardesc{wsid}.}
  38. C */
  39.         INTEGER wsid, num, stids(num)
  40.         REAL vwormt(4, 4)
  41.         REAL vwmpmt(4, 4)
  42.         REAL vwcplm(6)
  43.         INTEGER xyclpi, bclipi, fclipi
  44.         external ptkc_vieweditor !$PRAGMA C(ptkc_vieweditor)
  45.  
  46.         call ptkc_vieweditor(%val(wsid), %val(num), stids, vwormt, 
  47. & vwmpmt, vwcplm, xyclpi, bclipi, fclipi)
  48.  
  49.         RETURN
  50.         END
  51.  
  52.         SUBROUTINE ptkf_setvieweditorattrs(menufont, windowfont,
  53. & menucol, menutextcol, windowcol, 
  54. & bannercol, bannertextcol, tlcol, brcol, arrowcol, arrowedgecol)
  55. C /*
  56. C ** \parambegin
  57. C ** \param{INTEGER}{menufont}{menu text font}{IN}
  58. C ** \param{INTEGER}{windowfont}{window text font}{IN}
  59. C ** \param{INTEGER}{menucol}{menu colour index}{IN}
  60. C ** \param{INTEGER}{menutextcol}{menu text colour index}{IN}
  61. C ** \param{INTEGER}{windowcol}{window interior colour index}{IN}
  62. C ** \param{INTEGER}{bannercol}{window banner colour index}{IN}
  63. C ** \param{INTEGER}{bannertextcol}{window banner text colour index}{IN}
  64. C ** \param{INTEGER}{tlcol}{top-left colour index}{IN}
  65. C ** \param{INTEGER}{brcol}{bottom-right colour index}{IN}
  66. C ** \param{INTEGER}{arrowcol}{arrow colour index}{IN}
  67. C ** \param{INTEGER}{arrowedgecol}{arrow edge colour index}{IN}
  68. C ** \paramend
  69. C ** \blurb{This function enables the application to
  70. C ** set the text font and colour attribute values for the menus and windows
  71. C **  used in the PHIGS view editor.}
  72. C */
  73.     INTEGER menufont, windowfont
  74.     INTEGER menucol, menutextcol, windowcol
  75.         INTEGER bannercol, bannertextcol, tlcol, brcol
  76.     INTEGER arrowcol, arrowedgecol
  77.         external ptk_setvieweditorattrs
  78. & !$PRAGMA C(ptk_setvieweditorattrs)
  79.  
  80.      call ptk_setvieweditorattrs(%val(menufont), %val(windowfont),
  81. & %val(menucol), %val(menutextcol), 
  82. & %val(windowcol), %val(bannercol), %val(bannertextcol), %val(tlcol),
  83. & %val(brcol), %val(arrowcol), %val(arrowedgecol))
  84.  
  85.     RETURN
  86.     END
  87.  
  88.         SUBROUTINE ptkf_inqvieweditorattrs(menufont, windowfont,
  89. & menucol, menutextcol, windowcol, 
  90. & bannercol, bannertextcol, tlcol, brcol, arrowcol, arrowedgecol)
  91. C /*
  92. C ** \parambegin
  93. C ** \param{INTEGER}{menufont}{menu text font}{IN}
  94. C ** \param{INTEGER}{windowfont}{window text font}{IN}
  95. C ** \param{INTEGER}{menucol}{menu colour index}{IN}
  96. C ** \param{INTEGER}{menutextcol}{menu text colour index}{IN}
  97. C ** \param{INTEGER}{windowcol}{window interior colour index}{IN}
  98. C ** \param{INTEGER}{bannercol}{window banner colour index}{IN}
  99. C ** \param{INTEGER}{bannertextcol}{window banner text colour index}{IN}
  100. C ** \param{INTEGER}{tlcol}{top-left colour index}{IN}
  101. C ** \param{INTEGER}{brcol}{bottom-right colour index}{IN}
  102. C ** \param{INTEGER}{arrowcol}{arrow colour index}{IN}
  103. C ** \param{INTEGER}{arrowedgecol}{arrow edge colour index}{IN}
  104. C ** \paramend
  105. C ** \blurb{This function may be used to obtain the text font and 
  106. C ** colour attribute values of menus and windows used in the PHIGS view
  107. C ** editor.}
  108. C */
  109.     INTEGER menufont, windowfont
  110.     INTEGER menucol, menutextcol, windowcol
  111.         INTEGER bannercol, bannertextcol, tlcol, brcol
  112.     INTEGER arrowcol, arrowedgecol
  113.         external ptk_inqvieweditorattrs
  114. & !$PRAGMA C(ptk_inqvieweditorattrs)
  115.  
  116.      call ptk_inqvieweditorattrs(menufont, windowfont,
  117. & menucol, menutextcol, 
  118. & windowcol, bannercol, bannertextcol, tlcol,
  119. & brcol, arrowcol, arrowedgecol)
  120.  
  121.     RETURN
  122.     END
  123.  
  124. C end of view.f
  125.