macro see_xtcorr
*
* This macro is to plot the correlation <x~t~> versus pT for phi=0
*  and versus phi for pT=0.3
*
op ndat
op utit
set lwid 8
set fwid 8
set hwid 8
set csiz 0.8
set asiz 0.8
set vsiz 0.8
set xval 0.3
set xwin 0.001
*set ywin 0.001
set bcol 1
set ylab 1.2
set xlab 2.2
set gsiz 0.6
set xmgl 3.5
set ymgl 2.5
set yval 0.05
*
nt/crea 99 bw 17 ! ! pt phi n x2 y2 xy xt yt t2 z2 x y t ro2 rs2 ros2 rl2
file = './pions-vs-phi.BW'
nt/rea 99 [file] ! ! ! -/%/
*
size 30 20
zone 2 1
*
* first, xt versus pT for phi=0
*
2dhisto 100 'xt vs pT' 40 0 1.99 40 -0.65 0.65
hi/plo 100
set ltyp 3
set plci 4
line 0 0 2 0
set plci 1
set ltyp 1
atit 'p?T! (GeV/c)' '"L#xt"G# (fm^2!/c)' 
nt/plo 99.xt%pt phi.eq.0.0 ! ! ! ls
text  1 -0.4 '[f]?p!=0' 0.8
*
* now plot xt versus phi for pT=0.3
*
set xval 200.0
****2dhisto 200 'xt vs phi' 40 0.0 6.23 40 -0.65 0.65
**** whoops! previous line was a screwup caught while addressing
**** first round of referee comments
2dhisto 200 'xt vs phi' 40 0.0 6.23 40 -0.65 0.65
hi/plo 200
set ltyp 3
set plci 4
line 0 0 6.5 0
set plci 1
set ltyp 1
atit '[f]?p! (rad)' 
nt/plo 99.xt%phi pt.eq.0.3 ! ! ! ls
text  1.3 -0.4 'p?T!=0.3 GeV/c' 0.8
return