/* mrdsplot.aml created by Dave Frank 8/19/98
/* Figure of MRDS points for .eps file for report
clear

pagesize 24 23

&s path1 /pool3/b/dcausey/

/* Map extent for Western U.S. in Albers projection

mape %path1%wus_alb

mapunits meters
mapscale 5000000
maplimits 1 2 23.5 21.5
mapposition cen 20 12
shadeset colornames
markerset plotter.mrk

arcs %path1%wus_alb

/* plot mrds points

mapprojection ll2alb.prj
markersymbol 1
markersize .05

points westmrds

mapprojection off


&label titles
textfont 93715
textquality kern
textsize 0.5
move 1.0 21.0
plot /hwtr2/dcausey/vid/usgs_vid_black/usgs_black.gra box 1 21 3.5 22.25
move 23.0 21.6
text 'OPEN-FILE REPORT 99-169' lr
move 23.0 21
text 'Plate 1' lr
textfont 93711
textsize 0.7
move 10.5 3.0
text 'Map showing MRDS locations in the Western United States' lc
textsize 0.5
move 10.5 2.0
text 'by David G. Frank' lc
move 10.5 1.0
text '1999' lc

&label lat-long
/* plot neat line labels (latitude and longitude)
mape %path1%wus_alb
linecolor 1
mapprojection geo.prj alb.prj
neatline -125 31.0 -101 49.0 geo.prj
neatlinehatch 1 1 0.2 0 geo.prj
textset font.txt
textsymbol 1
textsize 8 pt
textstyle typeset
textoffset -0.35 0.15
neatlinelabels 3 top all geo.prj dms '%1%!pat1857; %2%!pat1727; %3%!pat1728'
textoffset -0.75 0.0
neatlinelabels 3 left all geo.prj dms '%1%!pat1857; %2%!pat1727; %3%!pat1728'

&label scale
/* plot scale bars
linedelete all
lineset plotter
textfont 94021
textsize 0.12
&r scale2a 3.9 6.1 other 2500000


/* plot projection
move 1.2 3.8
textfont 93713
textquality proportional
textsize 0.12
/*textfile %path1%milsplproj.txt
&label done
&return