home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / gsrclp.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  367 b   |  15 lines
  1.         SUBROUTINE GSRCLP(AREA)
  2.         DIMENSION AREA(4)
  3. C
  4. C       THIS SUBROUTINE RESTORES A SAVED ABSOLUTE CLIPPING WINDOW PREVIOUSLY
  5. C        SAVED BY "GSSCLP".   NO ERROR CHECKING IS PERFORMED HERE!!!
  6. C
  7.         INCLUDE DIGLIB$KOM:GCCLIP.PRM
  8. C
  9.         XCM0 = AREA(1)
  10.         XCM1 = AREA(2)
  11.         YCM0 = AREA(3)
  12.         YCM1 = AREA(4)
  13.         RETURN
  14.         END
  15.