/******
/******	Laura Biewick, U.S. Geological Survey
/******
/******	sa.aml
/******
/******	Arcplot commands that draw the lines and symbols in ARC/INFO 6.1.1.
/******
mape southam
shadeset colornames.shd
reselect backgrnd polys backgrnd-id eq 1
polygonshades backgrnd 57
polygonshades southam 15
linesymbol 1
polygons southam
reselect lldens arcs lldens# ne 15
lineset color10.lin
arclines lldens 30
nselect lldens arcs
lineset plotter.lin 
arclines lldens 17
polygonshades coa_pnk 25
polygonshades coa_mve 112
polygonshades coa_grn 69
polygonshades coa_prp 127
reselect coa_brn polys coa_brn# ne 5
polygonshades coa_brn 91
reselect coa_org polys coa_org# ne 20
polygonshades coa_org 104
shadeset plotter.shd
reselect sed polys sed# ne 13
polygonshades sed 41
lineset color10.lin
reselect coa arcs linesym ne 'dash'
arclines coa 30
nselect coa arcs
arclines coa 140
lineset plotter.lin
reselect cf arcs cf# ne 25
reselect cf arcs cf# ne 28
arclines cf 5
nselect cf arcs
arclines cf 21
polygonlines salar 81
shadeset plotter.shd
polygonshades salar 49
linesymbol 1
shadedelete all
shadeset swamp.shd
polygonshades swamps 1
lineset color10.lin
arclines drain 40
lineset carto.lin
arclines country 143
msel all
relate restore id.rel
markerset agernk.mrk
markerscale .8
clearselect
pointmarkers coalocc symb 
clearselect
reselect coalocc points id.rel//rank eq 'lig./sub.'
reselect coalocc points id = 1112.0
pointmarkers coalocc 13
mmove 6.83 32.47,6.567 32.495
clearselect
reselect coalocc points id.rel//rank eq 'sub./an.' and ~
id.rel//age eq 'Tert./Cret.' 
pointmarkers coalocc 41
mmove 8.39 37.03,8.65 36.73
clearselect
reselect coalocc points id.rel//rank eq 'sub./an.' and ~
id.rel//age eq 'Tert./Cret.' 
pointmarkers coalocc 14
mmove 8.39 37.03,8.57 36.84
clearselect
reselect coalocc points id.rel//rank eq 'sub./an.' and ~
id.rel//age eq 'Tert.'
pointmarkers coalocc 42
mmove 8.053 34.95,8.11 35.11