1 cdaq  1.1       subroutine h_one_ev_head_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                 character*5 scinname 
18                 integer iscin
19                 character*4 blockname
20                 character*5 layername
21                 integer ilayer
22 cdaq  1.1       integer irow
23           
24                 call gdopen (5)
25           *     first, get all the background junk out of the picture...
26                 call gsatt ('HDX1','SEEN',0)
27                 call gsatt ('HDX2','SEEN',0)
28                 call gsatt ('HDY1','SEEN',0)
29                 call gsatt ('HDY2','SEEN',0)
30                 call gsatt ('SHOW','SEEN',0)
31                 do iscin=1,LOWER_HODO_X_PADDLES
32                    write(scinname,'(a,a)') 'H1X',char(64 + iscin)
33                    call gsatt (scinname,'SEEN',0)
34                 enddo
35                 do iscin=1,LOWER_HODO_Y_PADDLES
36                    write(scinname,'(a,a)') 'H1Y',char(64 + iscin)
37                    call gsatt (scinname,'SEEN',0)
38                 enddo
39                 do iscin=1,UPPER_HODO_X_PADDLES
40                    write(scinname,'(a,a)') 'H2X',char(64 + iscin)
41                    call gsatt (scinname,'SEEN',0)
42                 enddo
43 cdaq  1.1       do iscin=1,UPPER_HODO_Y_PADDLES
44                    write(scinname,'(a,a)') 'H2Y',char(64 + iscin)
45                    call gsatt (scinname,'SEEN',0)
46                 enddo
47                 do ilayer =1,HMAX_CAL_COLUMNS
48                    write(layername,'(a,i1)') 'LAY',ilayer
49                    call gsatt (layername,'SEEN',0)
50                    do irow = 1,HMAX_CAL_ROWS
51                       write(blockname,'(a,i1,a)') 'BL',ilayer,char(64 + irow)
52                       call gsatt (blockname,'SEEN',0)
53                    enddo
54                 enddo         
55                 call gdhits ('*   ', '*   ', 0, 850, 0.3)
56                 call gdrawt (3.,2.,'HEAD ON VIEW',.5,0.,2,0)
57                 call gdrawt (3.,1.,'HMS',.5,0.,2,0)
58                 call gdraw ('HHUT', 0., 0., 90., 10.0, 10.5,0.14,0.14)
59                 call h_one_ev_track
60                 call gdclos (5)
61                 call gdshow (5)
62                 call gdshow (5)
63                 
64 cdaq  1.1 *     It's already been stored, so now make everything visible again for
65           *     the next pass
66           *     
67                 call gsatt ('HDX1','SEEN',1)
68                 call gsatt ('HDY1','SEEN',1)
69                 call gsatt ('HDX2','SEEN',1)
70                 call gsatt ('HDY2','SEEN',1)
71                 do iscin=1,LOWER_HODO_X_PADDLES
72                    write(scinname,'(a,a)') 'H1X',char(64 + iscin)
73                    call gsatt (scinname,'SEEN',1)
74                 enddo
75                 do iscin=1,LOWER_HODO_Y_PADDLES
76                    write(scinname,'(a,a)') 'H1Y',char(64 + iscin)
77                    call gsatt (scinname,'SEEN',1)
78                 enddo
79                 do iscin=1,UPPER_HODO_X_PADDLES
80                    write(scinname,'(a,a)') 'H2X',char(64 + iscin)
81                    call gsatt (scinname,'SEEN',1)
82                 enddo
83                 do iscin=1,UPPER_HODO_Y_PADDLES
84                    write(scinname,'(a,a)') 'H2Y',char(64 + iscin)
85 cdaq  1.1          call gsatt (scinname,'SEEN',1)
86                 enddo
87                 do ilayer =1,HMAX_CAL_COLUMNS
88                    write(layername,'(a,i1)') 'LAY',ilayer
89                    call gsatt (layername,'SEEN',1)
90                    do irow = 1,HMAX_CAL_ROWS
91                       write(blockname,'(a,i1,a)') 'BL',ilayer,char(64 + irow)
92                       call gsatt (blockname,'SEEN',1)
93                    enddo
94                 enddo
95                 call gdelet (5)
96                 
97                 end