#--P-A-T-------------------------------------------------------------------
#
#	oceans.cmd - Earth interrupted for oceans, filled with bathy
#
#--------------------------------------------------------------------------

reset
projection orthographic
data etopo5
delete graticule
add equator
delete window
origin 20, 0

# make little global overviews
window new g1 <0.03, 0.17, 0.81, 0.99>
window new g2 <0.19, 0.33, 0.81, 0.99>; rotate 60
window new g3 <0.35, 0.49, 0.81, 0.99>; rotate 60
window new g4 <0.51, 0.65, 0.81, 0.99>; rotate 60
window new g5 <0.67, 0.81, 0.81, 0.99>; rotate 60
window new g6 <0.83, 0.97, 0.81, 0.99>; rotate 60

window top
projection mollweide
select whole 0.98			## small border
pan 0, 0.05				## pan down a bit
origin 0, -160
interrupt north 40, 50, 80, 70, 70, 50
interrupt south 70, 50, 80, 70, 50, 40
-data instance e1 etopo5
data filter e1 (cell < 0)		## show only water (elevation < 0)
-cmap new oo red, 4, blue, 4, white
-cmap new ol darkolivegreen, 6, yellow, 6, red, white
data color e1 fitmap oo
add backfill e1, shading 8 0 hill etopo5 315, 30, 0.01, 2
color fill-background gray20		## color for blanked-out land
add key backfill <0.02, 0.98, .035, .065>, \
    label "Elevation (m), anchor centered, font clea14b, spacing 0.3, \
	color white", \
    label-pos top, cell-which every, cell-pos bottom, min -10000, max 0, \
    cell-options "anchor centered, font clea8, color gray80"
delete equator

6 window next; add backfill etopo5; del mer; del par; del win; whole

echo ~yInterrupted, shaded-relief oceans are ready to draw.

# $Id: oceans.cmd,v 1.6 2007/06/20 22:23:54 ian Exp $