gondwana.ecr.mu.oz.au/pub//Graphics.tar/Graphics/VOGLE.ZIP/VOGLE/SRC/MSFORT/FTEXT.FOR

Text File | 2000-02-11 | 3.8 KB | 181 lines

      interface to subroutine C_font[c](name[reference])
      character *(*) name
      end

      interface to subroutine C_textsize[c](x, y)
      real *8 x, y
      end

      interface to subroutine C_boxtext[c](x, y, a, b,
     +  s[reference])
      real*8    x, y, a, b
      character *(*)    s
      end

      interface to subroutine C_boxfit[c](x, y, n)
      real *8 x, y
      integer *2 n
      end

      interface to subroutine C_textang[c](x)
      real *8 x
      end

      interface to subroutine    C_drawchar[c](c)
      integer *2 c
      end

      interface to subroutine C_drawstr[c](str[reference])
      character *(*) str
      end

      interface to subroutine C_getfontsize[c](x[reference],
     +                                      y[reference])
      real x, y
      end

      interface to subroutine C_getcharsize[c](c, x[reference],
     +                                      y[reference])
      character *1 c
      real x, y
      end

      interface to subroutine C_fixedwidth[c](onoff)
      integer *2 onoff
      end

      interface to subroutine C_centertext[c](onoff)
      integer *2 onoff
      end

      interface to subroutine C_textjustify[c](val)
      integer *2 val
      end

      interface to subroutine C_leftjustify[c]
      end

      interface to subroutine C_rightjustify[c]
      end

      interface to subroutine C_topjustify[c]
      end

      interface to subroutine C_bottomjustify[c]
      end

      interface to subroutine C_xcentertext[c]
      end

      interface to subroutine C_ycentertext[c]
      end

      interface to function C_numchars[c]()
      integer *2 C_numchars
      end

      interface to function C_strlength[c](str[reference])
      real C_strlength
      character *(*) str
      end

      subroutine font(name)
      character *(*) name
      character *128 t_string
      call C_font(t_string(name))
      return
      end

      subroutine textsize(x, y)
      call C_textsize(x, y)
      end

      subroutine boxtext(a, b, c, d, name)
      character *(*) name
      character *128 t_string
      call C_boxtext(a, b, c, d, t_string(name))
      return
      end

      subroutine boxfit(x, y, n)
      call C_boxfit(x, y, n)
      end

      subroutine textang(x)
      call C_textang(x)
      end

      subroutine drawchar(c)
      character *1 c
      call C_drawchar(ichar(c))
      end

      subroutine drawstr(name)
      character *(*) name
      character *128 t_string
      call C_drawstr(t_string(name))
      end

      subroutine getfontsize(x, y)
      call C_getfontsize(x, y)
      end

      subroutine getcharsize(c, x, y)
      character *1 c
      call C_getcharsize(c, x, y)
      end

      subroutine fixedwidth(onoff)
      integer onoff
      call C_fixedwidth(onoff)
      end

      subroutine centertext(onoff)
      integer onoff
      call C_centertext(onoff)
      end

      subroutine leftjustify
      call C_leftjustify
      end

      subroutine rightjustify
      call C_rightjustify
      end

      subroutine topjustify
      call C_topjustify
      end

      subroutine bottomjustify
      call C_bottomjustify
      end

      subroutine textjustify(val)
      integer val
      call C_textjustify(val)
      end

      subroutine xcentertext
      call C_xcentertext
      end

      subroutine ycentertext
      call C_ycentertext
      end

      integer function numchars()
      integer*2 C_numchars
      numchars = C_numchars()
      end

      real function strlength(name)
      character *(*) name
      character *128 t_string
      real C_strlength
      strlength = C_strlength(t_string(name))
      return
      end