7f90924706
Former-commit-id:7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly8485b90ff8[formerly9f8cb727a5[formerly bf53d06834caa780226121334ac1bcf0534c3f16]]]] Former-commit-id:8485b90ff8Former-commit-id:40aa780b3d[formerly33a67cdd82] [formerly 73930fb29d0c1e91204e76e6ebfdbe757414f319 [formerlya28d70b5c5]] Former-commit-id: a16a1b4dd44fc344ee709abbe262aeed58a8339b [formerlye5543a0e86] Former-commit-id:0c25458510
48 lines
2 KiB
Text
48 lines
2 KiB
Text
C************************************************************************
|
|
C* COLTBL *
|
|
C* *
|
|
C* This common area holds the color tables used to define device *
|
|
C* colors. *
|
|
C* *
|
|
C* Variables: *
|
|
C* CNAME CHAR* Name of color *
|
|
C* CABBR CHAR* Color abbreviation *
|
|
C* IRGUN INTEGER Red color component *
|
|
C* IGGUN INTEGER Green color component *
|
|
C* IBGUN INTEGER Blue color component *
|
|
C* NUMCOL INTEGER Number of colors in table *
|
|
C** *
|
|
C* Log: *
|
|
C* I. Graffman/RDS 8/85 *
|
|
C* S. Schotz/GSC 9/90 Reduce cname,colnam to 16 bytes *
|
|
C* M. desJardins/NMC 12/91 Change NCOL-->MXCLNM & put in gemprm *
|
|
C* Change MXCOL from 50 to 100 *
|
|
C* G. Krueger/EAI 11/95 Removed HLS;Added XNAME;Mod. RGB range *
|
|
C************************************************************************
|
|
PARAMETER ( MXCOL = 200 )
|
|
C*
|
|
CHARACTER cname*16, colnam*16, cabbr*4, cxname*32
|
|
COMMON /COLTBL/
|
|
+ cname (MXCLNM),
|
|
C! Color name in device color memory
|
|
+ icred (MXCLNM),
|
|
C! Red color component of CNAME
|
|
+ icgrn (MXCLNM),
|
|
C! Green color component of CNAME
|
|
+ icblue (MXCLNM),
|
|
C! Blue color component of CNAME
|
|
+ cxname (MXCLNM),
|
|
C! X Window System color name
|
|
+ colnam (MXCOL),
|
|
C! Color name in lookup table
|
|
+ cabbr (MXCOL),
|
|
C! Color name abbreviation
|
|
+ irgun (MXCOL),
|
|
C! Red color component of COLNAM
|
|
+ iggun (MXCOL),
|
|
C! Green color component of COLNAM
|
|
+ ibgun (MXCOL),
|
|
C! Blue color component of COLNAM
|
|
+ numcol
|
|
C! Number of colors in lookup table
|
|
C------------------------------------------------------------------------
|