Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdcol.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*CMZ : 3.21/02 29/03/94 15.41.26 by S.Giani
11*-- Author :
12 SUBROUTINE GDCOL(ICOL)
13C.
14C. ******************************************************************
15C. * *
16C. * Set line color to ICOL *
17C. * *
18C. * if ICOL > 0 set color temporarily *
19C. * if ICOL < 0 set color permanently *
20C. * if ICOL = 0 restore permanent color value *
21C. * *
22C. * ==>Called by : <USER>, <GXINT>, GDHEAD, GDRAW, GDSPEC,GDXYZ *
23C. * Author : P.Zanarini ; S.Giani ********* *
24C. * *
25C. ******************************************************************
26C.
27#include "geant321/gcdraw.inc"
28C.
29C. ------------------------------------------------------------------
30C.
31 KCOL=MOD(IABS(ICOL),16)
32 IF (ICOL.EQ.0) THEN
33 CALL MVBITS(LINATP,16,4,LINATT,16)
34 CALL MVBITS(LINATP,16,4,ITXATT,3)
35 ELSE IF (ICOL.GT.0) THEN
36 CALL MVBITS(KCOL,0,4,LINATT,16)
37 CALL MVBITS(KCOL,0,4,ITXATT,3)
38 ELSE
39 CALL MVBITS(KCOL,0,4,LINATT,16)
40 CALL MVBITS(KCOL,0,4,LINATP,16)
41 CALL MVBITS(KCOL,0,4,ITXATT,3)
42 ENDIF
43 END