home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / MAPPRM.FOR < prev    next >
Text File  |  1989-06-20  |  676b  |  20 lines
  1.         SUBROUTINE MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,TKLN,LRAXIS)
  2.         LOGICAL*2 LRAXIS
  3.         INCLUDE PLTSIZ.PRM
  4.         INCLUDE PLTPRM.PRM
  5. C
  6. C
  7.         CXSIZE = GSCWID()*CSIZE/GSCHIT()
  8.         CYSIZE = CSIZE
  9.         TICKLN = TKLN
  10.         TICKSP = AMAX1(0.0,TICKLN)
  11.         TLABLN = ILABSZ()+0.25
  12.         XVSTRT = XLEFT + TICKSP + TLABLN*CXSIZE + 2.0*CYSIZE + 0.25
  13.         XVLEN = XRIGHT - XVSTRT - (TLABLN/2.0)*CXSIZE - 0.25
  14.         IF(LRAXIS) XVLEN = XVLEN - (TICKSP + TLABLN*CXSIZE + 2.0*CYSIZE)
  15.         TICKSP = AMAX1(0.5*CYSIZE,TICKLN)
  16.         YVSTRT = YBOT + TICKSP + 4.25*CYSIZE + 0.25
  17.         YVLEN = YTOP - YVSTRT - 2.0*CYSIZE - 0.25
  18.         RETURN
  19.         END
  20.