5 * Revision 1.1.1.1 1995/10/24 10:20:23 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.26 by S.Giani
14 C. ******************************************************************
16 C. * Set line width to LW (between 1 to 5) : *
17 C. * if LW > 0 set line width temporarily *
18 C. * if LW < 0 set line width permanently *
19 C. * if LW = 0 restore permanent line width value *
21 C. * ==>Called by : <USER>, <GXINT>, GDHEAD, GDTREE *
22 C. * Author : P.Zanarini ; S.Giani ********* *
24 C. ******************************************************************
26 #include "geant321/gcdraw.inc"
28 C. ------------------------------------------------------------------
30 *** LINW=MOD(IABS(LW),8)
32 CALL MVBITS(LINATP,7,3,LINATT,7)
33 ELSE IF (LW.GT.0) THEN
34 CALL MVBITS(LW,0,3,LINATT,7)
36 CALL MVBITS(LW,0,3,LINATT,7)
37 CALL MVBITS(LW,0,3,LINATP,7)