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