* psi2smm-mass.kumac
* exec pub-plot psi2smm-mass 1. 0.7

* The Psi2s mass plot is ID 107 in this file. 10107 is background-only curve
hist/file 1 inclusive-fits-p52.hbook

* adjust the distance from y axis to edge of paper (xmgl) and to label (xlab)
set xmgl 2.4; set xlab 1.6

* set histogram maximum to a nice round number
max 107 360

* plot histogram + background curve on same page
h/plot 107; h/plot 10107 s

set chhe .6

* axis titles. Also, this is part b of a two part figure.
atitle 'M([m]^+![m]^-!) (GeV/c^2!)' 'Entries per 10 MeV/c^2!'
itx 3.46 320 (b) [y](2S) "5# [m]^+![m]^-!

* write the plot to ps, then convert to eps. Paw claims you can write
* directly to eps, but it calculates the bounding box incorrectly.
exec makeps psi2smm-mass.ps
sh ps2epsi psi2smm-mass.ps
sh eps2eps psi2smm-mass.epsi psi2smm-mass.eps
sh /bin/rm psi2smm-mass.ps
sh /bin/rm psi2smm-mass.epsi
close 1