%! % Golf Course Field Notes with topo % ============================================================== % Copyright c 2018 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 an improved and updated version of the Golf Course Canal field notes % that includes expanded topo maps. Be sure embedded Stone fonts are % available properly set! You will also need related image copies as noted below. % 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/Ghost/gonzo.psl) run % Then run distiller ONLY from //acrodist.exe /F % 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 %%%%%%%%% << % some of these are no longer used, particularly fn1 vs 1fn /canallist (http://www.tinaja.com/canal/field_notes/canal_list2e.pdf) /canallistps (http://www.tinaja.com/canal/field_notes/canal_list2e.psl) /gilariver (https://en.wikipedia.org/wiki/Gila_River) /discoveryfn1 (http://www.tinaja.com/canal/field_notes/discoveryfn1.pdf) /ownership (http://gis.azland.gov/webapps/parcel/?loc=-109.7461,32.8033,12&layers=2,1,0) /goatfn1 (http://www.tinaja.com/canal/field_notes/goatfn1.pdf) /ledfordfn1 (http://www.tinaja.com/canal/field_notes/ledfordfn1.pdf) /marijildafn1 (http://www.tinaja.com/canal/field_notes/marijildafn1.pdf) /roperfn1 (http://www.tinaja.com/canal/field_notes/roperfn1.pdf) /kmlx (http://www.tinaja.com/canal/mapimage2.kml) /tbwestfn1 (http://www.tinaja.com/canal/field_notes/tbwestn1.pdf) /lowerfryeconstructfn1 (http://www.tinaja.com/canal/field_notes/slowerfryeconstructfn1.pdf) /deadman1fn (http://www.tinaja.com/canal/field_notes/deadman1fn.pdf) /deadman1fnps (http://www.tinaja.com/canal/field_notes/deadman1fn.psl) /sandcanalfn1 (http://www.tinaja.com/canal/field_notes/sandcanalfn1.pdf) /fryecomplexfn1 (http://www.tinaja.com/canal/field_notes/fryecomplexfn1.pdf) /bluepondsfn1 (http://www.tinaja.com/canal/field_notes/bluepondsfn1.pdf) /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) /ockham (https://en.wikipedia.org/wiki/Occam%27s_razor) /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 (Golf Course Canal Field Notes) 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 % ///////// (A) WEB FRIENDLY COLOR UTILITIES ///////////// % tintmat is a self-generating list of 216 triple color values /webtintmat [ 0 1 5 { /a exch store 0 1 5 { /b exch store 0 1 5 { 5 div b 5 div a 5 div }for } for } for ] def % setwebtint accepts a color number 0 to 215 and then % sets the PostScript color generator for later use... /setwebtint { abs cvi 216 cvi mod % restrict range webtintmat exch 3 mul 3 getinterval % get values from table aload pop setrgbcolor} def % and set them %%%%%%%%%%%%%%%% 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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%% % notebox uses modified roundpath %%%%%%%%%%%%% /notebox { % hpos vpos hsize vsize corrad titsize title body save /boxsnap exch store /yinc 1.1 store /body exch store /title exch store /titsize exch store /corrad exch store /hsize exch store /vsize exch store translate hsize 2 div 0 moveto 0 0 0 vsize corrad arct 0 vsize hsize vsize corrad arct hsize vsize hsize 0 corrad arct hsize 0 0 0 corrad arct closepath gsave 141 setwebtint fill grestore 54 pop 48 setwebtint line3 stroke hsize 2 div vsize titsize sub moveto 0 vsize titsize sub lineto 0 vsize hsize vsize corrad arct hsize vsize hsize vsize titsize sub corrad arct hsize vsize titsize sub lineto closepath 54 pop 48 setwebtint fill white font3 hsize 2 div vsize 1.4 sub title cc 1 2 3 4 black font3 hsize 2 div vsize titsize sub 1.2 sub body cc boxsnap restore } store % some upper urls may no longer be current << /whtnu15 (http://www.tinaja.com/whtnu15.shtml) /whtnu16 (http://www.tinaja.com/whtnu16.shtml) /whtnu17 (http://www.tinaja.com/whtnu17.shtml) /azland (https://land.az.gov/) /blueponds1fn (https://www.tinaja.com/canal/field_notes/blueponds1fn.pdf) /freeman1fn (https://www.tinaja.com/canal/field_notes/freeman1fn.pdf) /riggs1fn (https://www.tinaja.com/canal/field_notes/riggs1fn.pdf) /golfcourse1fn (https://www.tinaja.com/canal/field_notes/golfcourse1fn.pdf) /aquaduct1fn (https://www.tinaja.com/canal/field_notes/aquaduct1fn.pdf) /robtext (http://mapper.acme.com/?ll=32.80883,-109.78255&z=17&t=H&marker0=32.80832%2C-109.78545%2Cunnamed&marker1=32.80947%2C-109.78082%2C3.0%20mi%20SxSW%20of%20Thatcher%20AZ) /dead1fn (https://www.tinaja.com/canal/field_notes/deadman1fn.pdf) /sand1fn (https://www.tinaja.com/canal/field_notes/sand1fn.pdf) /mudspringsfn (https://www.tinaja.com/canal/field_notes/mudsprings1fn.pdf) /hsfn (https://www.tinaja.com/canal/field_notes/hs1fn.pdf) /allenfn (https://www.tinaja.com/canal/field_notes/allen1fn.pdf) /canallist (https://www.tinaja.com/canal/field_notes/canal_list2e.pdf) /canallistps (https://www.tinaja.com/canal/field_notes/canal_list2e.psl) /culebra1 (https://www.tinaja.com/canal/images/culebra1.jpg) /deadman1fn (https://www.tinaja.com/canal/field_notes/deadman1fn.pdf) /deadman1fnps (https://www.tinaja.com/canal/field_notes/deadman1fn.psl) /fryecomplex1fn (https://www.tinaja.com/canal/field_notes//fryecomplex1fn.pdf) /fryecomplex1fnps (https://www.tinaja.com/canal/field_notes//fryecomplex1fn.psl) /golfcourse1fn (https://www.tinaja.com/canal/field_notes//golf_course1fn.pdf) /golfcourse1fnps (https://www.tinaja.com/canal/field_notes//golf_course1fn.psl) /goat1fn (https://www.tinaja.com/canal/field_notes/goat1fn.pdf) /marijilda1fn (https://www.tinaja.com/canal/field_notes/marijilda1fn.pdf) /roper1fn (https://www.tinaja.com/canal/field_notes/roper1fn.pdf) /robinson1fn (https://www.tinaja.com/canal/field_notes/robinson1fn.pdf) /ledford1fn (https://www.tinaja.com/canal/field_notes/ledford1fn.pdf) /lower_frye_construct1fn (https://www.tinaja.com/canal/field_notes/lower_frye_construct1fn.pdf) /lower_frye_construct1fnps (https://www.tinaja.com/canal/field_notes/lower_frye_construct1fn.psl) /reaycan1fn (https://www.tinaja.com/canal/field_notes/reaycan1fn.pdf) /reacan1fnps (https://www.tinaja.com/canal/field_notes/reaycan1fn.psl) /arta1fn (https://www.tinaja.com/canal/field_notes/artesia1fn.pdf) /artb1fn (https://www.tinaja.com/canal/field_notes/artesib1fn.pdf) /glotz (https://www.tinaja.com/canal/field_notes/roper1fn.pdf) /glotzb (https://www.tinaja.com/canal/field_notes/roper1fn.pdf) >> {mark exch /eurl cvx ] cvx def} forall %%%%%%%%%%%%%% % title page %%%%%%%%%%%%% /tabs [1.5 3.2] store 50 50 10 setgrid false {40 160 showgrid} if setpagefonts { 12.5 21.7 0.2 add 11 17 0.5 2.3 (STILL |kFLOWING |kBAJADA |kCANALS) %|/surl |6Artesiaa|/artesiaa1fn %|/surl |6Artesiab|/artesiab1fn (|/surl |6Artesia#1 |/surl |6Artesia#2 |/surl |6Deadman|/deadman1fn |/surl |6Goat|/goat1fn |/surl |6Ledford|/ledford1fn |/surl |6Marijilda|/marijilda1fn |/surl |6Roper Lake|/roper1fn ) notebox } pop % hold for future use beige % really a colorizer green? 20 48.3 0.7 add 0.5 add % 1 sub (|/to |0Some |jGolf |jCourse |jCanal)cc 20 46.3 0.7 add 0.5 add % 1 sub (|/to |0Preliminary |jField |jNotes) cc black font1 textleft 44.3 0.5 add (|/to |6Don Lancaster|/tx |1and |/to |6James A. Neely|1|/tx Synergetics, Box 809, Thatcher, AZ 85552 copyright c2018 rev 1/18 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 |0W|/tx |khile only a small portion of the Golf Course |/su |6prehistoric bajada hanging canal|/tinsamp1 |/su system|1|/tinsamp1 is presently verified, recent evidence suggests that it has the potential of being a part of the longest and most significant found in the entire hanging canal grouping. The previously verified |/su |6Arizona State Lands|1|/azland portion was a mere 0.6 miles or 1 kilometer long and had an elevation differential of 35 feet from 3149 feet to 3114 feet\274 ) cl /imageurl % special image clicks thru to Acme Mapper (http://mapper.acme.com/?ll=32.79980,-109.77989&z=17&t=S&marker0=32.79920%2C-109.78114%2C5.9%20km%20SxSW%20of%20Thatcher%20AZ&marker1=32.79855%2C-109.78238%2C6.1%20km%20SxSW%20of%20Thatcher%20AZ&marker2=32.79908%2C-109.77707%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ&marker3=32.79980%2C-109.77989%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ&marker4=32.79796%2C-109.78311%2C6.1%20km%20SxSW%20of%20Thatcher%20AZ&marker5=32.79934%2C-109.77794%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ&marker6=32.79954%2C-109.77907%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ&marker7=32.79884%2C-109.77599%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ) store % goto remote image /imagelocalsource imagelocaldirectory (golf_sat2.jpg) mergestr store % comes from local file gsave 7 12.2 % page translate ( data for jpegimageprocwithlink ) 915 529 % hpixels and vpixels 0.1 0.31 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink grestore 3 10.7 (|y The earlier field verified portion began with a Southern limit that was set by a fence at |/to N 32.79796 W 109.78311|/tx . A credible, but yet still unproven, tentative takein source might be the terminus of the |/su |6HS Canal|1|/fryecomplex1fn at |/to N 32.75774 W 109.81499|/tx , possibly routed under a historic pipeline at |/to 32.76693 -109.79449|/tx . A remarkably similar pipeline overlays a similar hanging canal in the |/surl |6Deadman Canal|/deadman1fn |1 area. |h The projected Golf Course Canal is presumed to continue northerly past a partially known braiding near |/to N 32.77812 W 109.78992|/tx and through the Riggs Canyon gap at |/to N 32.77985 W 109.78669|/tx to |/to N 32.78197 W 109.78716|/tx . |h Here is what the projected extended Golf Course Canal might look like\274 ) cl addpagenav clickforkml startnewpage /imageurl % special image clicks thru to Acme Mapper (http://mapper.acme.com/?ll=32.79623,-109.76818&z=13&t=S&marker0=32.79980%2C-109.77989%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ&marker1=32.79884%2C-109.77599%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ&marker2=32.79796%2C-109.78311%2C6.1%20km%20SxSW%20of%20Thatcher%20AZ&marker3=32.80618%2C-109.77622%2C3.1%20mi%20SxSW%20of%20Thatcher%20AZ&marker4=32.81473%2C-109.77586%2C2.6%20mi%20SxSW%20of%20Thatcher%20AZ&marker5=32.82244%2C-109.77281%2C2.0%20mi%20SxSW%20of%20Thatcher%20AZ&marker6=32.78440%2C-109.78726%2C4.6%20mi%20WxNW%20of%20Cactus%20Flat%20AZ&marker7=32.77341%2C-109.78992%2C4.5%20mi%20WxNW%20of%20Cactus%20Flat%20AZ&marker8=32.76679%2C-109.79479%2C4.7%20mi%20W%20of%20Cactus%20Flat%20AZ) store % goto remote image /imagelocalsource imagelocaldirectory (golf_sat1.jpg) mergestr store % comes from local file gsave 8 31.7 % page translate ( data for jpegimageprocwithlink ) 664 552 % hpixels and vpixels 0.1 0.36 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink grestore /tabs [2 14.5 9.5] store 3 30.5 (|z|y |h If this canal were to continue past an obvious habitation area, some more recent discoveries indicate likely northward extensions past the Tailwater1 Canal to end up terminating in the |/surl |6Reay Canal|/reaycan1fn |/tx . For a total tentative possible channel full length of 10 or more miles or 16 kilometers. Not counting the |/surl |6Upper Frye Construct|/fryecomplex1fn |1 or its original sources! |h Earlier discounted less likely Golf Course sources could include some tie in with the Roberston Canal at |/to N 32.80231 W 109.78958|/tx , the Blue Ponds at |/to N 32.78869 |/to W 109.76882|/tx , or some involvement with four small artesian sources that can be found at |/to N 32.79593 W 109.78523|/tx , or at |/to N 32.79768 W 109.78412|/tx , |/to N 32.79954 |/to W 109.78345|/tx , and also at |/to N 32.80250 W 109.78098|/tx . These artesian sources seem to have very little current water flow, but it is highly unlikely they would not have been prehistorically exploited at least in some manner. |h Returning to the original exploration area: From the wash bottom at the fence, the Golf Course canal proceeds northerly, "climbing" out of the wash in a typical, well defined, and easily followed hanging route to the 4WD track at |/to N 32.79992 |/to W 109.78020|/tx . At this point, the canal swings suddenly eastward, initially on an obvious mesa top canal routing. |h Some continuing portions of this routine seem untraceable, while other short segments are fairly easily followed, especially at |/to N 32.79934 W 109.77794|/tx and at |/to N 32.79908 W 109.77707|/tx . Canal size is "medium" being typically one meter wide and half a meter deep. |h The known northeastern trace limit of the Golf Course Canal would seem to be at |/to N 32.79884 W 109.77599|/tx , owing to extensive modern development beyond. ) cl addpagenav clickforkml startnewpage 3 50.5 (|y A possible unverified destination might have been a field that underlies the Southernmost duck pond at |/to N 32.79944 W 109.77318|/tx . Alternately, the entire Daley Estates area around |/to N 32.80251 W 109.76683|/tx is unusually level and could easily have provided a wide ranging group of multiple fields. Areas remaining undeveloped here clearly have a rich cultural prehistory, including a major ruin, numerous potsherds, and even sherd "spoil piles" from pothunting or field camps. |h A short segment of another canal of indeterminate age and purpose can be found in the area at |/to N 32.80652 W 109.77828|/tx . It has something of a "tailwater" look about it and it is not yet clear what its relationship might have been to the |/su |6Golf|/golfcourse1fn |/su Course|1|/golfcourse1fn canal. Even further north lies the more recently discovered |/surl |6Reay Canal|/reaycan1fn |1. The later is endangered and terminates in a modern housing development. |h Some observed features of the Golf Course Canal include\274 |h |t |/to N 32.75772 W 109.81496|/tx |tPossible Frye Creek diversion. |h |t |/to N 32.75772 W 109.81496|/tx |tEnd of known HS Canal. |h |t |/to N 32.76693 W -109.79449|/tx |tPossibly overlain by historic pipeline. |h |t |/to N 32.77732 W 109.78801|/tx |tRiggs braided channel hints. |h |t |/to N 32.78055 W 109.78683|/tx |tStill unstudied potential Riggs Canyon segment. |h |t |/to N 32.79796 W 109.78311|/tx |tSouthern fence limit of Golf Course Canal. |h |t |/to N 32.79920 W 109.78114|/tx |tMidway "up" the hanging canal portion. |h |t |/to N 32.79980 W 109.77989|/tx |tShift between hanging and mesa top reaches. |h |t |/to N 32.79934 W 109.77794|/tx |tShort and well defined channel cut. |h |t |/to N 32.79884 W 109.77599|/tx |tSecond short channel cut. |h |t |/to N 32.79884 W 109.77599|/tx |tLimit apparently set by historical rework. |h |t |/to N 32.79948 W 109.77322|/tx |tDuck pond possible end use destination. |h |t |/to N 32.80617 W 109.77637|/tx |tPossibly related "Tailwater1" canal. |h |t |/to N 32.82220 W 109.77292|/tx |tPossibly related |/surl |6Reay Canal|/reaycan1fn |1. ) cl addpagenav clickforkml startnewpage 3 50.5 (|y Further Golf Course Canal work might include\274 |t|/to 1 \320|/tx Prove or disprove the Upper Frye Watershed Crossing. |h |t|/to 2 \320|/tx Find a feasible routing from HS Canal to the pipeline. |h |t|/to 3 \320|/tx Strengthen evidence of the historic pipeline overlay. |h |t|/to 4 \320|/tx Carefully map the Riggs Area braidings. |h |t|/to 5 \320|/tx Resolve the 'missing" Riggs Canyon Gap portions.. |h |t|/to 6 \320|/tx Determine relationship with "tailwater" canal segment. |h |t|/to 7 \320|/tx Determine relationship between Golf, Robinson, and Reay. |h |t|/to 8 \320|/tx Droning, videotaping, and more photos of the known portions. |h |t|/to 9 \320|/tx Plot and map entire canal route. |h |t|/to 10 \320|/tx Evaluate potential and use of artesian sources. |h |t|/to 11 \320|/tx Relate cultural resources to canal systems. |h ) cl addpagenav clickforkml startnewpage %%%%%%%%%%%%%%% GC1 GC2 Photos %%%%%%%%%%% % top image /imageurl imageremotedirectory (/gc1.jpg) mergestr store % goto remote image /imagelocalsource imagelocaldirectory (gc1.jpg) mergestr store % comes from local file 5.0 31.2(|/to |9GC1 \261|1|/tx Much of this portion of the Golf Course Canal is indistinct and hard to find, with the exception of a pair of modest and reasonably interpreted cuts. This is the western one shown west at |/to |N 32.79934 W 109.77794|/tx .) cl 9.3 33 % page translate ( data for jpegimageprocwithlink ) 1200 926 % hpixels and vpixels 0.1 0.20 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink % bot image /imageurl imageremotedirectory (/gc2.jpg) mergestr store % goto remote image /imagelocalsource imagelocaldirectory (gc2.jpg) mergestr store % comes from local file 5.0 5.8 (|/to |9GC2 \261|1|/tx A second fairly well defined Golf Course Canal cut. Edge spoil banks are approximately half a meter high. View is west at |/to N 32.79884 W 109.77599|/tx .) cl 9.3 7.5 % page translate ( data for jpegimageprocwithlink ) 1200 964 % hpixels and vpixels 0.1 0.20 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink % 5 1 (|/to More Hanging Canal Resources: |/surl |6http://www.tinaja.com/tinsamp1.shtml|1|/tinsamp1 ) cl % 4 -.3 (|/to New Hanging Canal Developments: |/surl |6http://www.tinaja.com/whtnu16.shtml|1|/whtnu16 ) cl addpagenav clickforkml startnewpage %%%%%%%%%%%%%%% GOLF3 GOLF4 Photos %%%%%%%%%%% % top image /imageurl imageremotedirectory (/golf3.jpg) mergestr store % goto remote image /imagelocalsource imagelocaldirectory (golf3.jpg) mergestr store % comes from local file 8.3 29 % page translate ( data for jpegimageprocwithlink ) 1500 1098 % hpixels and vpixels 0.1 0.187 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink % bottom image /imageurl imageremotedirectory (/golf4.jpg) mergestr store % goto remote image /imagelocalsource imagelocaldirectory (golf4.jpg) mergestr store % comes from local file 5 8.7 % page translate ( data for jpegimageprocwithlink ) 1232 515 % hpixels and vpixels 0.1 0.28 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink 4.3 27(|/to |9GOLF3 \261|1|/tx A 4WD track defines the point where the Golf Course canal shifts from its northerly hanging mode to its easterly mesa top mode. Viewed northwest from |/to N 32.79994 W 109.78019|/tx .) cl 5.0 7(|/to |9GOLF4 \261 |/tx This tilted image shows the hanging route of the Golf Course Canal where it "climbs" out of a wash. A sudden easterly turn marks reaching the flat mesa top where its conventional canal construction resumes. The view is to the East from |/to 32.79898 -109.78152|/tx .) cl addpagenav clickforkml startnewpage 3 49.7 (Here is a topographic map of the earlier verified Golf Course discoveries\274 ) cl 3 27 (And here is a topographic map of the partially projected but unproven full Golf Course extent. This does not include the |/surl |6Upper Frye Complex|/fryecomplex1fn |1predelivery phase\274 ) cl /imagelocalsource imagelocaldirectory (golf_topo2.jpg) mergestr store % comes from local file /imageurly (https://mapper.acme.com/?ll=32.79980,-109.77989&z=15&t=T&marker0=32.79855%2C-109.78238%2C6.1%20km%20SxSW%20of%20Thatcher%20AZ&marker1=32.79980%2C-109.77989%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ&marker2=32.79934%2C-109.77794%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ&marker3=32.79884%2C-109.77599%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ&marker4=32.79908%2C-109.77707%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ&marker5=32.79954%2C-109.77907%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ&marker6=32.79796%2C-109.78311%2C6.1%20km%20SxSW%20of%2) store % go to remote image. gsave 8 28.8 % page translate ( data for jpegimageprocwithlink ) 684 549 % hpixels and vpixels 0.1 0.363 mul % photoscale imagelocalsource % local jpg source imageurly % image url on clickthru jpegimageprocwithlink /imagelocalsource imagelocaldirectory (golf_topo1.jpg) mergestr store % comes from local file /imageurlz (https://mapper.acme.com/?ll=32.80417,-109.77058&z=13&t=T&marker0=32.79884%2C-109.77599%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ&marker1=32.80618%2C-109.77622%2C3.1%20mi%20SxSW%20of%20Thatcher%20AZ&marker2=32.82244%2C-109.77281%2C2.0%20mi%20SxSW%20of%20Thatcher%20AZ&marker3=32.77341%2C-109.78992%2C4.5%20mi%20WxNW%20of%20Cactus%20Flat%20AZ&marker4=32.79980%2C-109.77989%2C5.8%20km%20SxSW%20of%20Thatcher%20AZ&marker5=32.81473%2C-109.77586%2C2.6%20mi%20SxSW%20of%20Thatcher%20AZ&marker6=32.76679%2C-109.79479%2C4.7%20mi%20W%20of%20Cactus%20Flat%20AZ&marker7=32.78440%2C-109.78726%2C4.6%20mi%20WxNW%20of%20Cactus%20Flat%20AZ&marker8=32.79796%2C-109.78311%2C6.1%20km%20SxSW%20of%20Thatcher%20AZ) store % go to remote image. gsave 8 -0.3 % page translate ( data for jpegimageprocwithlink ) 575 580 % hpixels and vpixels 0.1 0.43 mul % photoscale imagelocalsource % local jpg source imageurlz % image url on clickthru jpegimageprocwithlink addpagenav clickforkml startnewpage 3 51 ( You can click through on the above images to directly reach |/surl |6Acme Mapper|/acme |1at a higher resolution. |h A hanging canal directory can be found|/surl |6 here|/canallist |1and its sourcecode |/surl |6here|/canallistps |1. |h This field note is associated with directory |/to 35. GCC1 - Golf Course Canal|/tx and |/to 86. |/to LFP1 - Lower Frye Pipeline|/tx and |/to 34. RGC1 - Riggs Mesa Area Braided Channels|/tx and |/to 80. REY1 - Reay Canal|/tx and |/to 36. TAP1 - Twin Artesian Ponds|/tx and |/to 31. HSC1 - |/to HS Canal|/tx and |/to 30. FPA1 - Lower Frye Mesa Ponding|/tx and |/to 87 TLW1 - The Tailwater |/to Canal|/tx and |/to 20. FMC1 - Frye Mesa Complex|/tx . |h This document can be found |/surl |6here|/golfcourse1fn |1 and its sourcecode |/surl |6here|/golfcourse1fnps |1. ) cl 4.5 23 (|/to More Hanging Canal Resources: |/surl |6http://www.tinaja.com/tinsamp1.shtml|1|/tinsamp1 ) cl 4 21.5 (|/to New Hanging Canal Developments: |/surl |6http://www.tinaja.com/whtnu17.shtml|1|/whtnu17 ) cl addpagenav clickforkml startnewpage %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /lastpage true store % do not omit! addpagenav clickforkml startnewpage % EOF