home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSWNDO.FOR < prev    next >
Text File  |  1989-06-20  |  613b  |  22 lines
  1.         SUBROUTINE GSWNDO(UXL,UXH,UYL,UYH,XOFF,YOFF,XAWDTH,YAHIGH)
  2. C
  3. C       THIS SUBROUTINE PROVIDES DIGLIB V3'S WINDOW/VIEWPORT MECHANISM.
  4. C
  5.         INCLUDE GCCLIP.PRM
  6.         INCLUDE GCDCHR.PRM
  7.         INCLUDE GCDPRM.PRM
  8. C
  9. C
  10.         RCOS = 1.0
  11.         RSIN = 0.0
  12.         XS = XAWDTH/(UXH-UXL)
  13.         YS = YAHIGH/(UYH-UYL)
  14.         XT = XOFF - XS*UXL
  15.         YT = YOFF - YS*UYL
  16.         XCM0 = AMAX1(AMIN1(XOFF,XOFF+XAWDTH),0.0)
  17.         YCM0 = AMAX1(AMIN1(YOFF,YOFF+YAHIGH),0.0)
  18.         XCM1 = AMIN1(XCLIPD,AMAX1(XOFF,XOFF+XAWDTH))
  19.         YCM1 = AMIN1(YCLIPD,AMAX1(YOFF,YOFF+YAHIGH))
  20.         RETURN
  21.         END
  22.