\cancel mode verify

!**************************************************************
! Description: Plot graticules (lines) at specified angles (relative to correlation)
!
! Usage: go taylor_agraticule rmax [PLOT qualifiers=/line=1] [amin=10] [amax=90] [adelta=10] [quadrants=1]
!
! arg 1: maximum radius of graticules 
! arg 2: plot command qualifiers
! arg 3: minimum angle of graticules
! arg 4: maximum angle of graticules 
! arg 5: delta angle of graticules
! arg 6: quadrants (1 = normal diagram (R positive); 2 = full diagram (R negative & positive)
!
! Example:
!           yes? go taylor_frame.jnl 3 0.2 " " "Standard Deviation (units)"
!           yes? go taylor_agraticule.jnl 3 " " 10 90 10 
!           yes? go taylor_agraticule.jnl 3 " " 91 99 1
!
! Notes:
!
! Calls: 
!
! Author: Patrick Brockmann
! Contact: Patrick.Brockmann@ipsl.jussieu.fr
! $Date: 2012-06-06 10:44:30 -0700 (Wed, 06 Jun 2012) $
! $Name: FAST_672_1_0 $
! $Revision: 14116 $
! History:
! Modification:
!
!**************************************************************

let ME_rmax=$1
def sym ME_qualifiers=$2%/line=1%
let ME_amin=$3%10%
let ME_amax=$4%90%
let ME_adelta=$5%10%
def sym quadrants $6%1%      !can be 1 (normal case) or 2 (when R's are negative & positive)


! ----------------------------------------------
let ME_angle  =  j/100
let ME_xx = ME_rmax*cos(acos(ME_angle))
let ME_yy = ME_rmax*sin(acos(ME_angle))
repeat/j=`ME_amin`:`ME_amax`:`ME_adelta` plot/nolab/over/vs($ME_qualifiers) {0,`ME_xx`},{0,`ME_yy`}
if ($quadrants%|2>TRUE|*>FALSE%) then
  let ME_xx = ME_rmax*cos(acos(ME_angle*(-1)))
  repeat/j=`ME_amin`:`ME_amax`:`ME_adelta` plot/nolab/over/vs($ME_qualifiers) {0,`ME_xx`},{0,`ME_yy`}
endif



!**************************************************************
cancel variable ME_*
cancel symbol ME_*

!**************************************************************
set mode verify

