| Pattern-filled PV wave contours in Postscript [message #602] |
Fri, 08 January 1993 09:14  |
wellsj
Messages: 3
Registered: January 1993
|
Junior Member |
|
|
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
_`\<,_
(_)/ (_)
* * * * * * * * * * * * * * * * * *
|
|
|
|
| Re: Pattern-filled PV wave contours in Postscript [message #696 is a reply to message #602] |
Mon, 11 January 1993 14:44  |
wellsj
Messages: 3
Registered: January 1993
|
Junior Member |
|
|
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
