#--P-A-T-------------------------------------------------------------------
#
#	goode.cmd - classic Goode Homolosine projection
#
#--------------------------------------------------------------------------

reset
origin 0, 5
graticule 15

-color new goode-solid LVB, border
-color new goode-dash LVB
color style goode-dash dashed 4, 4
color fill-foreground gray80

projection goode
data landmask5
add backfill 2, landmask5, transparent, 75
delete window
interrupt spur right 1, 25, 30
interrupt spur right 2, 10, 30
add label <0.5, 0.03>, "J. Paul Goode, University of Chicago, 1923", \
    anchor centered, font cour14, spacing 0.1, color green
pan 0, -0.16			## pan up to make room for sub-windows

point sydney -33.52, 151.13	## draw a gc through these two points
point sf 37.48, -122.24
add dot sydney, fat, 5, red
add label sydney, Sydney, \
  anchor right bottom, flags border, font cour16b, spacing 0.2, \
  color #6699FF, offset +<0, .01>
add dot sf, fat, 5, red
add label sf, San Francisco, \
  flags border, font cour16b, spacing 0.2, color #6699FF, offset +<.01, -.02>
-color new goode-gc LHB
color weight goode-gc 2
add gc2 sydney, sf, goode-gc

# ----------------------------------------------------------------------------

window new sinusoidal <0.025, 0.325, 0.05, 0.35>
projection sinusoidal
interrupt north 80, 60, 70, 150
interrupt south 20, 60, 40, 40, 40, 60, 60, 40
delete graticule
delete window
add parallel 40 44, goode-solid
add parallel -40 44, goode-solid
add fill bg 0, 0, landmask5, 950
add label +<0.5, 0.1>, Sinusoidal  +, anchor centered, font cour18b, color white
whole 0
pan 0, -0.1

# ----------------------------------------------------------------------------

window new mollweide <0.350, 0.650, 0.05, 0.35>
projection mollweide
interrupt north 80, 60, 70, 150
interrupt south 20, 60, 40, 40, 40, 60, 60, 40
delete graticule
delete window
add parallel 40 44, goode-solid
add parallel -40 44, goode-solid
add fill bg 45, -100, landmask5, 950
add fill bg 45, 30, landmask5, 950
add fill bg -45, -160, landmask5, 950
add fill bg -45, -60, landmask5, 950
add fill bg -45, 20, landmask5, 950
add fill bg -45, 140, landmask5, 950
add label +<0.5, 0.1>, Mollweide  =, anchor centered, font cour18b, color white
whole 0
pan 0, -0.1

# ----------------------------------------------------------------------------

window new goode <0.675, 0.975, 0.05, 0.35>
projection goode
delete graticule
delete window
add backfill landmask5
add parallel 40 44, goode-dash
add parallel -40 44, goode-dash
-cmap new red-black red, 6, black
add label +<0.5, 0.1>, Goode Homolosine, anchor centered, font cour24b, \
    cmap red-black
whole 0
pan 0, -0.1

echo ~yGoode Homolosine map is ready to draw.

# $Id: goode.cmd,v 1.7 2007/06/20 22:21:26 ian Exp $