Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdcota.F
CommitLineData
fe4da5cc 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