* 
* Makes plot explaining the mass split in Ian's Hqq analysis
* 
 macro hqq_Meq5C col=2
   
   hcol=1[col]0[col]

   h/del *
   v/del *
 
   histogram/file 1 ~/temp/hist/hqq_Meq5C.hist
   
   exec style_2by2
   opt utit
   opt liny
   set xval 0.2
   set xlab 1.7
   set ndvy 505
   
   tit 'M?eq!&&^5C! (GeV)' u
   histogram/plot 100 pe0
   histogram/plot 101 shist
   null 0 1 0 1 sab
   exec data   0.1 0.90 0.05 20 0.6
   exec signal 0.1 0.80 0.6 555 'BG'
   atit ! 'Events/(2 GeV)'
   
   null 50 100 0 0.5
   set hcol [hcol]
   set htyp 235
   histogram/plot 102 shist
* Make cut for lo-hi purity samples
   set plci 4
   arrow 92.0 92.0 0.4 0.0
   arrow 92.0 87.0 0.3 0.3
   arrow 92.0 97.0 0.3 0.3
   set plci 1
   set txci 4
   set chhe 0.6
   itx 84.0 0.35 'LO'
   itx 93.0 0.35 'HI'
   set txci 1
   
   null 0 1 0 1 sab
   exec signal 0.1 0.90 0.6 235 'HZ"5#bb&^[-]!qq&^_!' [col]
   itx $eval(0.1+0.07) 0.8 '95 GeV'
   atit ! 'Efficiency/(2 GeV)'
   set hcol 1
   set htyp 0