/*DEBRIS FLOW INVENTORY MAP OF THE UNITED STATES, SHEET 2 OF 2 /*BY JOSEPH COLGAN AND EARL BRABB, 1999 /*PLOT AML BY JOSEPH COLGAN, MARCH 1999 /*SET ERROR HANDLING AND GET VARIABLES /* &setvar startdisplay [show display] display 0 /* /* ERROR/WARNING TO BE CAPTURED BY errorcheck &severity &warning &routine errorcheck &severity &error &routine errorcheck &setvar errors 0 arcplot display 1040 sheet2 pagesize 40 50 pageunits inches mapextent SHT2-MASK mapunits meters mapscale 2500000 mapposition cen cen clipmapextent off overflow off /******PLOT TEXT AND CALL PLOT ROUTINES*********************** &call base &call hydro &call countyline &call stateline &call mask1 &call keyline &call countyname &call statename &call mask2 &call dficomp /*DRAFT /*move 22 47.5 /*textset font.txt /*textsymbol 16 /*textsize 48 pt /*textcolor red /*text 'DRAFT 6/24/99' /*textdelete all /*BASEMAP CREDITS move 32.9 8.5 textset font.txt textsymbol 14 textsize 10 pt textstyle typeset textstyle typeset textalignment left textjustification ul textfile basecredit.txt block /* TITLE &setvar mcx = 20 &setvar tty = 3 /* textset font.txt textsymbol 16 textsize 24 pt move %mcx% %tty% text 'MAP SHOWING INVENTORY AND REGIONAL SUSCEPTIBILITY FOR HOLOCENE DEBRIS FLOWS AND RELATED FAST-MOVING LANDSLIDES IN THE CONTERMINOUS UNITED STATES' lc &s ty = %tty% - 0.5 move %mcx% %ty% textsize 18 pt text 'By' lc &s ty = %ty% - 0.5 move %mcx% %ty% text 'Earl E. Brabb, Joseph P. Colgan, and Timothy C. Best' lc &s ty = %ty% - 0.5 move %mcx% %ty% textsize 12 pt text '1999' lc &s ty = %ty% - 0.5 move %mcx% %ty% textsize 12 pt text 'Digital database by Joseph P. Colgan, Andrew Barron, Michael Sinor, and Joanne Vinton' lc /*PLOT USGS IDENTIFIER maplimits 1.26 47.57 2.66 49.07 mapangle 0 mapscale automatic mape /sierra/brabb/data/utilities/usgsid_grid mapposition ul ul image /sierra/brabb/data/utilities/usgsid_grid opaque cmyk 0 0 0 100 white /* UPPER LEFT CORNER TEXT textsymbol 14 textsize 12 pt move 3.16 49 textstyle typeset textalignment left textjustification ul textfile usgs.txt block textstyle simple /* UPPER RIGHT CORNER TEXT move 38 49 /*textset font.txt /*textsymbol 14 textsize 12 pt textstyle typeset textalignment right textjustification ur textcolor black textfile imap2.txt block /*DISCLAIMER move 32.9 5 /*textset font.txt /*textsymbol 14 textsize 7 pt textstyle typeset textalignment left textjustification ul text '!FNT94021;This map was printed on an electronic plotter directly from digital files. Dimensional calibration may vary between electronic!LIN.2;' text '!FNT94021;plotters, and between X and Y directions on the same plotter, and paper may change size due to atmospheric conditions;!LIN.2;' text '!FNT94021;therefore scale and proportions may not be true on plots of this map.!LIN.8;' text '!FNT94021;For sale by U.S. Geological Survey, Map Distribution, Box 25286, Federal Center, Denver, CO 80225, 1-888-ASK-USGS !LIN.8;' text '!FNT94021;Available on World Wide Web at !FNT94022;http://geopubs.wr.usgs.gov' /*BARCODE eps /sierra/brabb4/data/usa-df/publication/barcode2.eps 29.42 .5 /*MAP LEGEND &sv lx = 35.3 &sv ly = 20.5 /* textdelete all textset font.txt textsymbol 16 textsize 20 pt move %lx% %ly% text 'EXPLANATION' lc &sv markerpen = .008 lineset /sierra/brabb4/data/usa-df/publication/colgan.lin textalignment left &sv mkx = %lx% - 2.4 /*sets starting x column for key markers &sv mky = %ly% - .6 /*sets starting y row for key markers and text &sv mtx = %lx% - 1.9 /*sets starting x column for text &sv lysep = .5 /*sets vertical spacing between key entries /* move %mtx% %mky% textsize 12 pt text 'References for each point and polygon are provided by the\ bibliography for each state and in the digital data\ layers for the inventory map.' cl &s mky = %mky% - .8 move %lx% %mky% textsize 16 pt text 'Locations Reported in Literature' lc /*PLOT KEY MARKERS markerdelete all markerset /sierra/brabb4/data/usa-df/colgan.mrk &s mky = %mky% - .4 markersymbol 47 markercolor red marker %mkx% %mky% textsymbol 16 textsize 12 pt move %mtx% %mky% text 'Location of debris flow(s) or related fast-moving landslide(s).' cl &s mky = %mky% - %lysep% markersymbol 1 markercolor red markerpen %markerpen% marker %mkx% %mky% textsymbol 16 textsize 12 pt move %mtx% %mky% text 'Approximate location of debris flow(s) or related fast-moving\ landslide(s).' cl &s mky = %mky% - %lysep% linedelete all lineset colgan.lin linesymbol 1 &sv xmin = %mkx% - .10 &sv ymin = %mky% - .10 &sv xmax = %xmin% + .35 &sv ymax = %ymin% + .20 maplimits %xmin% %ymin% %xmax% %ymax% mapangle 0 mapscale automatic mape /sierra/brabb4/data/usa-df/polykey mapposition ul ul arcs /sierra/brabb4/data/usa-df/polykey move %mtx% %mky% text 'Area with many or several debris flow(s) or related fast-moving\ landslide(s).' cl &s mky = %mky% - %lysep% &sv bxmin = %mkx% - .0781 &sv bymin = %mky% - .1094 &sv bxmax = %mkx% + .0781 &sv bymax = %mky% + .1094 box %bxmin% %bymin% %bxmax% %bymax% move %mtx% %mky% text '7.5 minute quadrangle containing one to several hundred debris\ flow(s) or related fast-moving landslide(s).' cl &s mky = %mky% - %lysep% markersymbol 45 markercolor red marker %mkx% %mky% textsymbol 16 textsize 12 pt move %mtx% %mky% text 'Identification as debris flow(s) or related fast-moving landslide(s)\ uncertain.' cl &s mky = %mky% - %lysep% markersymbol 46 markercolor red markerpen %markerpen% marker %mkx% %mky% textsymbol 16 textsize 12 pt move %mtx% %mky% text 'Approximate location and uncertain identification of debris\ flow(s) or related fast-moving landslide(s).' cl &s mky = %mky% - %lysep% markersymbol 43 markercolor red marker %mkx% %mky% textsymbol 16 textsize 12 pt move %mtx% %mky% text 'Location of debris flow(s) or related fast-moving landslide(s)\ specific only by county.' cl &s mky = %mky% - %lysep% markersymbol 44 markerpen %markerpen% markercolor red marker %mkx% %mky% textsymbol 16 textsize 12 pt move %mtx% %mky% text 'Identification of debris flow(s) or related fast-moving landslide(s)\ uncertain and specific only by county.' cl &s mky = %mky% - 0.7 move %lx% %mky% textsize 16 pt text 'Locations From Field Investigations' lc &s mky = %mky% - 0.4 markersymbol 36 markercolor red marker %mkx% %mky% textsymbol 16 textsize 12 pt move %mtx% %mky% text 'Location of debris flow(s) or related fast-moving landslide(s).' cl &s mky = %mky% - %lysep% markersymbol 39 markercolor red markerpen %markerpen% marker %mkx% %mky% textsymbol 16 textsize 12 pt move %mtx% %mky% text 'Approximate location of debris flow(s) or related fast-moving\ landslide(s).' cl /*SUSCEPTIBILITY &s mky = %mky% - 0.7 move %lx% %mky% textsize 16 pt text 'Susceptibility' lc &sv xmin = %mkx% &sv ymin = %mky% - 0.8 &sv xmax = %xmin% + .75 &sv ymax = %ymin% + .5 shadeset alc1.shd shadesymbol 99 linesymbol 5 maplimits %xmin% %ymin% %xmax% %ymax% mapangle 0 mapscale automatic mape /sierra/brabb4/data/usa-df/keyval mapposition ul ul gridcomposite hsv /sierra/brabb4/data/usa-df/keyhue /sierra/brabb4/data/usa-df/keysat /sierra/brabb4/data/usa-df/keyval arcs /sierra/brabb4/data/usa-df/keybox &sv ptx = %xmin% + 1.1 &sv pty = %ymin% + .3 move %ptx% %pty% textsize 12 pt text 'General areas susceptible to debris flows as modeled\ from NOAA 30-second digital elevation data.' cl /*WATER BODIES KEY &s mky = %mky% - 1.2 move %lx% %mky% textsize 16 pt text 'Bodies of Water' lc textsize 12 pt linedelete all lineset colgan.lin linesymbol 4 shadedelete all shadetype color shadecolor CMYK 20 0 0 0 &s mky = %mky% - .4 linedelete all lineset colgan.lin linesymbol 4 shadedelete all shadetype color shadecolor CMYK 20 0 0 0 &sv xmin = %mkx% - .10 &sv ymin = %mky% - .10 &sv xmax = %xmin% + .35 &sv ymax = %ymin% + .20 maplimits %xmin% %ymin% %xmax% %ymax% mapangle 0 mapscale automatic mape /sierra/brabb4/data/usa-df/polykey mapposition ul ul arcs /sierra/brabb4/data/usa-df/polykey polygonshades /sierra/brabb4/data/usa-df/polykey 1000 move %mtx% %mky% text 'Perennial lakes, reservoirs, and rivers' cl linedelete all lineset colgan.lin linesymbol 4 shadedelete all shadetype color shadecolor CMYK 20 0 0 0 &s mky = %mky% - %lysep% linedelete all lineset colgan.lin linesymbol 4 shadedelete all shadetype color shadecolor CMYK 8 0 0 0 &sv xmin = %mkx% - .10 &sv ymin = %mky% - .10 &sv xmax = %xmin% + .35 &sv ymax = %ymin% + .20 maplimits %xmin% %ymin% %xmax% %ymax% mapangle 0 mapscale automatic mape /sierra/brabb4/data/usa-df/polykey mapposition ul ul arcs /sierra/brabb4/data/usa-df/polykey polygonshades /sierra/brabb4/data/usa-df/polykey 1000 move %mtx% %mky% text 'Non-perennial water bodies' cl linedelete all lineset colgan.lin linesymbol 4 shadedelete all shadetype color shadecolor CMYK 20 0 0 0 &s mky = %mky% - %lysep% linedelete all lineset colgan.lin linesymbol 4 shadedelete all shadetype color shadecolor CMYK 0 0 0 0 &sv xmin = %mkx% - .10 &sv ymin = %mky% - .10 &sv xmax = %xmin% + .35 &sv ymax = %ymin% + .20 maplimits %xmin% %ymin% %xmax% %ymax% mapangle 0 mapscale automatic mape /sierra/brabb4/data/usa-df/polykey mapposition ul ul arcs /sierra/brabb4/data/usa-df/polykey polygonshades /sierra/brabb4/data/usa-df/polykey 1000 move %mtx% %mky% text 'Glaciers' cl /*SCALEBAR &sv scalex = %mcx% - 3.7 &sv scaley = %tty% + 2.6 eps /sierra/brabb4/data/usa-df/joescale.eps %scalex% %scaley% /*~~~~~~ENDING~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mapinfo quit &echo &off &if [exists dfiplot -file] &then &type \COMPLETED MAKING PLOT FILE CALLED dfiplot.gra\ &if %errors% > 0 &then &do &type ERRORS: %errors% errors were recorded while running this aml. &do i = 1 &to %errors% &type %i%. [value error%i%] &end &end &if [variable .alc$pref1] &then %.alc$pref1% &else display %startdisplay% /*draw sheet2.gra 9999 2 &return /***************** END MAIN ****************** /*****BASEMAP ROUTINES**************************************************** /*****SHADED RELIEF BASE************************ &routine base gridcomposite hsv /sierra/brabb4/data/usa-df/usasus-hue_la /sierra/brabb4/data/usa-df/usasus-sat_la /sierra/brabb4/data/usa-df/usa-hslt_la &return /****MASK 1**************************************************** &routine mask1 shadeset alc1.shd shadesymbol 33 clearselect SHT2-MASK poly resel SHT2-MASK poly PTYPE = 'mask' polygonshades SHT2-MASK 1000 &return /****MASK 2**************************************************** &routine mask2 shadeset alc1.shd shadesymbol 33 clearselect SHT2-MASK2 poly resel SHT2-MASK2 poly PTYPE = 'mask' polygonshades SHT2-MASK2 1000 &return /*****KEYLINE********************************************** &routine keyline lineset /sierra/brabb4/data/usa-df/publication/colgan.lin linesymbol 5 clearselect SHT2-MASK arc resel SHT2-MASK arc LTYPE = 'keyline' arclines SHT2-MASK 1000 &return /*~~~~COUNTYLINE~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ &routine countyline &sv county = /sierra/brabb4/data/usa-df/county_la clearselect reselect %county% arc bndy_type = 1 lineset /sierra/brabb4/data/usa-df/publication/colgan.lin linesymbol 2 arcs %county% &return /*******COUNTYNAME******************************* &routine countyname &sv countyanno = /sierra/brabb4/data/usa-df/ctyanno_la textdelete all textset font.txt textsymbol 3 textsize 10 pt textquality kern textcolor CMYK 0 0 100 0 textput 1 annotext %countyanno% &return /*~~~~STATE BOUNDARIES~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ &routine stateline &sv statecov = /sierra/brabb4/data/usa-df/na-state_la lineset /sierra/brabb4/data/usa-df/publication/colgan.lin linesymbol 3 arcs %statecov% &return /*****STATE NAMES****************************************** &routine statename &sv stateanno = /sierra/brabb4/data/usa-df/scott/st-anno_la /*&sv stateanno = /sierra/brabb4/data/usa-df/st-anno_la textset font.txt textsymbol 1 textsize 50 pt /*textcolor CMYK 0 0 0 100 /*textquality constant /*textspacing 2 0 /*textput 1 annotext %stateanno% &return /*~~~~HYDROLOGY~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ &routine hydro &sv hydro = /sierra/brabb4/data/usa-df/na-hydro_la /* draw lake and stream polygons shadedelete all shadecolor CMYK 20 0 0 0 clearselect %hydro% poly clearselect %hydro% poly reselect %hydro% poly feature = 'Canal' polygonshades %hydro% 1000 clearselect %hydro% poly reselect %hydro% poly feature = 'Lake' polygonshades %hydro% 1000 clearselect %hydro% poly reselect %hydro% poly feature = 'Reservoir' polygonshades %hydro% 1000 clearselect %hydro% poly reselect %hydro% poly feature = 'Stream' polygonshades %hydro% 1000 /* draw the non-perennial H2O polygons shadedelete all shadecolor CMYK 8 0 0 0 clearselect %hydro% poly reselect %hydro% poly feature = 'Lake Dry' /* polygonshades %hydro% 1000 clearselect %hydro% poly reselect %hydro% poly feature = 'Lake Intermittent' polygonshades %hydro% 1000 clearselect %hydro% poly reselect %hydro% poly feature = 'Reservoir Intermittent' /* polygonshades %hydro% 1000 /* draw glacier polygons shadedelete all shadecolor CMYK 0 0 0 0 clearselect %hydro% poly reselect %hydro% poly feature = 'Glacier' polygonshades %hydro% 1000 /* draw the perennial rivers /*lineset /sierra/brabb4/data/usa-df/publication/colgan.lin /*linesymbol 4 linecolor CMYK 100 0 0 0 linepen .006 linesize .006 clearselect %hydro% poly reselect %hydro% arc feature ne 'Dam' clearselect %hydro% poly reselect %hydro% arc feature ne 'Falls' clearselect %hydro% poly reselect %hydro% arc feature ne 'Null' clearselect %hydro% poly reselect %hydro% arc bnd_type ne 'CL' arclines %hydro% 1000 &return /****DEBRIS FLOW DATA********************************** &routine dficomp markerdelete all markerset /sierra/brabb4/data/usa-df/publication/colgan2.mrk &sv dfipts = /sierra/brabb4/data/usa-df/DFIPOINT_LA &sv dfiply = /sierra/brabb4/data/usa-df/DFIPOLY_LA clearselect resel %dfipts% point dftype = 1 markersymbol 47 markercolor red points %dfipts% clearselect resel %dfipts% point dftype = 2 markersymbol 1 markercolor red markerpen .01 points %dfipts% clearselect resel %dfipts% point dftype = 3 markersymbol 45 markercolor red points %dfipts% clearselect resel %dfipts% point dftype = 4 markersymbol 46 markercolor red markerpen .01 points %dfipts% clearselect resel %dfipts% point dftype = 5 markersymbol 43 markercolor red points %dfipts% clearselect resel %dfipts% point dftype = 6 markersymbol 44 markercolor red markerpen .01 points %dfipts% clearselect resel %dfipts% point dftype = 7 markersymbol 36 markercolor red points %dfipts% clearselect resel %dfipts% point dftype = 8 markersymbol 39 markercolor red markerpen .01 points %dfipts% /* LINES clearselect lineset /sierra/brabb4/data/usa-df/publication/colgan.lin linesymbol 1 arcs %dfiply% &return /***************** ERRORCHECK **************** &routine errorcheck &setvar errmessage [quote [value aml$message]] &severity &warning &ignore &severity &error &ignore &setvar errors %errors% + 1 &setvar error%errors% %errmessage% &severity &warning &routine errorcheck &severity &error &routine errorcheck &return /***********************************************