C-----THIS IS COMMON/INCLUDE FILE DPCOCT.INC-----
C     THIS IS COMMON FOR RGB COLOR TABLES
C
C  THIS INCLUDE FILE CONTAINS THE COLOR TABLES FOR DEVICES THAT
C  ALLOW RGB VALUES TO BE SPECIFIED DIRECTLY.  THIS CURRENTLY INCLUDES
C  POSTSCRIPT AND CGM.  THESE VALUES WERE OBTAINED FROM THE
C  "XLIB PROGRAMMERS REFERENCE" FROM O'REILLY AND ASSOCIATES.  THESE
C  ARE THE DEFAULT VALUES USED BY X11 AT RELEASE 4.
C
C  THESE VALUES ARE IN A SEPARATE INCLUDE FILE SINCE 3 ROUTINES
C  USE THEM (GRSECO, GRINDE, GRERSC).  SINCE DIFFERENT HARDWARE CAN
C  GENERATE DIFFERENT COLORS FROM THE SAME RGB VALUES, YOU MAY
C  HAVE REASON TO FINE-TUNE THESE VALUES LOCALLY.  THE X11
C  DRIVER USES NAMES INSTEAD OF THESE VALUES DIRECTLY.  THIS ALLOWS
C  EACH VENDOR TO FINE-TUNE THE VALUES FOR THEIR HARDWARE.  THEREFORE
C  THERE IS NO NEED TO MODIFY FOR X11.
C
C  ROW 1: WHIT, BLAC, RED , BLUE, GREE, MAGE, ORAN, CYAN, YELL, YGRE
C  ROW 2: DGRE, LBLU, VBLU, VRED, DGRA, LGRA, AQUA, BROW, CABL, CORA
C  ROW 3: CBLU, DOGR, DORC, DSBL, DTUR, FIRE, FGRE, GOLD, GLDR, GRAY
C  ROW 4: IRED, KHAK, DMGR, LSBL, LGRE, MARO, MAQU, MBLU, MFGR, MGLD
C  ROW 5: MORC, MSGR, MSBL, MSPG, MTUR, MVRD, MDBL, NAVY, ORED, ORCH
C  ROW 6: PGRE, PINK, PLUM, PURP, SALM, SGRE, SIEN, SKBL, SBLU, SPGR
C  ROW 7: STBL, TAN , THIS, TURQ, VIOL, WHEA, GYEL, LCYA, BLU2, BLU3
C  ROW 8: BLU4, CYA2, CYA3, CYA4, GRE2, GRE3, GRE4, YEL2, YEL3, YEL4
C  ROW 9: ORA2, ORA3, ORA4, RED2, RED3, RED4, MAG1, MAG2, MAG3
C
      DATA (IRED(I),I=1,MAXCLR)/
     1  255,   0, 255,   0,   0, 255, 255,   0, 255, 154,
     2    0, 173, 138, 208,  47, 211, 127, 165,  95, 255,
     3  100,  85, 153,  72,   0, 178,  34, 255, 218, 192,
     4  205, 240, 105, 176,  50, 176, 102,   0, 107, 250,
     5  186,  60, 123,   0,  72, 199,  25,   0, 255, 218,
     6  152, 255, 221, 160, 250,  46, 160, 135, 106,   0,
     7   70, 210, 216,  64, 238, 245, 173, 224,   0,   0,
     8    0,   0,   0,   0,   0,   0,   0, 238, 205, 139,
     9 238, 205, 139, 238, 205, 139, 238, 205, 139/
C
      DATA (IGREEN(I),I=1,MAXCLR)/
     1  255,   0,   0,   0, 255,   0, 165, 255, 255, 205,
     2  100, 216,  43,  32,  79, 211, 255,  42, 158, 127,
     3  149, 107,  50,  61, 206,  34, 139, 215, 165, 192,
     4   92, 230, 105, 196, 205,  48, 205,   0, 142, 250,
     5   85, 179, 104, 250, 209,  21,  25,   0,  69, 112,
     6  251, 192, 160,  32, 128, 139,  82, 206,  90, 255,
     7  130, 180, 191, 224, 130, 222, 255, 255,   0,   0,
     8    0, 238, 205, 139, 238, 205, 139, 238, 205, 139,
     9  154, 133,  90,   0,   0,   0,   0,   0,   0/
C
      DATA(IBLUE(I),I=1,MAXCLR)/
     1  255,   0,   0, 255,   0, 255,   0, 255,   0,  50,
     2    0, 230, 226, 144,  79, 211, 212,  42, 160,  80,
     3  237,  47, 204, 139, 209,  34,  34,   0,  32, 192,
     4   92, 140, 105, 222,  50,  96, 170, 205,  35, 210,
     5  211, 113, 238, 154, 204, 133, 112, 128,   0, 214,
     6  152, 203, 221, 240, 114,  87,  45, 235, 205, 127,
     7  180, 140, 216, 208, 238, 179,  47, 255, 238, 205,
     8  139, 238, 205, 139,   0,   0,   0,   0,   0,   0,
     9    0,   0,   0,   0,   0,   0, 238, 205, 139/
C