#--P-A-T-------------------------------------------------------------------
#
#	gs50.cmd - all 50 united states in a single pane, using the
#		Modified Stereographic projection.  Parameters from
#		Snyder's "Working Manual".
#
#--------------------------------------------------------------------------

reset
graticule 10

projection modified-stereographic
set m 10				## 10 variables
set a1   0.9842990; set b1   0.0
set a2   0.0211642; set b2   0.0037608
set a3  -0.1036018; set b3  -0.0575102
set a4  -0.0329095; set b4  -0.0320119
set a5   0.0499471; set b5   0.1223335
set a6   0.0260460; set b6   0.0899805
set a7   0.0007388; set b7  -0.1435792
set a8   0.0075848; set b8  -0.1334108
set a9  -0.0216473; set b9   0.0776645
set a10 -0.0225161; set b10  0.0853673

zone 15, 75, -200, -50			## restrict proj to this area
origin 45, -120				## use this instead of zone center
window {-0.70, 0.77, -0.50, 0.56}	## window manually on central part

add backfill gray10

data landmask5
-data instance gs50_landmask landmask
data color gs50_landmask gray50

data etopo5
add fill bg origin, 2, gs50_landmask, transparent, \
  shading 8 0, hill etopo5, 315, 30, 0.01, 1, end, 150
color fill-background gray20

#data lake; add lake

data country
-data instance gs50_country country
data color gs50_country black
add gs50_country

data state
-data instance gs50_state state
data color gs50_state black
add gs50_state

data lake
add lake

-cmap new gs50rot #CCFF33, 6, gray50
add label <0.5, 0.04>, Modified-Steregraphic  Conformal  projection  of \
 the  50  United  States, flags border, anchor centered, font helv16b, \
 spacing 0.15, color gold, priority 800

add scale-bar 0.4, 0.15, below, clea10

point anchorage 61 9, -150
point honolulu 21 16, -157 47
point new-york 40.43, -74.01

add point anchorage, fat, 5, red
add label anchorage, Anchorage, flags border, anchor centered, \
    font cour14b, offset +<0, 0.03>

add point honolulu, fat, 5, red
add label honolulu, Honolulu, flags border, font cour14b, offset +<.02, -.02>

add point new-york, fat, 5, red
add label new-york, New, flags border, font cour14b, offset +<.025, .01>
add label new-york, York, flags border, font cour14b, offset +<.02, -.015>

color label gray90

add label 43, -151 45, "2,785 miles", anchor centered, \
  cmap gs50rot, rotation 58, font helv14b, spacing 0.5

add label 55 50, -108, "3,363 miles", anchor centered, \
  cmap gs50rot, rotation 345, font helv14b, spacing 0.5

add label 40 30, -123 30, "great circle distance 4,964 miles", \
  anchor centered, cmap gs50rot, rotation 15.5, font helv14b, spacing 0.5

-color new gs50 gold			## contrast
color style gs50 dash,6,8		## on 6, off 8
color weight gs50 1			## thick dashes

add gc-arc anchorage, honolulu, gs50, 400
add gc-arc anchorage, new-york, gs50, 400
add gc-arc honolulu, new-york, gs50, 400

echo ~yModified Stereographic map of The 50 United States is ready to draw.

# $Id: gs50.cmd,v 1.11 2007/06/20 22:29:27 ian Exp $