opt *
set *
igset *
hist/delete *
vect/delete *

opt nbox
opt nfil
opt ndat
opt nsta

set cfon -130
set gfon -130
set lfon -130
set tfon -130
set vfon -130
set txfp -130

fort/file 66 3piExotic.ps
metafile 66 -114

set xsiz 20
set ysiz 28
set xmgr 0.5
set ymgu 1.70
set ymgl 1.75
set ywin 0.85
set vsiz 0.40

vec/read m852,a1pp,e1pp,a2pp,e2pp,a2mp,e2mp,aall,eall e852.dat
vec/read mexo,aexo,eexo rh1600.dat
vec/crea mmex(2) R
vec/read mBC1,nBC1 condo1.dat
vec/read mBC2,nBC2 condo2.dat

hist/create/1d 104 ' ' 31 0.78 2.02
hist/create/1d 111 ' ' 63 0.65 3.80
hist/create/1d 121 ' ' 30 1.00 2.50

hist/put/conten 104 aall ; add 104 104 4 5E-4 5E-4
hist/put/conten 111 nBC1
hist/put/conten 121 nBC2

zone 1 2 1
null 0.75 2.0 0.0 80
set hwid 7 ; set htyp 0 ; hist/plot 4 S
set chhe 0.6
igset pmci 6 ; sigma yplot=a1pp*1E-3 ; symbols m852 yplot 40 23 0.3
igset txci 6 ; itx 1.10 43.0 '[1^++!]'
igset pmci 4 ; sigma yplot=a2mp*1E-3 ; symbols m852 yplot 40 21 0.3
igset txci 4 ; itx 1.50 28.0 '[2^-+!]'
igset pmci 3 ; sigma yplot=a2pp*1E-3 ; symbols m852 yplot 40 20 0.3
igset txci 3 ; itx 1.18 20.0 '[2^++!]'
igset plci 2 ; igset fais 1 ; igset faci 2
sigma yplot=aexo*1E-3 ; hist 24 mexo yplot HFN
igset txci 2 ; itx 1.65  5.0 '[1^-+!]'

igset txci 1
set chhe 0.8
set txal 20
itx 1.4  84.0 'Production of [p]^"A#![p^+!p^-!]'
set chhe 0.6
set tang 90
itx 0.65 40.0 'Thousands of Events per 40 MeV'

set tang 0
set txal 0
set chhe 0.55
itx 1.4 70 '[p^-!]p"5#[p^-!p^+!p^-!]p'
itx 1.4 63 '(18 GeV/c)'
set chhe 0.6 ; igset txci 6 ; itx 0.8 70 'Pion Beam'
igset txci 1

zone 1 2 2 s
null 0.75 2.0 0.0 60
set hwid 7 ; set hcol 1707 ; set htyp 345 ; hist/plot 111 S
set hwid 7 ; set hcol 1202 ; set htyp 354 ; hist/plot 121(1.025:2.0) S
set chhe 0.6
set tang 90
itx 0.65 15.0 'Events per 50 MeV'

set tang 0
set chhe 0.55
igset txci 7 ; itx 1.4 50 '[g]p"5#[p^-!p^+!p^-!][D^++!]'
igset txci 2 ; itx 1.4 45 '[g]p"5#[p^+!p^+!p^-!]n'
igset txci 1 ; itx 1.4 40 '(19 GeV)'
igset lwid 5 ; igset plci 2 ; arrow 1.78 1.78 45 35
set chhe 0.7
igset txal 20 ; igset txci 1
itx 1.4 -8.0 'Invariant Mass of [p^"A#!p^+!p^-!] System (GeV)'
igset txal 0
set chhe 0.6 ; igset txci 6 ; itx 0.8 50 'Photon Beam'
igset txci 1

close 66