home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSDRGB.FOR < prev    next >
Text File  |  1989-06-20  |  424b  |  19 lines
  1.         SUBROUTINE GSDRGB(ICOLOR,RED,GRN,BLU,IERR)
  2.         INCLUDE GCDCHR.PRM
  3.         DIMENSION RGB(3)
  4. C
  5. C       DEFINE A COLOR
  6. C
  7.         IF ( IAND(IDVBTS,64) .EQ. 0 .OR.
  8.      1   (ICOLOR .GT. NDCLRS) .OR.
  9.      2   (ICOLOR .LT. 0)) GO TO 900
  10.         IERR = 0
  11.         RGB(1) = RED
  12.         RGB(2) = GRN
  13.         RGB(3) = BLU
  14.         CALL GSDRVR(10,FLOAT(ICOLOR),RGB)
  15.         RETURN
  16. 900     IERR = -1
  17.         RETURN
  18.         END
  19.