1 cdaq  1.1       subroutine h_one_ev_topside_view
 2           *
 3           * $Log:$
 4           
 5                 implicit none
 6           
 7                 include 'hms_data_structures.cmn'
 8                 include 'hms_tracking.cmn'
 9                 include 'hms_geometry.cmn'
10                 include 'hms_calorimeter.cmn'
11                 include 'gen_event_info.cmn'
12                 include 'hms_one_ev.par'
13                 include 'gen_one_ev_gctrak.cmn'
14                 include 'gen_one_ev_gckine.cmn'
15                 include 'gen_one_ev_gcvolu.cmn'
16           
17                 call gdopen (7)
18                 call gsatt ('HDX1','SEEN',0)
19                 call gsatt ('HDX2','SEEN',0)
20                 call gdrawt (4.4,2.,'TOP VIEW',.5,0.,2,0)
21                 call gdrawt (4.4,1.,'HMS',.5,0.,2,0)
22 cdaq  1.1       call gdraw ('HHUT', 270., 0., 90., 4.4,5.5, 0.035, 0.07)
23                 call h_one_ev_track
24                 call gdhits ('*   ', '*   ', 0, 850, 0.1)
25                 call gdhits ('HOD1', 'HDY1', 0, 850, 0.1)
26                 call gdhits ('HOD2', 'HDY2', 0, 850, 0.1)
27                 call gdclos (7)
28           *     
29           *     
30           *     Other side view
31           *     
32                 call gdopen (6)
33                 call gsatt ('HDY1','SEEN',0)
34                 call gsatt ('HDY2','SEEN',0)
35                 call gdrawt (14.75,2.,'SIDE VIEW',.5,0.,2,0)
36                 call gdraw ('HHUT', 90., 90., 90., 14.75,5.5,0.035, 0.07)
37                 call h_one_ev_track
38                 call gdhits ('*   ', '*   ', 0, 850, 0.1)
39                 call gdclos (6)
40                 call gdshow (7)
41                 call gdshow (6)
42                 call gdshow (7)
43 cdaq  1.1       call gdelet (6)
44                 call gdelet (7)
45                 
46                 end