OK. Using PVwave, I'm having difficulty creating
a pattern-filled contour plot in a Postscript
format. I've created such a contour plot
on my X terminal, but when I switch my output
device to postscript, all my contours are filled
with blackness. Here's a sample of one
of my attempts.
PRO test
openr,1,"x.dat"
openr,2,"z.dat"
openr,5,"phi0af_x"
arr1=fltarr(32,32)
x=fltarr(32)
z=fltarr(32)
readf,1,x
readf,2,z
readf,5,arr1
close,1
close,2
close,5
loadct,0
pat1 = bytarr(3,3)
pat2 = bytarr(3,3)
pat1(1,*) = 255
pat1(*,1) = 255
for i =0,2 do pat2(i,i) = 255
pat3d = bytarr(3,3,2)
pat3d(*,*,0) = pat1
pat3d(*,*,1) = pat2
contour, arr1,x,z, /spline, c_labels=0, $
nlevels = 6, xrange=[-10, 10], yrange=[-2,2], $
path_filename = 'cpaths.dat', $
Ytitle = 'z (fm)', Xtitle = 'x (fm)', $
Charsize=1.75, Charthick=1.75, Font=-1
polycontour, 'cpaths.dat', pattern=pat3d
contour, arr1,x,z, /spline, c_labels=0, $
nlevels = 6, xrange=[-10, 10], yrange=[-2,2], $
/noerase, $
Ytitle = 'z (fm)', Xtitle = 'x (fm)', $
Charsize=1.75, Charthick=1.75, Font=-1
set_plot, 'ps'
device, xsize=8.0, ysize = 7.0,xoffset=0.0,yoffset=1.5, $
/Inches, Filename='phi0af_x.ps', /Palatino, /Bold, $
/Color
contour, arr1,x,z, /spline, c_labels=0, $
nlevels = 6, xrange=[-10, 10], yrange=[-2,2], $
path_filename = 'cpaths.dat', $
Ytitle = 'z (fm)', Xtitle = 'x (fm)', $
Font=0, Charsize = 2.0
polycontour, 'cpaths.dat', pattern=pat3d
contour, arr1,x,z, /spline, c_labels=0, $
nlevels = 6, xrange=[-10, 10], yrange=[-2,2], $
/noerase, $
Ytitle = 'z (fm)', Xtitle = 'x (fm)', $
Font=0, Charsize = 2.0
device, /close_file
END; test
Any suggestions?
Thanks in advance, Jack Wells
Oak Ridge National Lab
wellsj@orph14.phy.ornl.gov
Voice: (615) 576-5229
__o
_`\<,_
(_)/ (_)
* * * * * * * * * * * * * * * * * *
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
