/* plot_saa-acid.aml 
/* program for versatec plots of acid deposition of SAA area
/* use "vcgl2 %plotfile%.gra %plotfile%.v ce3444 %scale% # banner" to insure 42 inch width

&echo &on

&s cover saa-acid
ARCPLOT
DISPLAY 1040 
/home12b/resdgs2/thkress/temp/%cover%
MAPPOSITION CEN CEN
mape saa-acid_base
pagesize 80 42
MAPUNITS METERS
MAPINFO
mapscale 1000000
shadeset colornames
textset font
textsize .2
textfont 22

asel %cover% poly
reselect %cover% polys sensitivity cn 'high'
polygonshades %cover% 110
asel %cover% poly
reselect %cover% polys sensitivity cn 'medium' 
polygonshades %cover% 108
asel %cover% poly
reselect %cover% polys sensitivity cn 'low' 
polygonshades %cover% 55

/* draw base coverage graphics

asel saa-acid_base arcs
reselect saa-acid_base arcs bndtype = 1
arclines saa-acid_base 3
asel saa-acid_base arcs 
reselect saa-acid_base arcs bndtype = 2 or bndtype = 3 or bndtype = 4
arclines saa-acid_base 5
asel saa-acid_base poly
reselect saa-acid_base polys code = 1
polygonshades saa-acid_base 110
asel saa-acid_base poly
reselect saa-acid_base polys code = 2
polygonshades saa-acid_base 108
arclines saa-acid_base 1
asel saa-acid_base poly
reselect saa-acid_base polys code = 3
polygonshades saa-acid_base 55

/* draw annotation

annotext saa-acid_base

/* north arrow

markerscale 1.5
markerset /home12b/resdgs2/thkress/test/north.mrk
aselect saa-acid_base polys
res saa-acid_base polys code = 9
labelmarkers saa-acid_base 11

/* draw USGS logo

plot /home12b/resdgs2/thkress/logo/arclogo-clr.gra box 54 13 56 15

/* plot scale bar

&r /home12b/resdgs2/thkress/programs/wrd_amls/atool/arcplot/scalebar 35 12.5 1000000 100 2 .1 KILOMETERS

&echo &off
&watch &off
disp 9999 3
plot /home12b/resdgs2/thkress/temp/%cover% box *
&s x [response 'press return to quit']
quit
&call done
&return

/* ===== SUBROUTINES =====

&routine done
&return

&routine failure
&severity &error &ignore
&return; &return