! pal_orange_purple.jnl
! Demonstrate use of the orange_purple palette, included with Ferret V5.80 and higher

cancel mode logo
set window/size=0.5

use coads_climatology
can region
let sst_ave = sst[t=@ave,y=@ave]
fill/palette=orange_purple/lev=20/title="SST Anomoly" sst[L=1]-sst_ave
go fland 
label/nouser `($ppl$xorg)+0.1`,`($ppl$ylen)+0.2`,0, 0, 0.25  "@ASorange_purple"

frame/file=orange_purple.gif