home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff267.lzh / Diglib / diglib.zoo / diglib / PLTBOX.FOR < prev    next >
Text File  |  1989-06-20  |  208b  |  8 lines
  1.         SUBROUTINE PLTBOX(XLEFT,XRIGHT,YBOT,YTOP)
  2. C
  3. C
  4.         CSIZE = GOODCS(AMIN1(YTOP-YBOT,XRIGHT-XLEFT)/80.0)
  5.         CALL MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,0.9*CSIZE,.FALSE.)
  6.         RETURN
  7.         END
  8.