#--P-A-T-------------------------------------------------------------------
#
#	sealevel.cmd - rising sea level
#
#--------------------------------------------------------------------------

reset
color label PG
-cmap new sealo black, 10, blue, 2, white
-cmap new seall forestgreen, 4, yellow, 3, red, 1, #990000
data etopo30
window grid 2, 3, 0.03, <0, 1, 0.10, 0.95>

# first (TL) pane: current sea level
origin 0, 0
projection miller
-data instance e1 etopo30
data color e1 fitmap sealo, 0, seall
add backfill e1, \
  shading 8, 0, hill, etopo30, 315, 45, 0.005
add label +<0.5, 0.04>, Current Level, anchor centered, font cour14
delete window
delete graticule

# next (MT) pane: +20 meters
window grid next
origin 0, 0
projection miller
-data instance e2 etopo30
data color e2 fitmap sealo, 20, seall
add backfill e2, \
  shading 8, 0, hill, etopo30, 315, 45, 0.005
add label +<0.5, 0.04>, +20 meters, anchor centered, font cour14
delete window
delete graticule

# next (MT) pane: +40 meters
window grid next
origin 0, 0
projection miller
-data instance e3 etopo30
data color e3 fitmap sealo, 40, seall, 
add backfill e3, \
  shading 8, 0, hill, etopo30, 315, 45, 0.005
add label +<0.5, 0.04>, +40 meters, anchor centered, font cour14
delete window
delete graticule

# First pane second row: current sea level, zoomed
window grid next
origin 0, 0
projection miller
add backfill e1, \
  shading 8, 0, hill, etopo30, 315, 45, 0.005
add window
delete window
delete graticule
#select zone -15, 40, -135, -30
select zone -5, 30, -125, -40

# Next pane second row: +20 meters, zoomed
window grid next
origin 0, 0
projection miller
add backfill e2, \
  shading 8, 0, hill, etopo30, 315, 45, 0.005
add window
delete window
delete graticule
select zone -5, 30, -125, -40
#select zone -15, 40, -135, -30

# Next pane second row: +40 meters, zoomed
window grid next
origin 0, 0
projection miller
add backfill e3, \
  shading 8, 0, hill, etopo30, 315, 45, 0.005
add window
delete window
delete graticule
select zone -5, 30, -125, -40
#select zone -15, 40, -135, -30

# Top window

window top
add label <0.5, 0.94>, Exaggerated Rising Sea Level, anchor centered, \
    font cour30b, spacing 0.25, cmap gray8, priority 1000
add key fill <0.02, 0.98, 0.05, 0.07>, window pane1, \
    label "Elevation (m), font clea14", label-pos bottom, \
    cell-options "font clea10", cell-pos bottom, cell-which ends

echo ~yExaggerated rising sea-level sampler ready to draw.

# $Id: sealevel.cmd,v 1.3 2007/06/21 16:04:33 ian Exp $