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 / SAVMAP.FOR < prev    next >
Text File  |  1989-06-20  |  962b  |  41 lines
  1.         SUBROUTINE SAVMAP(AREA)
  2.         DIMENSION AREA(15)
  3. C
  4. C       THIS SUBROUTINE SAVES THE STATUS FROM THE LAST MAPPRM-MAPIT CALLS.
  5. C       WHEN USED IN CONJUCTION "RSTMAP", THE USER CAN SWITCH AROUND BETWEEN
  6. C       MULTIPLE GRAPHIC REGIONS ON THE SCREEN CREATED WITH "MAPIT".
  7. C
  8.         INCLUDE PLTCLP.PRM
  9.         INCLUDE PLTCOM.PRM
  10.         INCLUDE PLTSIZ.PRM
  11. C
  12. C       SAVE THE MAPIT CLIPPING LIMITS
  13. C
  14.         AREA(1) = XMIN
  15.         AREA(2) = XMAX
  16.         AREA(3) = YMIN
  17.         AREA(4) = YMAX
  18. C
  19. C       SAVE WORLD TO VIRTUAL COORD. TRANSFORMATION CONST.
  20. C
  21.         AREA(5) = UX0
  22.         AREA(6) = UDX
  23.         AREA(7) = UY0
  24.         AREA(8) = UDY
  25.         AREA(9) = 0.0
  26.         IF (LOGX) AREA(9) = 1.0
  27.         AREA(10) = 0.0
  28.         IF (LOGY) AREA(10) = 1.0
  29. C
  30. C       NOW SAVE VIRT. COORD. LOCATION OF AXES
  31. C
  32.         AREA(11) = XVSTRT
  33.         AREA(12) = YVSTRT
  34.         AREA(13) = XVLEN
  35.         AREA(14) = YVLEN
  36. C
  37. C       ALL DONE
  38. C
  39.         RETURN
  40.         END
  41.