Hi,
I'm trying to get some postscript output using the arrow command to plot
a series of
arrows. I have tried everything and all I seem to get is a very tiny
plot (1mm), or one
whose features do not resemble anything on the screen. I have tried
postscript output
with some of the examples given and these seem to work fine. Any ideas
would be
appreciated.
many thanks,
Michael
pro draw_vectors
n = 36
nx = 158
ny = 216
cpsrc = INTARR(2,n)
cpref = INTARR(2,n)
cpref[0,0:35] =
[3,15,63,152,199,164,145,56,42,44,57,76,93,99,92,84,76,96,10 8,71,49,120,134,148,163,174,172,154,137,121,130,134,144,137, 139,130]
cpref[1,0:35] =
[70,103,133,130,105,10,6,19,69,90,107,110,98,81,76,82,72,51, 27,34,53,88,105,108,101,82,51,30,21,26,35,59,65,70,79,79]
cpsrc[0,0:35] =
[5,5,66,150,203,167,144,50,45,45,58,73,87,93,87,79,76,88,99, 64,50,115,134,147,153,162,163,154,134,126,133,131,136,134,13 2,126]
cpsrc[1,0:35] =
[49,113,133,133,105,27,23,30,82,93,111,111,101,87,84,87,78,6 9,44,53,69,97,113,114,109,94,74,54,39,41,51,74,75,86,89,88]
for i=0, n-1 do begin
arrow, cpsrc[0,i], nx-cpsrc[1,i], cpref[0,i], nx-cpref[1,i], $
HTHICK=0.05, HSIZE=5, /DATA
endfor
end
pro velocity
window, /free, XSIZE=200, YSIZE=200
SET_PLOT, 'PRINTER'
DEVICE, FILENAME = 'vector.eps', XSIZE=4, YSIZE=4
draw_vectors
DEVICE, /CLOSE
SET_PLOT, 'WIN'
end
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
