%! % Bear Springs Group with topo % ============================================================== % 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 %%%%%%%%% << % 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) /allen1fn (http://www.tinaja.com/canal/field_notes/allen1fn.pdf) /allen1fnps (http://www.tinaja.com/canal/field_notes/allen1fn.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 (Bear Springs Group 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 % ///////// (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.4 store /tabs [5.5] 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 4 vsize titsize sub 1.6 sub body cl 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) /allencanal1fn (https://www.tinaja.com/canal/field_notes/allen1fn.pdf) /allencanal1fnps (https://www.tinaja.com/canal/field_notes/allen1fn.psl) /artesia1fn (https://www.tinaja.com/canal/field_notes/artesia1fn.pdf) /artesia1fnps (https://www.tinaja.com/canal/field_notes/artesia1fn.psl) /artesia2fn (https://www.tinaja.com/canal/field_notes/artesia1fn.pdf) /artesia2fnps (https://www.tinaja.com/canal/field_notes/artesia1fn.psl) /bearspcn1fn (https://www.tinaja.com/canal/field_notes/bearspcn1fn.pdf) /bearspcn1fnps (https://www.tinaja.com/canal/field_notes/bearspcn1fn.psl) /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) /sandcan1fn (https://www.tinaja.com/canal/field_notes/sandcan1fn.pdf) /sandcan1fnps (https://www.tinaja.com/canal/field_notes/sandcan1fn.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) /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) /artesian (https://en.wikipedia.org/wiki/Artesian) /oldmap (http://nationalmap.gov/historical/) /gradeall (http://www.gradall.com/) >> {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 |6Artesia#1|/artesia1fn |t|/surl |6Artesia#2|/artesia1fn |/surl |6Bear Flat?|/bearspcn1fn |t|/surl |6Bigler|/bearspcn1fn |/surl |6Deadman|/deadman1fn |t|/surl |6Goat|/goat1fn |/surl |6Ledford|/ledford1fn |t|/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 |0Bear |jSprings |jCanal |jGroup)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 c2017 rev 12/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 |0B|/tx |jear Springs is both a major and reliable arid region |/su |6artesian|1|/artesian aquifier found on |/su |6Arizona State Lands|1|/azland at |/to N 32.84969 W 109.94507|/tx that once supported a hippy commune and stock ponds. While understudied to date owing to access issues and priorities, at least three historic canals are associated with this resource. |h |/to A key question is whether the known canals have prehistoric precedents|/tx . Given that the known prehistoric |/su |6Sand Canal|1|/sandcan1fn is within a mile and that dozens of proven prehistoric canals are in the reasonably nearby vicinity, |/to it would appear unlikely |/to that such a significantly unique water resource would have been ignored.|/tx Yet, definitive age proof still remains lacking. |h One good source for |/to Bear Springs|/tx info is this |/surl |6historic |k1960 USGS map|1|/oldmap \274 ) cl % special image ( a jpg click through like elsewhere /imageurl imageremotedirectory (/bearsprtopo60.jpg) mergestr store % goto remote image /imagelocalsource imagelocaldirectory (bearsprtopo60.jpg) mergestr store % comes from local file 10.3 4.5 % page translate ( data for jpegimageprocwithlink ) 662 666 % hpixels and vpixels 0.1 0.285 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink { % this was the original acme sourced click through /imageurl (http://mapper.acme.com/?ll=32.85902,-109.95959&z=18&t=H&marker0=32.85990%2C-109.95842%2C7.4%20km%20SxSW%20of%20Graham%20County%20AZ&marker1=32.85791%2C-109.96117%2C7.8%20km%20SxSW%20of%20Graham%20County%20AZ&marker2=32.85889%2C-109.96016%2C7.6%20km%20SxSW%20of%20Graham%20County%20AZ) store % goto remote image /imagelocalsource imagelocaldirectory (bearflat_map.jpg) mergestr store % comes from local file gsave 10 6.7 % page translate ( data for jpegimageprocwithlink ) 662 666 % hpixels and vpixels 0.1 0.43 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink grestore } pop 3 3.5 (|y |h The largest of the three Bear Canyon canals disappeared from the topo maps long ago. The historical construct started from artesian sources found near |/to N 32.85158 |/to W 109.93849|/tx and delivered to three ponds near |/to N 32.88968 W 109.91163|/tx , over a distance of 5 miles or 8 kilometers. ) cl addpagenav clickforkml startnewpage /tabs [2 14.5 9.5] store 3 50.8 (|y A modern satellite projection of the Bear Springs Canal looks like this\274 |h And a newer topographical map here\274 |h Elevations varied from 3160 down to 2900 feet. The historic construct or rebuild was quite large with a two meter cross section. Construction appeared to involve |/surl |6Gradeall|1|/gradeall class mechanics and clearly was not in the least energy efficient. ) cl /imageurl % acme sourced (http://mapper.acme.com/?ll=32.86969,-109.92154&z=14&t=H&marker0=32.85365%2C-109.93789%2C4.5%20mi%20SxSW%20of%20Graham%20County%20AZ&marker1=32.87045%2C-109.92180%2C3.2%20mi%20S%20of%20Graham%20County%20AZ&marker2=32.85314%2C-109.93960%2C4.6%20mi%20SxSW%20of%20Graham%20County%20AZ&marker3=32.86093%2C-109.93424%2C4.0%20mi%20SxSW%20of%20Graham%20County%20AZ&marker4=32.89009%2C-109.91197%2C1.9%20mi%20S%20of%20Graham%20County%20AZ) store % goto remote image /imagelocalsource imagelocaldirectory (bearsprings_map.jpg) mergestr store % comes from local file gsave 9.5 29.3 % page translate ( data for jpegimageprocwithlink ) 778 759 % hpixels and vpixels 0.1 0.27 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink grestore /imageurl % acme sourced (http://mapper.acme.com/?ll=32.86969,-109.92154&z=14&t=T&marker0=32.87045%2C-109.92180%2C3.2%20mi%20S%20of%20Graham%20County%20AZ&marker1=32.86093%2C-109.93424%2C4.0%20mi%20SxSW%20of%20Graham%20County%20AZ&marker2=32.85365%2C-109.93789%2C4.5%20mi%20SxSW%20of%20Graham%20County%20AZ&marker3=32.89009%2C-109.91197%2C1.9%20mi%20S%20of%20Graham%20County%20AZ&marker4=32.85314%2C-109.93960%2C4.6%20mi%20SxSW%20of%20Graham%20County%20AZ) store % goto remote image /imagelocalsource imagelocaldirectory (bearsprings_topo.jpg) mergestr store % comes from local file gsave 9.5 3.6 % page translate ( data for jpegimageprocwithlink ) 764 803 % hpixels and vpixels 0.1 0.28 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink grestore addpagenav clickforkml startnewpage /imageurl % acme sourced (http://mapper.acme.com/?ll=32.85418,-109.94007&z=16&t=H&marker0=32.85123%2C-109.94331%2C7.7%20km%20SxSW%20of%20Graham%20County%20AZ&marker1=32.85061%2C-109.94597%2C7.8%20km%20SxSW%20of%20Graham%20County%20AZ&marker2=32.85185%2C-109.94869%2C7.8%20km%20SxSW%20of%20Graham%20County%20AZ&marker3=32.85200%2C-109.93843%2C7.5%20km%20SxSW%20of%20Graham%20County%20AZ) store % goto remote image /imagelocalsource imagelocaldirectory (bigler_map.jpg) mergestr store % comes from local file gsave 9 13.8 % page translate ( data for jpegimageprocwithlink ) 732 562 % hpixels and vpixels 0.1 0.33 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink grestore 3 52 ( This may have been some sort of an investment scam. In that the size of the constructed canal grossly exceeds any apparent possible artesian flow rate. |h Approach local "urban lore" history with caution, as at least one source got the south to north terrain directed obvious flow direction backwards. |h Portions of the route are hard to follow, owing to abandonment and erosion. The general route is somewhat to the east of an also disuesed 4WD maint track. A northern approach is often more accessible. |h While the end cattle tank at |/to N 32.88968 W 109.91163|/tx included a dam and a spillway, the three pond sizes and arrangement are somewhat suggestive of prehistoric field origins. |h The |/to Bigler Canal|/tx is a second Bear Springs area resource that seems much more likely to include remnant prehistoric technology, size, and energy efficiency. |h The Bigler Canal satellite projection looks like this \274 Routing is from |/to N 32.85200 W 109.93843|/tx to |/to N 32.85185 W 109.94869|/tx , a distance of 0.6 miles or 1.0 kilometers, with an elevation range of 3180 to 3160 feet. It is sourced by artesian wells and delivers to a pair of Bigler Ponds, one of which is disused. |h This canal flows to this day. Portions are remarkably pristine and appear quite compatible with a prehistoric origin. As before, definitive proof of age still remains lacking. This remains a significant Gila Valley artesian resource. |h This area might be under residental and possibly condo development and its future status is presently unknown. Access is currently restricted by a locked gate. |h The Bigler Canal topo map looks like this \274 ) cl addpagenav clickforkml startnewpage 3 50.5 (|y The|/to Bear Flat canal |/tx is somewhat further west and can be reached via a rough 4WD track near Bear Springs Knoll. It sources from a single artesian well near |/to N 32.85790 W 109.96120|/tx and appears to deliver to an apparent field found at |/to N 32.85985 W 109.95839|/tx Distance is 0.6 miles or 0.36 kilometers. Eleations range from 3080 to 3070 feet\274 ) cl /imageurl % acme sourced (http://mapper.acme.com/?ll=32.85882,-109.96010&z=18&t=H&marker0=32.85880%2C-109.96025%2C7.6%20km%20SxSW%20of%20Graham%20County%20AZ&marker1=32.85985%2C-109.95839%2C7.4%20km%20SxSW%20of%20Graham%20County%20AZ&marker2=32.85790%2C-109.96120%2C7.8%20km%20SxSW%20of%20Graham%20County%20AZ) store % goto remote image /imagelocalsource imagelocaldirectory (bearflat_map.jpg) mergestr store % comes from local file gsave 8.5 -0.7 % page translate ( data for jpegimageprocwithlink ) 770 656 % hpixels and vpixels 0.1 0.34 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink grestore /imageurl % acme sourced (http://mapper.acme.com/?ll=32.85079,-109.93295&z=15&t=T&marker0=32.85061%2C-109.94597%2C7.8%20km%20SxSW%20of%20Graham%20County%20AZ&marker1=32.85200%2C-109.93843%2C7.5%20km%20SxSW%20of%20Graham%20County%20AZ&marker2=32.85185%2C-109.94869%2C7.8%20km%20SxSW%20of%20Graham%20County%20AZ&marker3=32.85123%2C-109.94331%2C7.7%20km%20SxSW%20of%20Graham%20County%20AZ) store % goto remote image /imagelocalsource imagelocaldirectory (bigler_topo.jpg) mergestr store % comes from local file gsave 8.5 29.5 % page translate ( data for jpegimageprocwithlink ) 798 674 % hpixels and vpixels 0.1 0.33 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink grestore addpagenav clickforkml startnewpage 3 51.5 ( With this topo map\274 |h Except for a beginning standpipe and an an ending modern but abandoned structure, the canal route appears apparently unmodified from a candidate prehistoric origin. Energy efficiency and 30 cm width and lack of significant historic improvements seem as expected. |h The canal was recently flowing, but since has become subject to extreme drought and water table conditions. |h There are huge and highly enigmatic areas northeast of the Bear Flat Canal suggestive of long failed ag ventures, probably owing to dramatically lowered water tables. |/su |6Acme Mapper|1|/acme shows several possible traces that could be either cowpaths or canal routes that may or may not have prehistoric origins. One typical example can be found at |/to N 32.89546 W 109.93751|/tx . |h This entire area seems suitable for drone or ATV survey and definitely merits new study. Climatic reconstruction is another possibility. ) cl 4.5 3 (|/to More Hanging Canal Resources: |/surl |6http://www.tinaja.com/tinsamp1.shtml|1|/tinsamp1 ) cl 4 1.5 (|/to New Hanging Canal Developments: |/surl |6http://www.tinaja.com/whtnu17.shtml|1|/whtnu17 ) cl /imageurl % acme sourced (http://mapper.acme.com/?ll=32.85882,-109.96010&z=15&t=T&marker0=32.85985%2C-109.95839%2C7.4%20km%20SxSW%20of%20Graham%20County%20AZ&marker1=32.85880%2C-109.96025%2C7.6%20km%20SxSW%20of%20Graham%20County%20AZ&marker2=32.85790%2C-109.96120%2C7.8%20km%20SxSW%20of%20Graham%20County%20AZ) store % goto remote image /imagelocalsource imagelocaldirectory (bearflat2_topo.jpg) mergestr store % comes from local file gsave 7 24 % page translate ( data for jpegimageprocwithlink ) 834 746 % hpixels and vpixels 0.1 0.33 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink grestore addpagenav clickforkml startnewpage 3 50.5 (|y |h Some observed features of the prehistoric Bear Springs area canals include\274 |h |t |/to N 32.81496 W 109.84920|/tx |tMain artesian area and one time commune. |h |t |/to N 32.85875 W 109.93513|/tx |tTypical canal and maint road routing. |h |t |/to N 32.85875 W 109.93513|/tx |tContinuance of canal and maint road. |h |t |/to N 32.88931 W 109.91178|/tx |tTriple destination ponds and possible fields. |h |t |/to N 32.81496 W 109.84920|/tx |tStart of Bigler Canal in artesian area. |h |t |/to N 32.85168 W 109.94259|/tx |tWater route simply goes down the road here. |h |t |/to N 32.85061 W 109.94605|/tx |tMid reach of Bigler Canal. |h |t |/to N 32.85190 W 109.94840|/tx |tBigler ponds destination. |h |t |/to N 32.85790 W 109.96120|/tx |tBear Flat canal artesian standpipe source. |h |t |/to N 32.85880 W 109.96025|/tx |tMid reach of Bear Flat canal. |h |t |/to N 32.85985 W 109.95839|/tx |tPossible Bear Flat destination field. Further Bear Springs area work might include\274 |t|/to 1 \320|/tx Resolve access road and visitation issues. |h |t|/to 2 \320|/tx Droning, videotaping, and photos of the known explored portion. |h |t|/to 3 \320|/tx Expand search for prehistoric evidence. |h |t|/to 4 \320|/tx Explore historical records for ownership and use. |h |t|/to 5 \320|/tx Seek out distribution of potsherds and other cultural evidence. |h |t|/to 6 \320|/tx Evaluate drought and climatic issues. |h |t|/to 7 \320|/tx Use drone or ATV to explore northern ag sites. |h 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 #60 BSC1 Bear Springs Canal|/tx |1. |h This document can be found |/surl |6here|/bearspcn1fn |1 and its sourcecode |/surl |6here|/bearspcn1fnps |1. ) cl addpagenav clickforkml startnewpage { % start of code not used in this instance. %%%%%%%%%%%%%%% CLUFFNW1 CLUFFNW2 Photos %%%%%%%%%%% % top image /imageurl imageremotedirectory (/cluffnw1.jpg) mergestr store % goto remote image /imagelocalsource imagelocaldirectory (cluffnw1.jpg) mergestr store % comes from local file 5.0 29.1(|/to |9CLLUFFNW1 \261|1|/tx One of several |/su |6Y-Weir|1|/weir concrete structures from the second historical rebuild of the Cluff NW canals. This one was apparently part of a wash crossing inverted siphon. Viewed northwest from |/to N 32.82647 W 109.84590|/tx .) cl 13.3 30.7 % page translate ( data for jpegimageprocwithlink ) 1000 1084 % hpixels and vpixels 0.1 0.187 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink % bot image /imageurl imageremotedirectory (/cluffnw2.jpg) mergestr store % goto remote image /imagelocalsource imagelocaldirectory (cluffnw2.jpg) mergestr store % comes from local file 5.0 2.4 (|/to |9CLUFFNW2 \261|1|/tx The second historic rebuild created a huge water channel whose size suggests |/su |6Gradall|1|/gradeall class machinery and high construction energy inefficiency. Portions are unusually single walled. View is south at |/to N 32.82625 W 109.84596|/tx .) cl 13.3 4.3 % page translate ( data for jpegimageprocwithlink ) 1000 1097 % hpixels and vpixels 0.1 0.19 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink addpagenav clickforkml startnewpage } pop % be sure to move above trailer to end! { % second map not used in this file /imageurlz (http://mapper.acme.com/?ll=32.75323,-109.78233&z=15&t=T&marker0=32.75215%2C-109.79025%2Cunnamed&marker1=32.75291%2C-109.78613%2C4.2%20mi%20W%20of%20Cactus%20Flat%20AZ&marker2=32.75434%2C-109.78194%2C3.9%20mi%20W%20of%20Cactus%20Flat%20AZ&marker3=32.75657%2C-109.77679%2C3.6%20mi%20W%20of%20Cactus%20Flat%20AZ&marker4=32.75010%2C-109.79672%2C4.8%20mi%20W%20of%20Cactus%20Flat%20AZ&marker5=32.75283%2C-109.78848%2C4.3%20mi%20W%20of%20Cactus%20Flat%20AZ) store % go to remote image. /imagelocalsource imagelocaldirectory (allen1_topo_map.jpg) mergestr store % comes from local file gsave } pop { % no images yet, so this goes above 3 21 ( 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 #38 ALC1 Allen Canal|/tx |1. Also related are |/to #39 ALD1 Allen Dam Failure|/tx and |/to #40 CUC1 Culebra Cut|/tx . |h This document can be found |/surl |6here|/allen1fn |1 and its sourcecode |/surl |6here|/allen1fnps |1.. ) cl } pop addpagenav clickforkml startnewpage % EOF