home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FASPECT.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  966 b   |  43 lines
  1.       interface to subroutine C_getfactors[c](x[reference],
  2.      +                                      y[reference])
  3.       real x, y
  4.       end
  5.  
  6.       interface to function C_getaspect[c]()
  7.       real C_getaspect
  8.       end
  9.       
  10.  
  11.       interface to subroutine C_getdisplaysize[c](x[reference],
  12.      +                                      y[reference])
  13.       real x, y
  14.       end
  15.  
  16.       interface to subroutine C_expandviewport[c]
  17.       end
  18.       
  19.       interface to subroutine C_unexpandviewport[c]
  20.       end
  21.  
  22.       subroutine getfactors(x, y)
  23.       call C_getfactors(x, y)
  24.       end
  25.  
  26.       real function getaspect()
  27.       real C_getaspect
  28.       getaspect = C_getaspect()
  29.       return
  30.       end
  31.  
  32.       subroutine getdisplaysize(x, y)
  33.       call C_getdisplaysize(x, y)
  34.       end
  35.  
  36.       subroutine expandviewport
  37.       call C_expandviewport
  38.       end
  39.  
  40.       subroutine unexpandviewport
  41.       call C_unexpandviewport
  42.       end
  43.