%! % Lefthand West Canal Preliminary Field Notes. % ============================================================== % Copyright c 2014 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 -R 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 embed fonts are properly set! You will also need an image copy of % http://www.tinaja.com/canal/Reduced_Images/allen0x500x400.jpg moved to an % appropriate directory on your pc as noted below. % This pre Distills both automatic urls AND jpeg image clickthru conversion! % JavaScript nav buttons still need added in full Acrobat % see http://www.tinaja.com/canal/canaleng1.js for button insertion code %%%%%%%%% % This comment is a reminder that Distiller needs a /F /R 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 % "C:\Program Files (x86)/Adobe/Acrobat 11.0/Acrobat/acrodist.exe" /F /R run % Then drag and drop this file into Distiller. %%%%%%%%% % Set Directory Headers %%%%%%%% /gonzodirectory (C:\\Users\\don\\Desktop\\Dist-FR\\) 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! /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 20 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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%% document specific resources start here %%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%% % define url's to be generated ... ---> zzzzz <---- search marker %%%%%%%%% << /tugood (http://www.tinaja.com/canal/field_notes/tugoodcanfn1.pdf) /mcinery (http://www.tinaja.com/glib/mtso.pdf) /webhouse (http://www.trulia.com/property/3163265391-2210-S-Webster-Homestead-Dr-Pima-AZ-85543) /azland (https://land.az.gov/) /acme (http://mapper.acme.com/) /octave (https://en.wikipedia.org/wiki/Tropical_Storm_Octave_(1983)) /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) >> {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 (Lefthand West 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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%% actual page content starts here %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%% % title page %%%%%%%%%%%%% 50 50 10 setgrid false {40 10 showgrid} if setpagefonts /pm 1.7 store beige 20 48.3 0.7 add % 1 sub (|/to |0Lefthand |jCanyon |jWest)cc 20 46.3 0.7 add % 1 sub (|/to |0Preliminary |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 c2015 pub 9/15 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 historically adapted Lefthand Canyon West canal originates within the Spear Ranch area Lefthand Canyon stream drainage on |/surl |6Arizona State lands|1|/azland starting near |/to N 32.81979 W 109.91820|/tx and routes to |/to N 32.82610 W 109.91800|/tx or possibly further North. It is a secondary canal whose known reach is only one kilometer long and whose elevations range from 3360 feet down to 3280 feet. ) cl /imageurl (http://mapper.acme.com/?ll=32.82307,-109.91876&z=17&t=H&marker0=32.82404%2C-109.91812%2C10.3%20km%20S%20of%20Graham%20County%20AZ&marker1=32.82504%2C-109.91823%2C10.2%20km%20S%20of%20Graham%20County%20AZ&marker2=32.82290%2C-109.91840%2Cunnamed&marker3=32.82128%2C-109.91857%2C10.6%20km%20S%20of%20Graham%20County%20AZ&marker4=32.82610%2C-109.91800%2C10.1%20km%20S%20of%20Graham%20County%20AZ&marker5=32.82071%2C-109.91833%2C10.7%20km%20S%20of%20Graham%20County%20AZ&marker6=32.81979%2C-109.91820%2C10.8%20km%20S%20of%20Graham%20County%20AZ) store % goto remote image /imagelocalsource imagelocaldirectory (lefthcan1.map.jpg) mergestr store % comes from local file gsave 12 7.0 % page translate ( data for jpegimageprocwithlink ) 688 826 % hpixels and vpixels 0.1 0.275 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink grestore 3 5.3 (|p|y The canal is the usual low energy design about 70 cm wide and appears to lack any hanging or deeply cut portions. It seems to have been historically used but remains largely unmodified, apparently serving an approximately one acre rectangular field area rather conspicuously obvious on |/surl |6Acme Mapper|1|/acme . Extension beyond the modern field area remains unknown. Possibly the historic area covers over the prehistoric end use fields. |h ) cl startnewpage %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% page two %%%%%%%%%%%%%%%%%%%% /tabs [2 14.5] store 3 52.5 (|p|y The exact takein point remains unknown, but is possibly closely related to other short end use field canals in the Lefthand Area. There also appears to be a companion Lamb Tank Canal several hundred meters to the West at |/to N 32.80832 |/to W 109.92218|/tx to |/to N 32.82058 W 109.92338|/tx which remains largely unexplored. It seems possible that Lamb Tank itself is a historic redevelopment of a prehistoric original. |h This area appears to be the most intensely developed, owing to its numerous canals in a rather compact area combined with obvious and extant end use fields. Access is presently restricted by gates and postings. |h Some observed features of the Lefthand West Canal include\274 |t |/to N 32.82128 W 109.91857|/tx |tOriginal access point. |h |t |/to N 32.82610 W 109.91800|/tx |tApparent rectangular historically developed field. |h |t |/to N 32.81979 W 109.91820|/tx |tPossible but unverified takein area. |h |t |/to N 32.83166 W 109.91690|/tx |tPosted gate. |h Further Lefthand West work might include\274 |t|/to 1 \320|/tx Extend explored areas to and North beyond rectangular field. |h |t|/to 2 \320|/tx Extend explored areas South to potential takein ares. |h |t|/to 3 \320|/tx Determine relationships with |/surl |6well recorded|1|/lefthand end use fields. |h |t|/to 4 \320|/tx Droning, videotaping, and more photos of the known explored portion. |h |t|/to 5 \320|/tx Attempt contact of Spear Ranch clan historian. Determine field use. |h |t|/to 6 \320|/tx Accurate mapping to show relationships of the many area canyons. |h |t|/to 7 \320|/tx Explore possibly related Lamb Tank canal. |h |t|/to 8 \320|/tx Consider an area field school. ) cl startnewpage %%%%%%%%%%%%%%% MINOR1 MINOR2 Photos%%%%%%%%%%% % top image /imageurl imageremotedirectory (/left1.jpg) mergestr store % goto remote image /imagelocalsource imagelocaldirectory (left1.jpg) mergestr store % comes from local file 4.5 22(|/to |9LEFT1 \261|1|/tx Portions of the Lefthand West canal appear to be somewhat indistinct, but others are readily traced. This view is to the South near the 4WD crossing at |/to N 32.82114 W 109.91848|/tx .) cl 10.3 24.3 % page translate ( data for jpegimageprocwithlink ) 1000 1065% hpixels and vpixels 0.1 0.25 mul % photoscale imagelocalsource % local jpg source imageurl % image url on clickthru jpegimageprocwithlink startnewpage % EOF