[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