#--P-A-T-------------------------------------------------------------------
#
#	alaska.cmd - Modified Stereographic projection set up for
#		Alaska.  Parameters from Snyder's "Working Manual".
#
#--------------------------------------------------------------------------

reset

projection modified-stereographic
-point alaska_origin 64, -152
set m 6					## number of variables
set a1  0.9972523; set b1  0.0
set a2  0.0052513; set b2 -0.0041175
set a3  0.0074606; set b3  0.0048125
set a4 -0.0153783; set b4 -0.1968253
set a5  0.0636871; set b5 -0.1408027
set a6  0.3660976; set b6 -0.2937382

graticule 5, 10
zone 50, 80, -195, -120			## show only this area
origin alaska_origin			## origin near alaska
pan -0.075, -0.015			## pan up a bit for label & key
zoom 0.95				## back off a bit to shrink

delete window-border

add arctic-circles; color arctic gray60

data coast; add coast			## declare and add datasets
data island; add island
data state; add stat

data country
-data instance country1 country		## make instance
data color country1 gray80
add country1

data lake
-data instance lake1 lake; add lake1
data color lake1 gray80

-cmap new alaska-scale red, 12, #330000, black, #000033, 12, blue
add backfill scale k, 0.95 1.05 alaska-scale

add label <0.18, 0.96>, Modified-Stereographic, \
    anchor centered, font cour14, spacing 0.1, color gray80
add label <0.18, 0.92>, Conformal Projection of, \
    anchor centered, font cour14, spacing 0.1, color gray80

add label <0.15, 0.70>, Alaska, anchor centered, font luci40b, \
    spacing 0.1, rot 48

add key fill <0.03, 0.98, 0.03, 0.05>, \
    label "k  (scale distortion along parallels), anchor centered, \
    font cour14", label-pos top, cell-which ends, cell-pos bot, \
    cell-options "anchor centered, font cour10"
color key-label gray80
add scale-bar <0.5, 0.2>, right, cour14	## add scale bar

window new alaska-overview <0.76, 0.98, 0.76, 0.98>
projection orthographic
origin alaska_origin
zone off				## remove restricted zone
add zone 50, 80, -200, -120, red, 200	## but show where it was
delete window-border
graticule 30
data landmask5				## solid filled land
add back landmask5
whole					## show whole projection

echo ~yModified-Stereographic Conformal Projection of Alaska is ready to draw.~0

# $Id: alaska.cmd,v 1.10 2008/01/24 01:04:32 ian Exp $