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 / MAPSZ2.FOR < prev    next >
Text File  |  1989-06-20  |  503b  |  18 lines
  1.     SUBROUTINE MAPSZ2(XLPCT,XRPCT,YBPCT,YTPCT,CHRSIZ)
  2.     INCLUDE GCDCHR.PRM
  3. C
  4.     XLEFT = XLENCM*XLPCT/100.0
  5.     IF(XLEFT.EQ.0.0) XLEFT = 0.1
  6.     XRIGHT = XLENCM*XRPCT/100.0
  7.     IF(XRPCT.EQ.100.0) XRIGHT = XRIGHT - 0.1
  8.     YBOT = YLENCM*YBPCT/100.0
  9.     IF(YBPCT.EQ.0.0) YBOT = 0.1
  10.     YTOP = YLENCM*YTPCT/100.0
  11.     IF(YTPCT.EQ.100.0) YTOP = YTOP - 0.1
  12.     CSIZE = CHRSIZ
  13.     IF (CSIZE .EQ. 0.0)
  14.      1  CSIZE = GOODCS(AMAX1(0.3,AMIN1(YTOP-YBOT,XRIGHT-XLEFT)/80.0))
  15.     CALL MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,0.9*CSIZE,.TRUE.)
  16.     RETURN
  17.     END
  18.