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