[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdcota.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:22  cernlib
* Geant
*
*
#include "geant321/pilot.h"
#if defined(CERNLIB_CG)
*CMZ :  3.21/02 29/03/94  15.41.26  by  S.Giani
*-- Author :
      SUBROUTINE GDCOTA
*
**********************************************************************
*                                                                    *
* RAY-TRACING                                                        *
* Function: Create colour's code table for ray-tracing and CG        *
*                                                                    *
* Author: S. Giani                                                   *
*                                                                    *
**********************************************************************
*
#include "geant321/gcbank.inc"
#include "geant321/gcunit.inc"
#include "geant321/gcdraw.inc"
#include "geant321/gcflag.inc"
*
      PARAMETER (NLSHAD=25,HINCRM=0.5/NLSHAD)
* red
      ID=16
      SL=0.2
      DO 10 I=1,NLSHAD
         ID=ID+1
         SL=SL+HINCRM
         CALL IGHTOR(0.,SL,.9,R,G,B)
         CALL ISCR(1,ID,R,G,B)
   10 CONTINUE
* yellow
      ID=41
      SL=0.2
      DO 20 I=1,NLSHAD
         ID=ID+1
         SL=SL+HINCRM
         CALL IGHTOR(60.,SL,.9,R,G,B)
         CALL ISCR(1,ID,R,G,B)
   20 CONTINUE
* green
      ID=66
      SL=0.2
      DO 30 I=1,NLSHAD
         ID=ID+1
         SL=SL+HINCRM
         CALL IGHTOR(120.,SL,.9,R,G,B)
         CALL ISCR(1,ID,R,G,B)
   30 CONTINUE
* light blue
      ID=91
      SL=0.2
      DO 40 I=1,NLSHAD
         ID=ID+1
         SL=SL+HINCRM
         CALL IGHTOR(180.,SL,.9,R,G,B)
         CALL ISCR(1,ID,R,G,B)
   40 CONTINUE
* blue
      ID=116
      SL=0.2
      DO 50 I=1,NLSHAD
         ID=ID+1
         SL=SL+HINCRM
         CALL IGHTOR(240.,SL,.9,R,G,B)
         CALL ISCR(1,ID,R,G,B)
   50 CONTINUE
* violet
      ID=141
      SL=0.2
      DO 60 I=1,NLSHAD
         ID=ID+1
         SL=SL+HINCRM
         CALL IGHTOR(300.,SL,.9,R,G,B)
         CALL ISCR(1,ID,R,G,B)
   60 CONTINUE
*
  999 END
#endif
Commit	Line	Data
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