home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSIVIS.FOR < prev    next >
Text File  |  1989-06-20  |  304b  |  14 lines
  1.         FUNCTION GSIVIS(X,Y)
  2.         INTEGER*2 GSIVIS
  3. C
  4.         INCLUDE GCCLIP.PRM
  5. C
  6. C
  7.         GSIVIS = 0
  8.         IF (X .LT. XCM0) GSIVIS = 1
  9.         IF (X .GT. XCM1) GSIVIS = GSIVIS + 2
  10.         IF (Y .LT. YCM0) GSIVIS = GSIVIS + 4
  11.         IF (Y .GT. YCM1) GSIVIS = GSIVIS + 8
  12.         RETURN
  13.         END
  14.