home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSWDTH.FOR < prev    next >
Encoding:
Text File  |  1989-06-20  |  287 b   |  15 lines
  1.     FUNCTION GSWDTH(SIZE)
  2. C
  3. C    This function returns the width in virtual coordinates of
  4. C    a character.  If SIZE=0 then the current character size is assumed.
  5. C
  6.     INCLUDE GCCPAR.PRM
  7. C
  8.     EXTERNAL LEN
  9. C
  10.     TEMP = SIZE*GSCHIT()
  11.     IF (TEMP .EQ. 0.0) TEMP = CSIZE
  12.     GSWDTH = GSCWID()*TEMP
  13.     RETURN
  14.     END
  15.