[Thread Prev][Thread Next][Index]
restore line style
Dear Ferreters,
I struggle a bit with the line style of the ppl aline command after
using plot/vs ... the below standalone script demonstrate the
problem.
first run as is, and get a figure with a grid separating the SHADE
cells. in this grid I want to plot some data points, so I uncomment
the line between !** lines, and rerun. in my ferret(5.53) the
gridlines disappear and are replaced by crosses near the edges.
so the question is; how can I restore the line style, or force ppl
aline to use a solid line instead of crosses when I include that
plot/vs command?
--
Helge
let IM=20
let JM=20
define axis/x=1:`IM`:1 xaxis
define axis/y=1:`JM`:1 yaxis
define grid/x=xaxis/y=yaxis hgrid
set grid hgrid
let vel=3.6*( 2*9.8*y*x )^0.5
shade/levels=50/hlimits=1:5/vlimits=1:10 vel
let labels={"A","B","C","D","E"}
let xpos={1,2,3,4,5}
let ypos={1,2,3,4,5}
let fontsize=0.2
!** uncomment next line to see problem:
!plot/over/vs xpos,ypos
!**
repeat/k=1:5 (\
let lab=labels[i=`k`] ;\
let lab2="@P1`lab`" ;\
let xc=xpos[i=`k`] ;\
let yc=ypos[i=`k`] ;\
let xc2=`xc`+1 ;\
let yc2=`yc`+3 ;\
LABEL `xc2`,`yc2`,-1,0,`fontsize` `lab2` )
! draw border between SHADE cells:
\cancel mode verify
def sym grid_x1 = int(($XAXIS_MIN))+0.5
def sym grid_x2 = int(($XAXIS_MAX))-0.5
def sym grid_y1 = int(($YAXIS_MIN))+0.5
def sym grid_y2 = int(($YAXIS_MAX))-0.5
def sym grid_xrange = (($grid_x2) - ($grid_x1))
def sym grid_yrange = (($grid_y2) - ($grid_y1))
def sym grid_x = ($grid_x1) + i-1
def sym grid_y = ($grid_y1) + i-1
def sym grid_IM = int(($grid_xrange))
def sym grid_JM = int(($grid_yrange))
repeat/i=1:`($grid_IM)` (\
ppl aline 0,`($grid_x)`,`($grid_y1)`,`($grid_x)`,`($grid_y2)` )
repeat/i=1:`($grid_JM)` (\
ppl aline 0,`($grid_x1)`,`($grid_y)`,`($grid_x2)`,`($grid_y)` )
set mode/last verify
[Thread Prev][Thread Next][Index]
Dept of Commerce /
NOAA /
OAR /
PMEL /
TMAP
Contact Us | Privacy Policy | Disclaimer | Accessibility Statement