home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSSCLP.FOR < prev    next >
Text File  |  1989-06-20  |  738b  |  25 lines
  1.         SUBROUTINE GSSCLP(VX0,VX1,VY0,VY1,AREA)
  2.         DIMENSION AREA(4)
  3. C
  4. C        THIS SUBROUTINE SAVES THE CURRENT ABSOLUTE CLIPPING WINDOW AND
  5. C        SETS A NEW ABSOLUTE CLIPPING WINDOW GIVEN VIRTUAL COORDINATES.
  6. C        IT MAKES SURE THAT THE CLIPPING WINDOW NEVER LIES OUTSIDE THE
  7. C        PHYSICAL DEVICE.
  8. C
  9.         INCLUDE GCCLIP.PRM
  10.         INCLUDE GCDCHR.PRM
  11. C
  12.         AREA(1) = XCM0
  13.         AREA(2) = XCM1
  14.         AREA(3) = YCM0
  15.         AREA(4) = YCM1
  16. C
  17.         CALL GSRST(VX0,VY0,AX0,AY0)
  18.         CALL GSRST(VX1,VY1,AX1,AY1)
  19.         XCM0 = AMAX1(AMIN1(AX0,AX1),0.0)
  20.         YCM0 = AMAX1(AMIN1(AY0,AY1),0.0)
  21.         XCM1 = AMIN1(XCLIPD,AMAX1(AX0,AX1))
  22.         YCM1 = AMIN1(YCLIPD,AMAX1(AY0,AY1))
  23.         RETURN
  24.         END
  25.