5 * Revision 1.1.1.1 1995/10/24 10:20:22 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.26 by S.Giani
14 C. ******************************************************************
16 C. * Online display of the track trajectory *
18 C. * ==>Called by : <USER> *
19 C. * Authors : R.Brun, P.Zanarini, S.Giani **** *
21 C. ******************************************************************
23 #include "geant321/gcdraw.inc"
24 #include "geant321/gckine.inc"
25 #include "geant321/gcstak.inc"
26 #include "geant321/gctrak.inc"
29 DIMENSION MODE(NTRTYP),KCOLO(NTRTYP),VOLD(3)
30 SAVE MODE,KCOLO,IFIRST,IOFF,ILINE,UU,VV
31 DATA MODE /3, 1, 4, 1, 2, 1, 1, 1/
32 DATA KCOLO/4, 2, 1, 2, 3, 1, 6, 6/
35 C. ------------------------------------------------------------------
37 * IF(SLENG.GT.0..AND.STEP.LT.0.1)RETURN
39 CALL UCTOH('OFF ',IOFF,4,4)
40 CALL UCTOH('LINE',ILINE,4,4)
48 C Is THRZ option set on (R-Z projection)
49 C and the cut lateral (vertical or horizontal) ?
51 IF (ITHRZ.NE.IOFF) THEN
52 IF (ICUT.EQ.1.OR.ICUT.EQ.2) ITR3D=-ITRA
61 * Normal sequential tracking
63 CALL GDFR3D(VECT,1,UU(1),VV(1))
64 IF (ITRKOP.NE.ILINE) THEN
65 CALL IGPID(1,'Kine',ITRA,' ')
69 CALL GDFR3D(VECT,1,UU(2),VV(2))
70 IF (ITRKOP.EQ.ILINE) THEN
72 CALL ISLN(MODE(ITRTYP))
73 CALL IGPID(1,'Kine',ITRA,' ')
76 CALL IGPID(1,'Kine',ITRA,' ')
77 CALL IPM(1,UU(2),VV(2))
85 CALL GDFR3D(VECT,1,UU(2),VV(2))
86 IF (ITRKOP.NE.ILINE) THEN
87 CALL IGPID(1,'Kine',ITRA,' ')
88 CALL IPM(1,UU(2),VV(2))
91 CALL ISLN(MODE(ITRTYP))
92 VOLD(1)=VECT(1)-STEP*VECT(4)
93 VOLD(2)=VECT(2)-STEP*VECT(5)
94 VOLD(3)=VECT(3)-STEP*VECT(6)
95 CALL GDFR3D(VOLD,1,UU(1),VV(1))
96 CALL IGPID(1,'Kine',ITRA,' ')
98 IF (MODE(ITRTYP).NE.1) CALL ISLN(1)
102 C Reset ITR3D to 'standard projection'