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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:22  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.26  by  S.Giani
*-- Author :
      SUBROUTINE GDCOL1(ICOL)
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       Change the line color to ICOL                            *
C.    *                                                                *
C.    *       The color table is :                                     *
C.    *                                                                *
C.    *       1 = White (Black is suggested for paper outputs)         *
C.    *       2 = Red                                                  *
C.    *       3 = Green                                                *
C.    *       4 = Blue                                                 *
C.    *                                                                *
C.    *       5 = Yellow                                               *
C.    *       6 = Cyan                                                 *
C.    *       7 = Magenta                                              *
C.    *       8 = Orange                                               *
C.    *                                                                *
C.    *    ==>Called by : GDRAWP, GDRAWT                               *
C.    *       Author : P.Zanarini   *********                          *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gcdraw.inc"
C
      SAVE IOLD
      DATA IOLD/-1/
C.
C.    ------------------------------------------------------------------
C.
      LCOL=MOD(IABS(ICOL),16)
      KCOL=LOOKTB(LCOL)
C
      IF (KCOL.NE.IOLD) THEN
         IOLD=KCOL
         CALL ISPLCI(KCOL)
         CALL ISTXCI(KCOL)
         CALL ISPMCI(KCOL)
         CALL ISFACI(KCOL)
      ENDIF
      END
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	*CMZ : 3.21/02 29/03/94 15.41.26 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GDCOL1(ICOL)
	13	C.
	14	C. ******************************************************************
	15	C. * *
	16	C. * Change the line color to ICOL *
	17	C. * *
	18	C. * The color table is : *
	19	C. * *
	20	C. * 1 = White (Black is suggested for paper outputs) *
	21	C. * 2 = Red *
	22	C. * 3 = Green *
	23	C. * 4 = Blue *
	24	C. * *
	25	C. * 5 = Yellow *
	26	C. * 6 = Cyan *
	27	C. * 7 = Magenta *
	28	C. * 8 = Orange *
	29	C. * *
	30	C. * ==>Called by : GDRAWP, GDRAWT *
	31	C. * Author : P.Zanarini ********* *
	32	C. * *
	33	C. ******************************************************************
	34	C.
	35	#include "geant321/gcdraw.inc"
	36	C
	37	SAVE IOLD
	38	DATA IOLD/-1/
	39	C.
	40	C. ------------------------------------------------------------------
	41	C.
	42	LCOL=MOD(IABS(ICOL),16)
	43	KCOL=LOOKTB(LCOL)
	44	C
	45	IF (KCOL.NE.IOLD) THEN
	46	IOLD=KCOL
	47	CALL ISPLCI(KCOL)
	48	CALL ISTXCI(KCOL)
	49	CALL ISPMCI(KCOL)
	50	CALL ISFACI(KCOL)
	51	ENDIF
	52	END