/** UNITED STATES DEPARTMENT OF THE INTERIOR                  
/** GEOLOGICAL SURVEY                                 
/** digital databases by
/** Gregory N. Green and William H. Langer
/** 1997                                                           
/**                                                                        
/** OPEN FILE REPORT 97-477                                        
/**                              
/** based on:
/** OPEN FILE REPORT 92-0507   
/** OPEN FILE REPORT 94-0425                                       
/**                                                                      
/** CLIPPED GEOLOGIC MAP OF COLORADO and WYOMING                        
/** OFR_AGG.AML for HP650c plotters                                            
/**                                                                
/**                                           
/** LINESET TWETO is an augmented version of the ARC/INFO linset CARTO
/** SHADESET TWETO created by Randy Phillips of the Colorado Geologic Survey
/** these were created for the HP 650 design jet.
/** 
/** LINESET TWETO is supplied on the digital version as TWETOLIN.E00    
/** SHADESET TWETO is supplied on the digital version as TWETOSHD.E00
/** TEXTFONT 3   is supplied on the digital version as FNT003.E00
/**  FNT003 has these modifications:
/**   @ as the Triassic symbol
/**   & as the Pennsylvanian symbol
/**   _ as the Cambrian symbol
/** the end user must load these fonts on their own system
/** before running this aml
/** 
/**
  ARCPLOT
  DISPLAY 1040
  OFR_AGG.GRA
  MAPEXTENT CLIPPER
  MAPPOSITION LL 1 1.25
  MAPUNITS METERS
  MAPSCALE 500000
  MAPANGLE 0.0
  MARKERSYMBOL 37
  MARKERSIZE 0.1
  TICS COLO_GEO NOIDS
/** 
  SHADESET TWETO
  POLYGONSHADES COLO_GEO COLOR
  POLYGONSHADES WYO_GEO COLOR
/**
  TEXTFONT 1
  TEXTSIZE .1
  TEXTCOLOR 1
  textqual proportional
  KEYBOX .4 .4
  KEYSEP .275 .275
  KEYPOS 14 20.2
  KEYSHADE text1.txt
  move 14.66 8.25
  textfile text2.txt
  move 14.66 34.9
  textfile text3.txt
  
  TEXTSIZE .17
  move 4.25 2.5
  textfile title1.txt
  annotext colo_geo
  annotext wyo_geo
  TEXTSIZE .12
  move 2.5 35.1 
  textfile title2.txt
  move 17.8 35.2
  textfile title3.txt
/**
  TEXTFONT 3
  TEXTSIZE 0.08
/* LABEL THE BIG POLYGONS BUT DON'T LABEL THE LAKES
  RESELECT COLO_GEO POLY P1 NE 200
  RESELECT COLO_GEO POLY AREA GT 50000000
  RESELECT COLO_GEO POLY ( AREA / PERIMETER ) GT 2000
  LABELTEXT COLO_GEO NAME # CC
  CLEARSELECT
  RESELECT WYO_GEO POLY P1 LT 220
  RESELECT WYO_GEO POLY AREA GT 10000000 
  RESELECT WYO_GEO POLY ( AREA / PERIMETER ) GT 2000
  LABELTEXT WYO_GEO NAME # CC
  CLEARSELECT

  LINESET TWETO
  reselect COLO_GEO arc p2 ne 5
  ARCLINES COLO_GEO HP
  ARCLINES WYO_GEO HP
  arclines c_roads 6
  arclines w_roads 6
/* add bill beeman's scale
  &R MAPBAR 4.5 .5 500000

  QUIT