home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FDRAW.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  1.3 KB  |  67 lines
  1.       interface to subroutine C_setdash[c](x)
  2.       real *8 x
  3.       end
  4.  
  5.       interface to subroutine C_linestyle[c](s[reference])
  6.       character *(*) s
  7.       end
  8.  
  9.       interface to subroutine C_draw[c](x, y, z)
  10.       real *8 x, y, z
  11.       end
  12.  
  13.       interface to subroutine C_draw2[c](x, y)
  14.       real *8 x, y
  15.       end
  16.  
  17.       interface to subroutine C_rdraw[c](x, y, z)
  18.       real *8 x, y, z
  19.       end
  20.  
  21.       interface to subroutine C_rdraw2[c](x, y)
  22.       real *8 x, y
  23.       end
  24.  
  25.       interface to subroutine C_sdraw2[c](x, y)
  26.       real *8 x, y
  27.       end
  28.  
  29.       interface to subroutine C_rsdraw2[c](x, y)
  30.       real *8 x, y
  31.       end
  32.  
  33.       subroutine setdash(x)
  34.       call C_setdash(x)
  35.       end
  36.  
  37.       subroutine linestyle(s)
  38.       character *(*) s
  39.       character *128 t_string
  40.  
  41.       call C_linestyle(t_string(s))
  42.       end
  43.  
  44.       subroutine draw(x, y, z)
  45.       call C_draw(x, y, z)
  46.       end
  47.  
  48.       subroutine draw2(x, y)
  49.       call C_draw2(x, y)
  50.       end
  51.  
  52.       subroutine rdraw(x, y, z)
  53.       call C_rdraw(x, y, z)
  54.       end
  55.  
  56.       subroutine rdraw2(x, y)
  57.       call C_rdraw2(x, y)
  58.       end
  59.  
  60.       subroutine sdraw2(x, y)
  61.       call C_sdraw2(x, y)
  62.       end
  63.  
  64.       subroutine rsdraw2(x, y)
  65.       call C_rsdraw2(x, y)
  66.       end
  67.