home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GOODCS.FOR < prev    next >
Encoding:
Text File  |  1989-06-20  |  524 b   |  26 lines
  1.         FUNCTION GOODCS(APPROX)
  2.         INCLUDE GCDCHR.PRM
  3.         INCLUDE GCDPRM.PRM
  4.     DATA YCELL /8.0/
  5. C
  6. C       CALCULATE MINIMUM VIRTUAL COORD. SIZE OF CHARS THAT ARE READALBE WITH
  7. C        THE DEVICES RESOLUTION.
  8. C
  9.         SIZE = (YCELL/YRES)/YS
  10. C
  11. C       NOW SCALE UP THIS MINIMUM SIZE SO THAT CHARACTERS ARE ABOUT
  12. C        THE SIZE DESIRED.
  13. C
  14.         N = APPROX/SIZE + 0.25
  15. C
  16. C       MUST BE ATLEAST N=1
  17. C
  18.         IF (N .EQ. 0) N=1
  19. C
  20. C       NOW RETURN OUR ANSWER
  21. C
  22.         GOODCS = N*SIZE
  23.         RETURN
  24.         END
  25.  
  26.