/* PROGRAM:    AKPENOFR.AML
/* PURPOSE:    AKPENOFR.AML is designed to automatically draw the
/*             geologic map for the Alaska Peninsula RAMRAP.  To
/*             run it, you type:  &R AKPENOFR  at the "ARC" prompt.
/*
/* HISTORY:    Frederic Wilson  12/17/90     CPL ver 1.1
/*             Emily Binnian    12/18/90     AML conversion
/*             Frederic Wilson  4/9/92       AML ver 1.6
/*             Frederic Wilson  8/17/93      Unix-AML ver 2.0
/*
/* SITE:       USGS/BAG-EROS-AFO DG-Aviion (Unix)
/*----------------------------------------------------------------
/* CALLED BY:  User at ARC command level
/* CALLS MADE: None external, internal routine: BAILOUT
/*----------------------------------------------------------------
/* USAGE:      &R AKPENOFR
/* ARGUMENTS:  none
/*
/* EXPLANATION:
/*    Input coverages are the edited and cleaned coverages for each of
/*     the AMRAP projects on the Alaska Peninsula and an inset map for
/*     the Puale Bay-Cape Kekurnoi area.  Each must contain the
/*     geologic polygons and arc attributes (They must have an AAT
/*     and a PAT) for the covered area.  It is assumed that they are
/*     all in UTM projections, Katmai in zone 5, Cold Bay in zone 3
/*     and the rest in zone 4.  ARCPLOTs MAPPROJECTION command is
/*     used to convert all but the annotation and fold axes coverages
/*     "on the fly" to an Albers Equal area projection for output.
/*     Output is a plot file designed for the Calcomp color plotter.
/*
/* Files used are:
/*   Symbolsets
/*       /briar1/pantry/geology.shd
/*       /briar1/pantry/geology.lin
/*       /briar1/pantry/geology.mrk
/*       /briar1/pantry/geology.txt
/*   Lookup tables:
/*       /briar1/wilson/lookups:geology4.lut
/*       /briar1/wilson/lookups:geology5.lut
/*       /briar1/wilson/lookups:geology6.lut
/*       /briar1/wilson/lookups:geoline.lut
/*       /briar1/wilson/lookups:linemark.lut
/*   Legend keys:
/*       /briar1/wilson/lookups/penin1d.key
/*       /briar1/wilson/lookups/penin2d.key
/*       /briar1/wilson/lookups/penin3d.key
/*       /briar1/wilson/lookups/geology.key
/*   Text files:
/*       /briar1/wilson/ramrap/akpen/mapcred.pen
/*       /briar1/wilson/ramrap/akpen/basecred.pen
/*   Projection files:
/*       /briar1/pantry/utm5-alb.prj
/*       /briar1/pantry/utm4-alb.prj
/*       /briar1/pantry/utm3-alb.prj
/*
/*=================================================================
&WAT AKPENOFR.WAT
&SEVERITY &ERROR &ROUTINE BAILOUT
/*
/*#################################################################
/* System dependencies
/*
&s path := /briar1/wilson/ramrap/
&s cpath := /briar1/wilson/ramrap/akpen/
&s bin := /briar1/wilson/lookups
&s pantry := /briar1/pantry
/*
/* Coverages used are:
/*
&s base := %cpath%akpencst
&s cover1 := %cpath%mkgeol1
&s cover2 := %cpath%uggeol
&s cover3 := %cpath%cggeol
&s cover4 := %cpath%pmgeol1
&s cover5 := %cpath%cbgeol1
&s cover6 := %path%ug/krc45
&s fold1 := %cpath%mkfld-alb
&s fold2 := %cpath%ugfld-alb
&s fold3 := %cpath%cgfld-alb
&s fold4 := %cpath%pmfld-alb
&s fold5 := %cpath%epfld-alb
/*
/* End system dependencies
/*
/*#################################################################
/*
/* Checking for existance of coverages
/*
&do cover &list %cover1% %cover2% %cover3% %cover4% %cover5% %cover6%
          &if ^ [exists %cover% -network] &then
          &return &warning &type 'Coverage ' %cover% 'not found.'
          &end
/*
&do fold &list %fold1% %fold2% %fold3% %fold4% %fold5%
          &if ^ [exists %fold% -coverage] &then
          &return &warning &type 'Coverage ' %fold% 'not found.'
          &end
/*
/* Do we have the symbol set files too?
/*
&do sym &list shd mrk lin txt
         &if ^ [exists %pantry%/geology.%sym% -file] &then
         &return &warning &type 'Symbolset file ' %sym% 'not found.'
         &end
/*
/* How about the lookup tables?
/*
&do tab &list geology4 geology5 geology6 geoline linemark
         &if ^ [exists %bin%:%tab%.lut -info] &then
         &return &warning &type 'Lookup table ' %tab% 'not found.'
         &end
/*
/* And finally, what about the key and text files?
/*
&if ^ [exists %bin%/geology.key -file] &then
         &return &warning &type 'Key file ' %tfxt% 'not found.'
/*
&do tfxt &list mapcred.pen basecred.pen penin1d.key penin2d.key penin3d.key
         &if ^ [exists %cpath%%tfxt% -file] &then
         &return &warning &type 'Text file ' %tfxt% 'not found.'
         &end
/*
/* Finally, we start the real work
/*
/* &echo &on
arcplot
/* display 9999 3
display 1040
akpen.gra
pagesize 60 43
linesymbol 9
box 0 0 60 43
linesymbol 1
box .1 .1 59.9 42.9
mape %cpath%penbase
mapunits meters
mapscale 500000
mapposition cen 33 21
/*
/*  Shade, character, line, and marker sets
/*
symbolset %pantry%/geology
textset font
pensize .004
textsymbol 14
textsize .06
/*
/*  Draws polygons and fills in using shadeset and lookup table, then
/*  draws arcs using lineset file and lookup table, and adds polygon
/*  labels using lookup table
/*
mapprojection %pantry%/utm5-alb.prj
polygonshades %cover1% class %bin%:geology6.lut
polygonshades %cover1% class %bin%:geology5.lut
polygonshades %cover1% class %bin%:geology4.lut
unselect %cover1% arcs arc-code = 99
arclines %cover1% arc-code %bin%:geoline.lut
clearselect
reselect %cover1% polys area ge 3000000
labeltext %cover1% class %bin%:geology4.lut cc
clearselect
/*
mapprojection %pantry%/utm4-alb.prj
&do drwing &list %cover2% %cover3% %cover4%
     polygonshades %drwing% class %bin%:geology6.lut
     polygonshades %drwing% class %bin%:geology5.lut
     polygonshades %drwing% class %bin%:geology4.lut
     unselect %drwing% arcs arc-code = 99
     arclines %drwing% arc-code %bin%:geoline.lut
     clearselect
     reselect %drwing% polys area ge 3000000
     labeltext %drwing% class %bin%:geology4.lut cc
     clearselect
     &end
reselect %cover6% arcs arc-code = 99
arcs %cover6%
/*
mapprojection %pantry%/utm3-alb.prj
polygonshades %cover5% class %bin%:geology6.lut
polygonshades %cover5% class %bin%:geology5.lut
polygonshades %cover5% class %bin%:geology4.lut
unselect %cover5% arcs arc-code = 99
arclines %cover5% arc-code %bin%:geoline.lut
clearselect
reselect %cover5% polys area ge 3000000
labeltext %cover5% class %bin%:geology4.lut cc
clearselect
/*
mapprojection off
/*
/*  Draws fold axes
/*
arclines %fold1% arc-code %bin%:geoline.lut
arclines %fold2% arc-code %bin%:geoline.lut
arclines %fold3% arc-code %bin%:geoline.lut
arclines %fold4% arc-code %bin%:geoline.lut
arclines %fold5% arc-code %bin%:geoline.lut
arcmarkers %fold1% arc-code %bin%:linemark.lut middle
arcmarkers %fold2% arc-code %bin%:linemark.lut middle
arcmarkers %fold3% arc-code %bin%:linemark.lut middle
arcmarkers %fold4% arc-code %bin%:linemark.lut middle
arcmarkers %fold5% arc-code %bin%:linemark.lut middle
/*
/*  Writes labels for map
/*
reselect %base% arcs code = 10
arcs %base%
clearselect
annotext %base%
/*mape %cpath%penbase
/*mapposition cen 33 21
/*annotext %shore1%
/*annotext %shore2%
/*annotext %shore3%
/*annotext %shore4%
/*annotext %shore5%
/*
/*  Plots index and inset maps - NEED TO CHECK FOR EXISTANCE OF THESE
/*
plot %cpath%penindex.gra box 44.5 14 56.5 24
plot %cpath%akpencor.gra 1 21
/* plot %pantry%/usgs_logo.gra box 10 39 13 42
/* plot %pantry%/scale500.gra 28 2
plot %cpath%inseta.gra 49 24
/* plot %pantry%/emblem.gra box 14 39 17 42
/*
/*  Produces legend using KEY... commands
/*
textsymbol 14
textsize .2
keybox .4 .2
keyseparation .2 .2
keyposition 38 12
keyshade %cpath%/penin1d.key
keyposition 45 12
keyshade %cpath%/penin2d.key
keyposition 52 12
keyshade %cpath%/penin3d.key
keyposition 30 12
keybox .4 .01
keyline %bin%/geology.key nobox
move 22 41
textfile %cpath%mapcred.pen
move 16 6
textfile %cpath%basecred.pen
/*
textsymbol 14
textsize .3
move 28 2.5
/* text 'Approximate Scale 1:650,000' CC
/* 
text 'Scale 1:500,000' cc
textsize .4
MOVE 28 1.2
TEXTSIZE .25
TEXT 'By' CC
move 28 1.7
TEXT 'GEOLOGIC MAP OF THE ALASKA PENINSULA, SOUTHWEST ALASKA' CC
textsize .35
MOVE 28 0.8
TEXT 'F.H. Wilson, R.L. Detterman, and G.D. DuBois' CC
MOVE 49 12.5
TEXT 'LIST OF MAP UNITS' CC
MOVE 33 12.5
TEXT 'LIST OF LINE SYMBOLS' CC
MOVE 1 42.4
TEXT 'U.S. DEPARTMENT OF THE INTERIOR'
MOVE 1 42
TEXT 'U.S. GEOLOGICAL SURVEY'
MOVE 59 42.4
TEXT 'OPEN-FILE REPORT 99-317' LR
/* MOVE 57 1
/* TEXTSIZE .25
/* TEXTANGLE 0
/* TEXT [QUOTE [DATE -CAL]]
/* MOVE 57 .5
/* TEXT [QUOTE [DATE -AMPM]]
/*
/* Map graphics file written out
/*
&echo &off
q
/*
/* colorhcbs akpen.gra akpen.plt 58444
hpgl2 akpen.gra akpenf.jet # # # # # # # # /briar1/pantry/djetcal.dat ps
/*
/* Map plot file written out
/*
&echo &off
&watch &off
&RETURN
/*-------------------------------------------------------------------
&ROUTINE BAILOUT
&echo &off
&watch &off
&SEVERITY &ERROR &IGNORE
&MESSAGES &ON
&RETURN; &RETURN &ERROR \AN ERROR HAS OCCURRED IN AKPENOFR.AML