\can mode verify
! Usage: go plot_cubesphere_stereo_north [com vals lons lats vlon vlat zoom hoff voff rotation]
!                                        [ $1  $2   $3   $4   $5   $6   $7   $8   $9     $10  ]
!
! Plot a cubed-sphere variable with a north-polar stereographic projection.
!
! See plot_cubesphere_stereo_demo.jnl for examples.
!
! atw 2008aug11

def sym pcssn_com "$1%shade/nolab%"

def sym pcsf_vals $2          !values to plot (PxQ)
def sym pcsf_lons $3          !data longitudes (P centers or P+1 corners/vertices)
def sym pcsf_lats $4          !data latitudes (Q centers or Q+1 corners/vertices)

let pcssn_vlon = $5"170"       !view longitude
let pcssn_vlat = $6"90"        !view latitude

let pcsf_zoom = $7"1"         !zoom factor (at 1, 40-90deg fills the screen)
let pcsf_hoff = $8"0"         !horizontal offset, in screens
let pcsf_voff = $9"0"         !vertical offset, in screens
let pcsf_rotate = $10"0"      !counterclockwise rotation angle, in degrees

! define the mapping factors for this viewpoint
! (this also defines the factor deg2rad)
go mp_stereographic_north `pcssn_vlon` `pcssn_vlat`

go plot_cubesphere_face 1 "($pcssn_com)"
go plot_cubesphere_face 2 "($pcssn_com)/ov/nolab"
go plot_cubesphere_face 3 "($pcssn_com)/ov/nolab"
go plot_cubesphere_face 4 "($pcssn_com)/ov/nolab"
go plot_cubesphere_face 5 "($pcssn_com)/ov/nolab"
!go plot_cubesphere_face 6 "($pcssn_com)/ov/nolab"

can sym pcssn_com
can sym pcsf_vals pcsf_lons pcsf_lats
can var pcssn_vlon pcssn_vlat
can var pcsf_zoom pcsf_hoff pcsf_voff pcsf_rotate

set mode/last verify