5 * Revision 1.1.1.1 1995/10/24 10:20:29 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.27 by S.Giani
14 C. ******************************************************************
16 C. * Draws track IT for which space points have been stored *
18 C. * If IT=0 draws all tracks *
20 C. * ==>Called by : <USER>, <GXINT> *
21 C. * Authors : R.Brun, P.Zanarini, S.Giani *
23 C. ******************************************************************
25 #include "geant321/gcbank.inc"
26 #include "geant321/gcdraw.inc"
28 INTEGER COLO(NTRTYP), MODE(NTRTYP)
31 C MODE(ITRTYP) and COLO(ITRTYP) are used by ISLN and GDCOL
32 C ITRTYP (the track type) correspond to :
34 C ITRTYP PARTICLE | HIGZ |
35 C ----------------------------------------
36 C 1 gammas | dotted blue |
37 C 2 electrons | solid red |
38 C 3 neutral | dot-dashed black |
39 C 4 hadrons | solid red |
40 C 5 muons | dashed green |
41 C 6 geantino | dot-dashed black |
42 C 7 cerenkov | dotted yellow |
43 C 8 ions | solid light b|
46 DATA MODE /3, 1, 4, 1, 2, 1, 3, 1/
47 DATA COLO/4, 2, 1, 2, 3, 1, 6, 5/
49 C. ------------------------------------------------------------------
51 CALL UCTOH('OFF ',IOFF,4,4)
52 CALL UCTOH('LINE',ILINE,4,4)
65 IF(N2.GT.NXYZ)GO TO 70
71 10 IF(IPOINT.GT.JX+IQ(JX-1))GO TO 50
73 IF(NPOINT.LE.0)GO TO 50
78 C Line style and color code
88 IF(IIPL.GT.NPOINT)IIPL=NPOINT
92 C Is THRZ option set on (R-Z projection)
93 C and the cut lateral (vertical or horizontal) ?
95 IF (ITHRZ.NE.IOFF) THEN
96 IF (ICUT.EQ.1.OR.ICUT.EQ.2) ITR3D=-I
101 CALL GDFR3D(Q(IPOINT+3*IPF-1),NP,U,V)
103 IF (IDVIEW.EQ.0) THEN
105 IF (ITRKOP.EQ.ILINE.AND.NP.GT.1) THEN
107 CALL IGPID(1,'Kine',I,' ')
111 CALL IGPID(1,'Kine',I,' ')
112 CALL IPM(1,U(IP),V(IP))
118 CALL IGPID(1,'Kine',I,' ')
124 IF(IPF.LT.NPOINT)GO TO 20
125 40 IPOINT=IPOINT+3.*Q(IPOINT)+2.
133 CALL GDCOL1(IBITS(LINATP,16,4))
141 C Reset ITR3D to 'standard projection'