#--P-A-T-------------------------------------------------------------------
#
#	scale.cmd - scale pattern sampler
#
#--------------------------------------------------------------------------

window grid 3, 3, 0.02, <0, 1, .1, 1>

color meridian gray40
color parallel gray40
color fill-background white
color projection-name white
-cmap new scale-cm #CCCCFF, 2, blue, 8, black, 8, red, 2, #FFCCCC

# --- first row ---

projection lcea
select zone 25, 50, -125, -65		## center on usa
origin 37 30, -95
graticule 10

add projection-name +<0.5, 0.1>, flags border, anchor centered, font clea10
add backfill scale hk, 0.9, 1.1, scale-cm

data coast
-data instance c1 coast
data detail c1 4
data color c1 gray70
add c1

data lake
-data instance l1 lake
data detail l1 4
data color l1 gray70
add l1

data island
-data instance i1 island
data detail i1 4
add i1

data country
-data instance c2 country
data detail c2 4
data color c2 gray70
add c2

window grid next
add c1; add l1; add i1; add c2
add projection-name +<0.5, 0.1>, flags border, anchor centered, font clea10
add backfill scale hk, 0.9, 1.1, scale-cm
projection aeac
standard 35, 45

window grid next
add c1; add l1; add i1; add c2
add projection-name +<0.5, 0.1>, flags border, anchor centered, font clea10
add backfill scale hk, 0.9, 1.1, scale-cm
projection gnomonic

# --- second row ---

window grid next
add c1; add l1; add i1; add c2
add projection-name +<0.5, 0.1>, flags border, anchor centered, font clea10
add backfill scale hk, 0.9, 1.1, scale-cm
projection mercator

window grid next
add c1; add l1; add i1; add c2
add projection-name +<0.5, 0.1>, flags border, anchor centered, font clea10
add backfill scale hk, 0.9, 1.1, scale-cm
projection polyconic

window grid next
add c1; add l1; add i1; add c2
add projection-name +<0.5, 0.1>, flags border, anchor centered, font clea10
add backfill scale hk, 0.9, 1.1, scale-cm
projection orthographic

# --- third row ---

window grid next
add c1; add l1; add i1; add c2
add projection-name +<0.5, 0.1>, flags border, anchor centered, font clea10
add backfill scale hk, 0.9, 1.1, scale-cm
projection equirectangular

window grid next
add c1; add l1; add i1; add c2
add projection-name +<0.5, 0.1>, flags border, anchor centered, font clea10
add backfill scale hk, 0.9, 1.1, scale-cm
projection modified-stereographic
set m 5
set a1 0.98879
set a3 -0.050909
set a5 0.085528
zone 0, 70, -175, -25		## avoid wild, overlapping edges

window grid next
add c1; add l1; add i1; add c2
add projection-name +<0.5, 0.1>, flags border, anchor centered, font clea10
add backfill scale hk, 0.9, 1.1, scale-cm
projection stereographic; zone off

# --- top level ---

window top
add key fill <0.02, 0.98, .045, .075>, \
    label "Scale Distortion Pattern (h or k), anchor centered, font cour14", \
    label-position bottom, cell-which ends, cell-pos bottom, \
    cell-options "anchor centered, font cour10", window pane1

color key-label gray80

echo ~yScale distortion pattern sampler ready to draw.~0

# $Id: scale.cmd,v 1.4 2007/06/22 07:00:08 ian Exp ian $