This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdcota.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:22  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 #if defined(CERNLIB_CG)
11 *CMZ :  3.21/02 29/03/94  15.41.26  by  S.Giani
12 *-- Author :
13       SUBROUTINE GDCOTA
14 *
15 **********************************************************************
16 *                                                                    *
17 * RAY-TRACING                                                        *
18 * Function: Create colour's code table for ray-tracing and CG        *
19 *                                                                    *
20 * Author: S. Giani                                                   *
21 *                                                                    *
22 **********************************************************************
23 *
24 #include "geant321/gcbank.inc"
25 #include "geant321/gcunit.inc"
26 #include "geant321/gcdraw.inc"
27 #include "geant321/gcflag.inc"
28 *
29       PARAMETER (NLSHAD=25,HINCRM=0.5/NLSHAD)
30 * red
31       ID=16
32       SL=0.2
33       DO 10 I=1,NLSHAD
34          ID=ID+1
35          SL=SL+HINCRM
36          CALL IGHTOR(0.,SL,.9,R,G,B)
37          CALL ISCR(1,ID,R,G,B)
38    10 CONTINUE
39 * yellow
40       ID=41
41       SL=0.2
42       DO 20 I=1,NLSHAD
43          ID=ID+1
44          SL=SL+HINCRM
45          CALL IGHTOR(60.,SL,.9,R,G,B)
46          CALL ISCR(1,ID,R,G,B)
47    20 CONTINUE
48 * green
49       ID=66
50       SL=0.2
51       DO 30 I=1,NLSHAD
52          ID=ID+1
53          SL=SL+HINCRM
54          CALL IGHTOR(120.,SL,.9,R,G,B)
55          CALL ISCR(1,ID,R,G,B)
56    30 CONTINUE
57 * light blue
58       ID=91
59       SL=0.2
60       DO 40 I=1,NLSHAD
61          ID=ID+1
62          SL=SL+HINCRM
63          CALL IGHTOR(180.,SL,.9,R,G,B)
64          CALL ISCR(1,ID,R,G,B)
65    40 CONTINUE
66 * blue
67       ID=116
68       SL=0.2
69       DO 50 I=1,NLSHAD
70          ID=ID+1
71          SL=SL+HINCRM
72          CALL IGHTOR(240.,SL,.9,R,G,B)
73          CALL ISCR(1,ID,R,G,B)
74    50 CONTINUE
75 * violet
76       ID=141
77       SL=0.2
78       DO 60 I=1,NLSHAD
79          ID=ID+1
80          SL=SL+HINCRM
81          CALL IGHTOR(300.,SL,.9,R,G,B)
82          CALL ISCR(1,ID,R,G,B)
83    60 CONTINUE
84 *
85   999 END
86 #endif