#--P-A-T-------------------------------------------------------------------
#
#	nzquake.cmd - earthquake activity near New Zealand, 1980's
#
#--------------------------------------------------------------------------

reset

projection stereographic
zone -45, -7, 154, 197
whole 0.90
pan -0.115, .04
grat 10

data coast; data island; data plates

-data instance nzq_plates plates
-color new nzq_plates_color white
color weight nzq_plates_color 2
data color nzq_plates nzq_plates_color

echo Loading ~RP~0reliminary ~RD~0etermination of ~RE~0picenters data for 1980s...
data pde80
-data instance nzq_pde pde80
data scale nzq_pde magnitude
echo "    Filtering for main window..."
data filter nzq_pde zone
echo "    Sorting for main window..."
data reverse-sort nzq_pde depth
-cmap new nzq_pde80 red, orange, yellow, white, cyan, 2, purple
data color nzq_pde mapexpr depth, nzq_pde80

data landmask5
add backfill landmask5

add compass -40, -170, radius 20, label "N, font helv18b"
add nzq_plates 62
add nzq_pde 64

add label <0.5, 0.95>, New Zealand Epicenters (PDE 1980s), \
    flags border, anchor centered, font luci24b, spacing 0.15, cmap gray8

add key dataset nzq_pde color, <.03, .07, 0.45, 0.9>, \
    label "Depth, font clea14, color white", \
    label-pos bottom, cell-which all, \
    cell-options "font clea8, color black", max 700

add label <0.05, 0.39>, km, anchor centered, font clea14, color gray60

add key dataset nzq_pde scale, <0.14, 0.18, 0.45, 0.9>, \
    label "Magnitude, font clea14, color white", \
    label-pos bottom, cell-pos right, cell-options "font cour10"

add scale-bar 0.08, 0.62, below, clea14

# --- Overview window --------------------------------------------------------

window new nzq-overview <0.02, 0.29, 0.02, 0.40>
projection orthographic
zone off
origin 0, -165
whole 0.97
grat 30
del window

-data instance nzq_coast2 coast
data color nzq_coast2 black

-data instance nzq_island2 island
data color nzq_island2 black

-data instance nzq_pde2 pde80
data scale nzq_pde2 1
echo "    Filtering for overview..."
data filter nzq_pde2 (mag > 1)
echo "    Sorting for overview..."
data reverse-sort nzq_pde2 depth
data color nzq_pde2 mapexpr depth, pde80
data symbol nzq_pde2 dot

-data instance nzq_plates2 plates
-color new nzq_plates2_color white
data color nzq_plates2 nzq_plates2_color
add nzq_plates2 64

add nzq_coast2 62
add nzq_island2 62
add nzq_pde2 66
add zone -45, -7, 154, 197, blue

data landmask5
add backfill landmask

echo ~yNew Zealand earthquake activity map for the 1980's is ready to draw.

# $Id: nzquake.cmd,v 1.7 2007/07/02 05:12:12 ian Exp $