5 * Revision 1.1.1.1 1995/10/24 10:20:22 cernlib
9 #include "geant321/pilot.h"
10 #if defined(CERNLIB_CG)
11 *CMZ : 3.21/02 29/03/94 15.41.26 by S.Giani
15 **********************************************************************
18 * Function: Create colour's code table for ray-tracing and CG *
22 **********************************************************************
24 #include "geant321/gcbank.inc"
25 #include "geant321/gcunit.inc"
26 #include "geant321/gcdraw.inc"
27 #include "geant321/gcflag.inc"
29 PARAMETER (NLSHAD=25,HINCRM=0.5/NLSHAD)
36 CALL IGHTOR(0.,SL,.9,R,G,B)
45 CALL IGHTOR(60.,SL,.9,R,G,B)
54 CALL IGHTOR(120.,SL,.9,R,G,B)
63 CALL IGHTOR(180.,SL,.9,R,G,B)
72 CALL IGHTOR(240.,SL,.9,R,G,B)
81 CALL IGHTOR(300.,SL,.9,R,G,B)