%! % Robinson Canal Preliminary Field Notes I % ============================================================== % Copyright c 2017 by Don Lancaster & Synergetics, Box 809, Thatcher, AZ, 85552 % (928) 428-4073 Email: don@tinaja.com Website: http://www.tinaja.com % Consulting services available http://www.tinaja.com/info01.html % Linking welcome. Reposting expressly forbidden. % All commercial rights and all electronic media rights ~fully~ reserved. % Linking usually welcome. Reposting expressly forbidden. Version 1.1 % This is a shortened demo of http://www.tinaja.com/canal/newhang3.pdf and % http://www.tinaja.com/canal/newhang3.psl rewritten from the ground up with % better documentation. By using a /F trailer on Acrobat XI Distiller as % noted below, reads and writes can be restored. This allows expanded click-thru % images to be auto executed from within a .psl file internal to Distiller. % Other benefits include auto positioning and tracking of the and slightly % improved image resolution % Be sure embedded fonts are properly set! You will also need an image copy of % http://www.tinaja.com/canal/images/robinson_map1.jpg moved to an % appropriate directory on your pc as noted below. % This pre Distills both automatic urls AND jpeg image clickthru conversion! % nav buttons are built in via pdfmark See source code below. %%%%%%%%% % This comment is a reminder that Distiller needs an //acrodist.exe /F to use disk files %%%%%%%%% % Define and alter your full gonzo.ps path reminder here It might be % C:/Users/don/Desktop/Dist-FR/gonzo.ps % Preplace gonzo.ps from http://www.tinaja.com/post01.shtml#gonzo to above directory % Make sure there are no previously active instances of distiller. % Then run distiller ONLY from % //acrodist.exe /F run % Then drag and drop this file into Distiller. %%%%%%%%% % Set Directory Headers %%%%%%%% % /gonzodirectory (C:/Users/Don/Desktop/Ghost/gonzo.psl) run % use internal ) store % dbl rvse slashes for ps /imagelocaldirectory (C:/Users/don/Desktop/canal/images/) store % sin fwd slashes for win /imageremotedirectory (http://www.tinaja.com/canal/images/) store % sin fwd slashes for chrome % mergestr merges the two top stack strings into one top stack string /mergestr {2 copy length exch length add string dup dup 4 3 roll 4 index length exch putinterval 3 1 roll exch 0 exch putinterval} def %%%%%%%%% % This code activates gonzo utilities for this document %%%%%%%%% % Required preload of gonzo.ps and adjusted for your machine per above. % gonzodirectory (gonzo.ps) mergestr run % double reverse slashes in PS! (C:/Users/Don/Desktop/Ghost/gonzo.psl) run /guru { gonzo begin ps.util.1 begin printerror nuisance begin} def guru % activate gonzo utilities %%%%%%%%%% % This code locks pdfmark commands out of a PostScript printer. %%%%%%%%%% /pdfmark where {pop}{userdict /pdfmark /cleartomark load put} ifelse %%%%%%%%%% % This code changes the page size to smaller %%%%%%%%%% [/CropBox [0 0 520 620] % set the weird size in points X Y. /PAGES pdfmark %%%%%%%%%% % This code is needed for the automatic url placer %%%%%%%%%% % Requires a defined name for the url below % Activate with text text |/surl urlname |/eurl text text % /surl "start url" marks the beginning of a text sequence to be urled. % It also paints the text blue... /surl {mark /blue cvx 0.33 /setgray cvx % change text to blue /currentpoint cvx % remember box start /urly /exch cvx /store cvx /urlx /exch cvx /store cvx ] cvx % complete deferred command printlist exch 3 index exch put % stuff into gonzo printlist exch 1 add exch % increment gonzo list count } def % /eurl "end url" unmarks the end of a text sequence and sets up % the pdfmark needed to define the Acrobat web link. /eurl {mark % start deferred proc exch % position url string % /black cvx 0 /setgray cvx % turn blue marker off % maintextcolor /setrgbcolor cvx % reset to main text color??? /aqua cvx /black cvx /makeurl cvx % defer call of url builder ] cvx % complete deferred proc printlist exch 3 index exch % stuff into gonzo printlist put exch 1 add exch % increment gonzo list count } def % /makeurl generates the pdfmark, receiving a {(urlstring) makeurl}. % Note that it is not called until formatted printlist time... /urlover 0.2 def % fraction of hot area over bounds /makeurl { /cururlname exch store % save the url string mark % start pdfmark currentfont /ScaleMatrix get 3 get /fsize exch store % guess height /Rect [ urlx fsize urlover mul sub % set box left x urly fsize urlover mul sub % set box left y currentpoint exch fsize urlover mul add exch fsize add ] /Border [ 0 0 0] % [0 0 0 ] = none; [0 0 2] = debug /Color [ .7 0 0 ] /Action <> /Subtype /Link /ANN % annotation type pdfmark % call pdf operators } def % /makeurlx generates the box specific pdfmark, receiving % a {(urlstring) makeurl}. % Note that it is not called until formatted printlist time... /makeurlx { /cururlnamex exch store % save the url string mark % start pdfmark /Rect [ xpos % set box left x ypos 0.9 sub % set box left y xpos 2.8 add % box right x ypos 0.9 sub 2.8 add % box right y ] /Border [ 0 0 0] % [0 0 0 ] = none; [0 0 2] = debug /Color [ .7 0 0 ] /Action <> /Subtype /Link /ANN % annotation type pdfmark % call pdf operators } def %%%%%%%%%%% % This code inserts color effects mid line %%%%%%%%%% %%%%%%%%%%%%%% COMPACT VERSION OF COLORIZER II %%%%%%%%%%%%%%%%%%%%%% /settint {dup /currenttint exch store 5.999 mul dup floor cvi /&cbar exch store dup floor sub /&cwt exch store [ {/setgray [ /dup cvx 0.3 &cwt 0.59 mul add /ge cvx [1 /exch cvx &cwt 0.59 mul 0.30 add /sub cvx 1 &cwt sub 0.59 mul 0.11 add /div cvx /dup cvx 1 &cwt sub /mul cvx &cwt /add cvx /exch cvx ] cvx [ &cwt 0.59 mul 0.3 add /div cvx /dup cvx &cwt /mul cvx 0] cvx /ifelse cvx /setrgbcolor cvx] cvx /def cvx} {/setgray [/dup cvx 0.59 1 &cwt sub 0.3 mul add /ge cvx [1 &cwt sub 0.3 mul 0.59 add /sub cvx &cwt 0.3 mul 0.11 add /div cvx /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx /exch cvx 1 /exch cvx] cvx [1 &cwt sub 0.3 mul 0.59 add /div cvx /dup cvx 1 &cwt sub /mul cvx /exch cvx 0] cvx /ifelse cvx /setrgbcolor cvx] cvx /def cvx} {/setgray [/dup cvx 0.59 &cwt 0.11 mul add /ge cvx [&cwt 0.11 mul 0.59 add /sub cvx 1 &cwt sub 0.11 mul 0.30 add /div cvx /dup cvx 1 &cwt sub /mul cvx &cwt /add cvx 1 /exch cvx] cvx [0 /exch cvx &cwt 0.11 mul 0.59 add /div cvx /dup cvx &cwt /mul cvx] cvx /ifelse cvx /setrgbcolor cvx] cvx /def cvx} {/setgray [/dup cvx 0.59 1 &cwt sub mul 0.11 add /ge cvx [1 &cwt sub 0.59 mul 0.11 add /sub cvx &cwt 0.59 mul 0.30 add /div cvx /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx 1] cvx [0 /exch cvx 1 &cwt sub 0.59 mul 0.11 add /div cvx /dup cvx 1 &cwt sub /mul cvx /exch cvx] cvx /ifelse cvx /setrgbcolor cvx] cvx /def cvx} {/setgray [/dup cvx 0.11 &cwt 0.30 mul add /ge cvx[&cwt 0.30 mul 0.11 add /sub cvx 1 &cwt sub 0.30 mul 0.59 add /div cvx /dup cvx 1 &cwt sub /mul cvx &cwt /add cvx /exch cvx 1] cvx [ &cwt 0.30 mul 0.11 add /div cvx /dup cvx &cwt /mul cvx /exch cvx 0 /exch cvx ] cvx /ifelse cvx /setrgbcolor cvx ] cvx /def cvx} {/setgray [ /dup cvx 0.30 1 &cwt sub 0.11 mul add /ge cvx[ 1 /exch cvx 1 &cwt sub 0.11 mul 0.30 add /sub cvx &cwt 0.11 mul 0.59 add /div cvx /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx ] cvx [ 1 &cwt sub 0.11 mul 0.30 add /div cvx /dup cvx 1 &cwt sub /mul cvx 0 /exch cvx] cvx /ifelse cvx /setrgbcolor cvx ] cvx /def cvx} ] &cbar get exec exec} bind def /beige {0.11 settint} def % examples of convenience operators /aqua {0.52 settint} def /blue {0.67 settint} def /lime {0.44 settint} def %%%%%%%%%%% % This code converts a .JPG image into a PS image %%%%%%%%%%% /jpegimageprocwithlink { % hoffset voffset hres vres urlfrom urlto save /snap2 exch def /inurllink exch store % grab link filename /infilename exch store % grab passed pix file /photoscale exch store /vpixels exch store /hpixels exch store % (\nvpixels = )print vpixels == % (\nhpixels = )print hpixels == % (\photoscale = ) print photoscale == % (\ninurllink = ) print inurllink == % (\ninfilemane = ) print infilename == translate % adjust position for final figure ??? inurllink setareaurl % autolink sizing /DeviceRGB setcolorspace % pick color model 0 0 translate % set page position hpixels vpixels scale % magnify unit square photoscale dup scale /infile infilename (r) file def % establish input read file /Data {infile /DCTDecode filter} def % define a data source << % start image dicationary /ImageType 1 % always one /Width hpixels % JPEG width in pixels /Height vpixels % JPEG height in pixels /ImageMatrix [hpixels 0 0 vpixels neg 0 vpixels ] /DataSource Data % proc to get filtered JPEG /BitsPerComponent 8 % color resolution /Decode [0 1 0 1 0 1] % per red book 4.10 >> image % call the image operator ypos snap2 restore /ypos exch def } def /setareaurl { % for auto include routine /cururlname exch store mark % start pdfmark /Rect [ 0 0 hpixels photoscale mul vpixels photoscale mul ] /Border [ 0 0 0] % [0 0 0 ] = none; [0 0 2] = debug /Color [ .7 0 0 ] /Action <> /Subtype /Link /ANN % annotation type pdfmark % call pdf operators } def %%%%%%%%%%% % This code inserts a PS figure proc into a fixed location %%%%%%%%%%% %%%%%%%%%%% % This code autopositions a PS figure proc %%%%%%%%%%% %%%%%%%%%%% % This image code for sequential pages %%%%%%%%%%% /startnewpage { black beige 0.35 setgray 21 -2.5 (|3\320|j|j) ggnum 40 string cvs mergestr (|j |j) mergestr pagenum 10 string cvs mergestr (|j|j\320) mergestr cc aqua showpage %% start next page /pagenum pagenum 1 add store 50 50 10 setgrid % create grid setpagefonts font1 textleft texttop } def %%%%%%%%%%% % These code snippets do various things %%%%%%%%%%% /tinton1 {mark 0.33 /setgray cvx] cvx printlist exch 3 index exch put exch 1 add exch} def /tintoff {mark 0 /setgray cvx] cvx printlist exch 3 index exch put exch 1 add exch} def /to {tinton1 aqua font6} store /tx {tintoff black font1} store /su {surl} store /webtintmat [ 0 1 5 {/a exch store 0 1 5 % webtint color array {/b exch store 0 1 5 {5 div b 5 div a 5 div} for }for } for ] def /setwebtint { abs cvi 216 cvi mod webtintmat % set 215 colors exch 3 mul 3 getinterval aload pop setrgbcolor} def /makered { mark 5 /setwebtint cvx ] cvx printlist exch 3 index exch put exch 1 add exch } store /makeblack { mark 0 /setwebtint cvx ] cvx printlist exch 3 index exch put exch 1 add exch } store %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%% document specific resources start here %%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%% % define url's to be generated ... ---> zzzzz <---- search marker %%%%%%%%% << /kmlx (http://www.tinaja.com/canal/mapimage2.kml) /hsfn1 (http://www.tinaja.com/canal/field_notes/hsfn1.pdf) /robinsonfn1 (http://www.tinaja.com/canal/field_notes/robinsonfn1.pdf) /allenfn1 (http://www.tinaja.com/canal/field_notes/allenfn1.pdf) /riggsmesafn1 (http://www.tinaja.com/canal/field_notes/riggsmesafn1.pdf) /golfcoursefn1 (http://www.tinaja.com/canal/field_notes/golfcoursefn1.pdf) /longviewfn1 (http://www.tinaja.com/canal/field_notes/longviewfn1.pdf) /freemanfn1 (http://www.tinaja.com/canal/field_notes/freemanfn1.pdf) /tranquilityfn1 (http://www.tinaja.com/canal/field_notes/tranquilityn1.pdf) /marijildafn1 (http://www.tinaja.com/canal/field_notes/marijildafn1.pdf) /allendamfail (http://www.tinaja.com/glib/allendam.pdf) /acme (http://www.mapper.acme.com/) /googleearth (https://www.google.com/earth/) /tranquility (http://www.azhotmineralspring.com/) /cottonclouds (http://www.cottonclouds.com/index.asp) /tbeastfn1 (http://www.tinaja.com/canal/field_notes/tbeastfn1.pdf) /mudspringsfn1 (http://www.tinaja.com/canal/field_notes/mudspringsfn1.pdf) /blm (https://www.blm.gov/office/safford-field-office) /azstateland (https://land.az.gov) /anasazai (https://en.wikipedia.org/wiki/Ancient_Pueblo_peoples) /aqueduct (https://en.wikipedia.org/wiki/Aqueduct_(water_supply)) /AZrepublic (http://www.azcentral.com/news/articles/20130223arizona-hanging-canal-mystery.html) /bajada (https://en.wikipedia.org/wiki/Bajada_(geography)) /cnf (http://www.fs.usda.gov/coronado/) /association (https://en.wikipedia.org/wiki/Archaeological_association) /ccc (https://en.wikipedia.org/wiki/Civilian_Conservation_Corps) /glyphspair (http://www.tinaja.com/canal/cansum1.pdf) /grids (http://www.uapress.arizona.edu/Books/bid1582.htm) /gurgrm01 (http://www.tinaja.com/gurgrm01.shtml) /hohokam (https://en.wikipedia.org/wiki/Hohokam) /hunt (http://www.jstor.org/discover/10.2307/40035308?uid=3739552&uid=2&uid=4&uid=3739256&sid=21103435122901) /joanna (www.azcentral.com/opinions/articles/20130226editorial-admiring-our-forebears.html) /lefthand (http://www.tinaja.com/glib/lefthand.pdf) /maildon (mailto:don@tinaja.com) /mailneely (mailto:neelyja@utexas.edu) /mimbres (https://en.wikipedia.org/wiki/Mimbres_culture#Mimbres_culture) /mongollon (https://en.wikipedia.org/wiki/Mogollon_culture) /murphy (http://www.tinaja.com/glib/neely1.pdf) /newhang3 (http://www.tinaja.com/canal/newhang3.pdf) /tinsamp1 (http://www.tinaja.com/tinsamp1.shtml) /newhangshow3 (http://www.tinaja.com/canal/newhangshow3.pdf) /pinalino (https://en.wikipedia.org/wiki/Pinale%C3%B1o_Mountains) /prebajada (http://www.tinaja.com/glib/prebajada.pdf) /safford (https://en.wikipedia.org/wiki/Safford,_Arizona) /salado (https://en.wikipedia.org/wiki/Salado_culture) /scs (https://en.wikipedia.org/wiki/Natural_Resources_Conservation_Service) /stratigraphy (https://en.wikipedia.org/wiki/Stratigraphy) /tinaja (http://www.tinaja.com) /usatoday (http://www.usatoday.com/story/news/nation/2013/02/24/hanging-canals-whet-appetite-for-ancient-history/1941797) /waterlevel (http://en.wikipedia.org/wiki/Water_level) /whtnu15 (http://www.tinaja.com/whtnu15.shtml) /whtnu17 (http://www.tinaja.com/whtnu17.shtml) >> {mark exch /eurl cvx ] cvx def} forall %%%%%%%%%% % define fonts and main document gonzo params %%%%%%%%%% /setpagefonts { /cstretch 0.015 def /sstretch 0.015 def /font0 /StoneSans-Bold 1.6 gonzofont /font1 /StoneSans 0.95 gonzofont /font2 /StoneSans [0.95 0 0.25 0.95 0 0 ] gonzofont /font4 /StoneSans 0.85 gonzofont /font3 /StoneSans-Bold 0.85 gonzofont /font6 /StoneSans-Bold 0.85 gonzofont /font7 /StoneSans-Bold 1.05 gonzofont % subheaders /font8 /StoneSans-Bold [0.65 0 0 0.65 0 0.4] gonzofont /font9 /StoneSans-Bold 1.05 gonzofont /txtwide 36 store /yinc 1.2 store /kern 0.1 store /texttop 51 store /textleft 3 store /amacro {(zy0) stringmacro /ypos ypos ypara add def} def % start drop cap /bmacro {(iFy1) stringmacro /ypos ypos ypara add def} def % finish drop cap } store /nogrid {true} store /ggnum (Robinson Canal Log) store % header for pagenumber /pagenum 1 def % initial pagenumber %%%%%%%%%%%%%% % Image common code for sequential pages %%%%%%%%%%%%%% /imagecommoncode { /font6 /StoneSans [2.4 0 0 2.8 0 0 ] gonzofont /font7 /StoneSans 1.2 gonzofont /green { 0 0.4 0 setrgbcolor} store /black { 0 0 0 setrgbcolor } store % text image link [ /Rect [2.0 42.2 39 44.2] /Action << /Subtype /URI /URI imageurl >> /Border [0 0 0] /Color [1 1 1] /Subtype /Link /ANN pdfmark % gps image link [ /Rect [2.0 40.1 39 42.1] /Action << /Subtype /URI /URI acmegpsurl >> /Border [0 0 0] /Color [1 1 1] /Subtype /Link /ANN pdfmark % image image link [ /Rect [2 13.7 39 38.6] /Action << /Subtype /URI /URI imageurl >> /Border [0 0 0] /Color [1 1 1] /Subtype /Link /ANN pdfmark /blue {0 0 1 setrgbcolor} store % not sure why these are needed here /setblue {mark 0 0 1 /setrgbcolor cvx ] cvx printlist exch 3 index exch put exch 1 add exch} store /setblack {mark 0 0 0 /setrgbcolor cvx ] cvx printlist exch 3 index exch put exch 1 add exch} store 0 47.5 (|6|/green ) imagename mergestr cl 0 45 (|7|/green ) imagetitle mergestr cl blue 3 42.8 (|7|/setblue ) imageurl mergestr cl 3 40.6 (|7|/setblue ) imagegps mergestr cl black } store %%% Page Navigation Utilities %%%% % requires gonzo utilities from http://www.tinaja.com/gonzo.psl /kern 0.1 store /navpagenum 1 store /prevpage 1 store /lastpage false store /baux { save /ssnap exch store /sym exch store translate 0 0 mt 2 pu 2 pr 2 pd closepath gsave 0.94 0.94 0.98 setrgbcolor fill grestore 0.8 dup dup setrgbcolor line2 stroke 0.5 dup dup setrgbcolor /font1 /Helvetica 1.5 gonzofont font1 1 0.5 sym cc ssnap restore} store black /glyphnext { 53 (>) baux } store /glyphprev {53 (<) baux } store /glyphone { 53 (1) baux} store /glyphback {53 (<|k|k|k<) baux} store /aaaa { [ /Rect [0 53 2 55] /Page/Next /View [/XYZ null null null] /Border [0 0 0 ] /Subtype /Link /ANN pdfmark [ /Rect [2.5 53 4.5 55] /Page prevpage /View [/XYZ null null null] /Border [0 0 0 ] /Subtype /Link /ANN pdfmark } store /bbbb { [ /Rect [0 53 2 55] /Page /Prev /View [/XYZ null null null] /Border [0 0 0 ] /Subtype /Link /ANN pdfmark [ /Rect [2.5 53 4.5 55] /Page 1 /View [/XYZ null null null] /Border [0 0 0 ] /Subtype /Link /ANN pdfmark [ /Rect [5 53 7 55] /Page/Next /View [/XYZ null null null] /Border [0 0 0 ] /Subtype /Link /ANN pdfmark [ /Rect [7.5 53 9.5 55] /Page prevpage /View [/XYZ null null null] /Border [0 0 0 ] /Subtype /Link /ANN pdfmark } store /cccc { [ /Rect [0 53 2 55] /Page /Prev /View [/XYZ null null null] /Border [0 0 0 ] /Subtype /Link /ANN pdfmark [ /Rect [2.5 53 4.5 55] /Page 1 /View [/XYZ null null null] /Border [0 0 0 ] /Subtype /Link /ANN pdfmark [ /Rect [5 53 7 55] /Page prevpage /View [/XYZ null null null] /Border [0 0 0 ] /Subtype /Link /ANN pdfmark } store /addpagenav { navpagenum 1 eq { 0 glyphnext 2.5 glyphback aaaa} if navpagenum 1 ne lastpage not and {0 glyphprev 2.5 glyphone 5 glyphnext 7.5 glyphback bbbb} if lastpage {0 glyphprev 2.5 glyphone 5 glyphback cccc} if /prevpage pagenum store /navpagenum navpagenum 1 add store} store %%%%%%%%%%%%%%%% begin kml experiment %%%%%%%%%%%%%%%%%%%%%%%%%%% % this still needs a way for Chrome to go directly to Google Earth. % presently opens kml textfile instead. Chrome extensions not helping. % presently usable with this manual workaround: Do a save as from the % clicked kml text. Then click on the saved kml file. /clickforkml { true { save /ksnap exch store 34 53 translate 0 0 mt 2 pu 7.2 pr 2 pd closepath gsave 0.94 0.94 0.98 setrgbcolor fill grestore 0.8 0.8 0.8 setrgbcolor line2 stroke 0.6 0.6 (|6|/surl Click for KML |/kmlx ) cl ksnap restore } if } store % end kml link %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%% actual page content starts here %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%% % title page %%%%%%%%%%%%% 50 50 10 setgrid false {40 10 showgrid} if setpagefonts beige 20 48.3 0.7 add % 1 sub (|/to |0Some |jRobinson)cc 20 46.3 0.7 add % 1 sub (|/to |0Canal |jField |jNotes) cc black font1 textleft 44 (|/to |6Don Lancaster|/tx |1and |/to |6Dr. James Neely|1|/tx Synergetics, Box 809, Thatcher, AZ 85552 copyright c2017 pub 6/17 All rights reserved |/surl |6http://www.tinaja.com|/tinaja |/surl don@tinaja.com|1|/maildon and |6|/surl neelyja@utexas.edu|1|/mailneely |/to (928) 428-4073|/tx |1and |/to (575) 686-0098 |/to |0T|/tx |khe largely well preserved Robinson Ditch |/surl |6Prehistoric Hanging Bajada Canal|/tinsamp1 |1is one of the longer and more difficult for foot-only access. Significant hanging portions are included. It also offers exceptionally strong and deceptive "water flows uphill" illusions caused by subtle differences in canal slope compared to the actual topography slope. Somewhat centered in the entire canal system, Robinson also seems quite sophisticated in that there is a distinct "predelivery routing" phase and an "actual canal" phase. The canal was renamed by a pioneer clan. |h The length of the presently |/to |6verified and surveyed|/tx |1 Robinson portion is 5.6 kilometers. But the |/to |6total managed length|/tx |1may end up approaching an 8.3 kilometers if a Frye Creek watershed diversion, major predelivery routings on upper Frye Mesa and and final extensions to unverified fields are included\274 ) cl /imageurl (http://mapper.acme.com/?ll=32.78657,-109.79816&z=13&t=H&marker0=32.74530%2C-109.84049%2C3.5%20mi%20NxNE%20of%20Mount%20Graham%20AZ&marker1=32.75591%2C-109.83312%2C4.3%20mi%20NxNE%20of%20Mount%20Graham%20AZ&marker2=32.76008%2C-109.81132%2Cunnamed&marker3=32.77787%2C-109.79580%2Cunnamed&marker4=32.78291%2C-109.79524%2C5.0%20mi%20WxNW%20of%20Cactus%20Flat%20AZ&marker5=32.79095%2C-109.79147%2Cunnamed&marker6=32.81269%2C-109.77310%2C2.7%20mi%20SxSW%20of%20Thatcher%20AZ&marker7=32.75082%2C-109.83771%2C3.9%20mi%20NxNE%20of%20Mount%20Graham%20AZ&marker8=32.76348%2C-109.80056%2C5.0%20mi%20W%20of%20Cactus%20Flat%20AZ&marker9=32.78761%2C-109.79162%2C4.7%20mi%20SxSW%20of%20Thatcher%20AZ&marker10=32.74387%2C-109.83947%2C3.4%20mi%20NxNE%20of%20Mount%20Graham%20AZ&marker11=32.77461%2C-109.79667%2C4.9%20mi%20WxNW%20of%20Cactus%20Flat%20AZ&marker12=32.75840%2C-109.82049%2C4.9%20mi%20NE%20of%20Mount%20Graham%20AZ&marker13=32.80573%2C-109.78705%2C3.4%20mi%20SxSW%20of%20Thatcher%20AZ) store % goto remote image /imagelocalsource imagelocaldirectory (robinson_map1.jpg) mergestr store % comes from local file gsave 10.5 -0.5 % page translate ( data for jpegimageprocwithlink ) 534 635 % hpixels and vpixels 0.1 0.35 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink grestore addpagenav clickforkml startnewpage /tabs [2 13.5] store 3 52.5 (|1 |h Predelivery apparently consisted of gathering water from three distinct sources, a projected but not yet proven Frye Creek watershed crossing diversion starting at |/to |632.74387 -109.83947|/tx and similar to a proven watershed crossing elsewhere at |/to |632.79151 -109.85386|/tx ; an apparently major spring at |/to |62.74530 -109.84049|/tx ; and the Spring Canyon streamflow itself also found at |/to |62.74530 -109.84049|/tx . |h These gathered resources were then either routed down the natural Spring Canyon channel to eventually become |/surl |6Allen Canal|1|/allenfn1 , or were else casrefully routed down the entire length of Upper Frye Mesa to a holding pond at |/to |632.76008 |/to -109.81132|/tx . |h From this pond, the water could be apparently switched between the beginning of the main Robinson Canal also at |/to |632.76008 -109.81132|/tx . Or alternately routed down the spectacular |/surl |6HS Canal|/hsfn1 |1 at |/to |632.75869 -109.81423|/tx , presumably but still unproven to become the |/surl |6Golf Course Canal|/golfcoursefn1 , |1the |/surl |6Freeman Canal|/freemanfn1 |1, and possibly several others. |h The somewhat tortuious predelivery routing down upper Frye Mesa includes knife edging at |/to |632.75840 -109.82049|/tx , braided channels, and even some |/surl |6CCC|1|/ccc water spreader rework. Portions near the falls parking lot remain unverified. A similar |/surl |6CNF|1|/cnf routing remains in use today as a forest service pipeline. This is one of many examples of "steal the plans" or "borrow the blueprints" adaptation. |h Elevation of the predelivery phase begins at 5600 feet and the actual canal at 4360, potentially delivering to presumed fields around 3340 and a projected total slope of 5.8 percent. This figure is rather high owing to the descent of two or more mesas. Ownership of the predelivery phase is primarily |/surl |6Coronado National|/cnf |/surl |6 Forest|/cnf |1, while the rest of the actual canal routing is mostly |/surl |6Arizona State lands|1|/azstateland . |h Difficult access is mostly foot only, variously reachable by way of 4WD tracks out of Dailey Estates, the lower Frye Mesa road and the upper Frye Mesa road. The condition and preservation is generally good along much of the actual route. |h The actual canal begins a steep hanging descent at |/to |632.76008 -109.81132|/tx routing down to a Sheep Tank Canyon crossing at |/to |632.76348 -109.80056|/tx . This portion remains unvisited, but is mostly obvious on |/surl |6Acme Mapper|/acme , |1besides being a clearly named object on topo maps. |h The canal then begins a rather impressive "climb" up Robinson Mesa at |/to |632.77461 |/to -109.79667|/tx with a significant hanging portion and a very strong "water flows uphill" illusion. Typical size in this region is around a meter wide by 80 cm deep. Remnants of dead mesquite trees suggest remnant flows during historic times. |h Once reaching the mesa top at |/to |632.77787 -109.79580|/tx , the canal assumes a "normal" rather than a "hanging" status. A major washout along this reach near |/to |632.78761 -109.79162|/tx renders its status presently unfunctional. ) cl addpagenav clickforkml startnewpage 3 52.5 (|1 The Robinson canal next steeply drops off its mesa near |/to |632.79712 -109.79131|/tx , possibly assisted by French Drain structures. Both the Thorpe Tank that is found at |/to |632.80128 -109.78870|/tx and the Stowe Tank near |/to 32.80647 -109.78561|6|/tx but off the direct route suggest historic reuse, as does the conspicuously obvious and well marked topo renaming. |h No obvious end tie in to the |/surl |6Golf Course canal|/golfcoursefn1 |1 has yet been observed, and the intermediate terrain would appear somewhat unfavorable. At present, mid reach of the Golf Course Canal remains largely unresolved. A more direct route directly south up through Riggs Canyon would appear more probable. |h No specific destination for the Robinson Canal has yet been verified. While it may in fact terminate at Stowe tank, the three ponds at |/to 32.81107 -109.77215|/tx |1 might also have served as end use fields. Any extension further north would seem limited by the Spring Canyon drainage. ) cl addpagenav clickforkml startnewpage 3 52.5 (|1 |h Here are some noteworthy Robinson Canal features and locations\274 |t |/to 32.74339 -109.83972|/tx |tProjected but unproven location of Frye Creek |t|twatershed diversion. |h |t |/to 32.74519 -109.84080|/tx |tThe spring in Spring Canyon is believed to have |t|tbeen quite large in prehistoric times. |h |t |/to 32.74530 -109.84049|/tx |tWater switched here between Allen and Robinson. |h |t |/to 32.74730 -109.83892|/tx |tA "pinch point" here would appear to set routing. |h |t |/to 32.74881 -109.83883|/tx |tPresumed yet unproven "climb" up Frye Mesa. |h |t |/to 32.75102 -109.83770|/tx |tMesa route suggested by |/surl |6Acme Mapper|/acme |t|t|/surl |6CCC|/ccc |1cross dam rework appears present. |h |t |/to 32.75363 -109.83698|/tx |t|/surl |6CCC|/ccc |1water diversion appears to overlay the canal. |h |t |/to 32.75514 -109.83553 |/tx |tBelieved crossing of the Frye Creek Road |h |t |/to 32.75686 -109.83479 |/tx |tPresent destination of |/surl |6CNF|/cnf |1pipeline rework. |h |t |/to 32.75775 -109.82745 |/tx |tBraided channels include |/surl |6CCC|/ccc |1rework. |h |t |/to 32.75790 -109.82319 |/tx |tExceedingly narrow "Pinch Point" on mesa edge |t|tseems to set the only feasable graded route. |h |t |/to 32.75955 -109.81628 |/tx |tMore braided channels include |/surl |6CCC|/ccc |1 rework. |h |t |/to 32.76010 -109.81128 |/tx |tEnd of Predelivery. Start of actual Robinson Canal. |t|tWater switched between Robinson and HS canals. |h |t |/to 32.75907 -109.81345 |/tx |tSuperbly engineered HS canal returns creek water. |h |t |/to 32.75997 -109.81108 |/tx |tStart of actual Robinson canal. |h |t |/to 32.75979 -109.80755 |/tx |tSteep descent off Frye Mesa. |h |t |/to 32.76385 -109.80060 |/tx |tSheep tank canyon crossing. |h |t |/to 32.77421 -109.79653 |/tx |tSignificant "water flows uphill" illusion |h |t |/to 32.77684 -109.79653 |/tx |tDead Mesquite Trees suggest historical reuse. |h |t |/to 32.78597 -109.79232 |/tx |tHistorically renamed route well topo marked. |h |t |/to 32.78788 -109.79159 |/tx |tSignificant washout compromized canal |h |t |/to 32.79091 -109.79138 |/tx |tSteep descent off Robinson mesa |h |t |/to 32.80123 -109.78889 |/tx |tThorpe Tank may have seen historic canal use ) cl addpagenav clickforkml startnewpage 3 50 ( |h |t |/to 32.80653 -109.78545 |/tx |tStowe Tank may have seen historic canal use. |h |t |/to 32.81082 -109.77211 |/tx |tEnd use fields may underly these three tanks. |h |t |/to 32.81587 -109.77202 |/tx |tSpring Canyon would appear to limit extension. |1Further Robinson Canal work might include\274 |t|/to 1 \320|/tx Prove or disprove the Frye Creek watershed crossing canal. |h |t|/to 2 \320|/tx If watershed crossing does not exist, determine alternate explanation for the extreme HS Canal energy commitment. |h |t|/to 3 \320|/tx Determine exact switching point between Allen and Robinson. |h |t|/to 4 \320|/tx Resolve initial climb to mesa top. Map the top route itself. |h |t|/to 5 \320|/tx Improve mapping west of road. |h |t|/to 6 \320|/tx Map the exact CNF water pipe route and record its history. |h |t|/to 7 \320|/tx Map the braidings and the knife edge pinch point. |h |t|/to 8 \320|/tx Improve photography of entire canal, especially mesa dropoffs. |h |t|/to 9 \320|/tx Further study Sheep Tank Canyon crossing area. |h |t|/to 10 \320|/tx Determine significance of dead mesquite trees adjacent to canal. |h |t|/to 11 \320|/tx Study relationship between Thorp Tank, Stowe tank and the canal. |h |t|/to 12 \320|/tx Evaluate whether Robinson Canal ever reached the triple ponds. |h |t|/to 13 \320|/tx Do fly over drone and videotape survey. |h |t|/to 14 \320|/tx Mentor students and create field camps. |k|k|k|/to |6More Hanging Canal Resources: |/surl |6http://www.tinaja.com/tinsamp1.shtml |k|k|k|/to |6New Hanging Canal Discoveries: |/surl |6http://www.tinaja.com/whtnu17.shtml , |/tx |1|ketc\274 ) cl addpagenav clickforkml startnewpage %%%%%%%%%%%%%%% ROB1 ROB2 Photos%%%%%%%%%%% % top image /imageurl imageremotedirectory (/rob1.jpg) mergestr store % goto remote image /imagelocalsource imagelocaldirectory (rob1.jpg) mergestr store % comes from local file 5.0 28.0(|/to |9ROB1 \261|1|/tx The Robinson Canal begins its "climb" up Robinson Mesa with Deadman Peak in the background. The view is to the south from |/to 32.77604 -109.79688|/tx .) cl 8.3 30.5 % page translate ( data for jpegimageprocwithlink ) 1000 750 % hpixels and vpixels 0.1 0.33 mul 0.87 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink % bot image /imageurl imageremotedirectory (/rob2.jpg) mergestr store % goto remote image /imagelocalsource imagelocaldirectory (rob2.jpg) mergestr store 5.0 2(|/to |9ROB2 \261|1|/tx There is a strong illusion of "water flows uphill" where the downward slope of the canal exceeds the rate of fall of the local terrain. The view is to the north near |/to 32.77604 -109.79688|/tx .) cl 8.3 4.0 % page translate ( data for jpegimageprocwithlink ) 1000 750 % hpixels and vpixels 0.1 0.33 mul 0.87 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink addpagenav clickforkml startnewpage %%%%%%%%%%%%%%% ROB3 Photos%%%%%%%%%%% % top image /imageurl imageremotedirectory (/rob3.jpg) mergestr store % comes from local file /imagelocalsource imagelocaldirectory (rob3.jpg) mergestr store % comes from local fil 5 28 (|/to |9ROB3 \261|1|/tx The Robinson Canal assumes a more level stance once it reaches the mesa top. Numerous adjacent and dead mesquite trees appear to suggest water flow during historic times. The view is to the north near |/to 32.77730 -109.79597|/tx ) cl 8 30 % page translate ( data for jpegimageprocwithlink ) 1000 750 % hpixels and vpixels 0.1 0.33 mul 0.87 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink { % bot image /imageurl imageremotedirectory (/culebra1.jpg) mergestr store % goto remote image /imagelocalsource imagelocaldirectory (culebra1.jpg) mergestr store 5 2 (|/to |9CULEBRA1 \261|1|/tx Dr. Neely in the Culebra Cut. The size and reach of this canal is quite impressive. The evidence of prehistoric origins seems comvincing. The view is to the west at |/to 32.84792 -109.81102|/tx .) cl 8.3 2.5 % page translate ( data for jpegimageprocwithlink ) 1000 800 % hpixels and vpixels 0.1 0.33 mul 0.84 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink } pop /lastpage true store % do not omit! addpagenav clickforkml startnewpage % EOF