This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdcol.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 *CMZ :  3.21/02 29/03/94  15.41.26  by  S.Giani
11 *-- Author :
12       SUBROUTINE GDCOL(ICOL)
13 C.
14 C.    ******************************************************************
15 C.    *                                                                *
16 C.    *       Set line color to ICOL                                   *
17 C.    *                                                                *
18 C.    *       if ICOL > 0 set color temporarily                        *
19 C.    *       if ICOL < 0 set color permanently                        *
20 C.    *       if ICOL = 0 restore permanent color value                *
21 C.    *                                                                *
22 C.    *    ==>Called by : <USER>, <GXINT>, GDHEAD, GDRAW, GDSPEC,GDXYZ *
23 C.    *       Author : P.Zanarini ; S.Giani  *********                 *
24 C.    *                                                                *
25 C.    ******************************************************************
26 C.
27 #include "geant321/gcdraw.inc"
28 C.
29 C.    ------------------------------------------------------------------
30 C.
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