home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / RSTMAP.FOR < prev    next >
Text File  |  1989-06-20  |  834b  |  39 lines
  1.         SUBROUTINE RSTMAP(AREA)
  2.         DIMENSION AREA(14)
  3. C
  4. C       THIS SUBROUTINE RESTORES THE MAPPING PARAMETERS SAVED BY "SAVMAP".
  5. C
  6.         INCLUDE PLTCLP.PRM
  7.         INCLUDE PLTCOM.PRM
  8.         INCLUDE PLTSIZ.PRM
  9. C
  10. C       RESTORE THE MAPIT CLIPPING LIMITS
  11. C
  12.         XMIN = AREA(1)
  13.         XMAX = AREA(2)
  14.         YMIN = AREA(3)
  15.         YMAX = AREA(4)
  16. C
  17. C       SAVE WORLD TO VIRTUAL COORD. TRANSFORMATION CONST.
  18. C
  19.         UX0 = AREA(5)
  20.         UDX = AREA(6)
  21.         UY0 = AREA(7)
  22.         UDY = AREA(8)
  23.         LOGX = .FALSE.
  24.         IF (AREA(9) .NE. 0.0) LOGX = .TRUE.
  25.         LOGY = .FALSE.
  26.         IF (AREA(10) .NE. 0.0) LOGY = .TRUE.
  27. C
  28. C       RESTORE VIRT. COORD. OF AXES
  29. C
  30.         XVSTRT = AREA(11)
  31.         YVSTRT = AREA(12)
  32.         XVLEN = AREA(13)
  33.         YVLEN = AREA(14)
  34. C
  35. C       ALL DONE
  36. C
  37.         RETURN
  38.         END
  39.