home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / PLTBOX.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  267 b   |  10 lines
  1.         SUBROUTINE PLTBOX(XLEFT,XRIGHT,YBOT,YTOP)
  2.     IMPLICIT NONE
  3.     REAL*4 XLEFT,XRIGHT,YBOT,YTOP,CSIZE,GOODCS
  4. C
  5. C
  6.         CSIZE = GOODCS(AMIN1(YTOP-YBOT,XRIGHT-XLEFT)/80.0)
  7.         CALL MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,0.9*CSIZE,.FALSE.)
  8.         RETURN
  9.         END
  10.