In article <wellsj-080193121116@phym47.phy.ornl.gov>,
wellsj@orph14.phy.ornl.gov (Jack C. Wells) wrote:
>
> 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
The people at Precision Visuals have informed me
that my problem is their problem (i.e. I found
a bug in their Postscript driver. They said the
bug would be fixed in a to-be-released revision
of PV wave. 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
