%!PS % Gonzo PS Powerpoint emulation example: Hanging Canal Presentation % ========================================== % by Don Lancaster % Copyright c 2002 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 % Shows how most PowerPoint functions can be created from raw PostScript % with significant speed, size, appearance, and web distribution advantages. % To use, modify features and content as desired, resave as a standard ASCII % textfile to a new name and send to Acrobat Distiller to generate a PDF file. % IMPORTANT NOTE: Don Lancaster's file gonzo.ps is required for this program. % After obvious location mods, uncomment ONE of the following two lines: (C:\\Documents and Settings\\don\\Desktop\\gonzo\\gonzo.ps) run % use internal gonzo % (A:\\gonzo.ps) run % use external gonzo % NOTE THAT ALL PS FILENAME STRINGS !!!DEMAND!!! DOUBLE REVERSE SLASHES. % GONZO20A Guru Gonzo PostScript power tools (Interim release) % Includes gonzo justification and layout utilities. % Copyright c 1990, 1996, 2001 by Don Lancaster and Synergetics, Box 809, % Thatcher Arizona, 5552 (928) 428-4073 don@tinaja.com support % via http://www.tinaja.com All commercial rights and all electronic % media rights **FULLY** reserved. Reposting is expressly forbidden. /guru { gonzo begin ps.util.1 begin printerror nuisance begin} def % guru % activate gonzo utilities %%%%%%%%%%% links menu directory %%%%%%%%%%%% % This code locks pdfmark commands out of a PostScript printer. /pdfmark where {pop}{userdict /pdfmark /cleartomark load put} ifelse % /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 /su {font3 surl} def % shorthand % /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 % dictionary method << % zzzz /tramshow.pdf (http://www.tinaja.com/glib/tramshow.pdf) /wesrch (http://www.wesrch.com) /dragan (http://www.draganfly.com/) /acmemapper (http://mapper.acme.com/) /realign70 (http://www.azdot.gov/mpd/systems_planning/grahamco_alt_rt.asp) /ccc (http://en.wikipedia.org/wiki/Civilian_Conservation_Corps) /grids (http://www.amazon.com/exec/obidos/ISBN=0816524289/donlancastersgurA/) /quaternary (http://en.wikipedia.org/wiki/Quaternary) /hohokam (http://en.wikipedia.org/wiki/Hohokam) /mimbres (http://en.wikipedia.org/wiki/Mimbres_culture#Mimbres_culture) /anasazi (http://en.wikipedia.org/wiki/Ancient_Pueblo_Peoples) /sin3 (http://en.wikipedia.org/wiki/Sinagua) % earlier problem unknown /salado (http://en.wikipedia.org/wiki/Salado_culture) /agave (http://en.wikipedia.org/wiki/Agave) /hangcan1.pdf (http://www.tinaja.com/glib/hangcan1.pdf) /neely1.pdf (http://www.tinaja.com/glib/neely1.pdf) /allendam.pdf (http://www.tinaja.com/glib/allendam.pdf) /ufofish (http://mapper.acme.com/?ll=32.81496,-109.97019&z=17&t=S) /newhang2.pdf (http://www.tinaja.com/canal/newhang2.pdf) /mindist1 (http://www.tinaja.com/glib/mindist1.pdf) /magsn01 (http://www.tinaja.com/magsn01.asp) /msinprop (http://www.tinaja.com/glib/msinprop.pdf) /info01 (http://www.tinaja.com/info01.asp) /homepage (http://www.tinaja.com) /maildon (mailto:don@tinaja.com) >> {mark exch /eurl cvx ] cvx def} forall % color emphasis /tinton1 {mark 0.25 0.25 0.25 /setrgbcolor cvx] cvx printlist exch 3 index exch put exch 1 add exch} def /tinton1a {mark 0.5 /settint cvx 0.33 /setgray cvx] cvx printlist exch 3 index exch put exch 1 add exch} def /tinton1r {mark 0 /settint cvx 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 font3} store % tinton emphasis /tx {tintoff font1} store % tintoff /staytint {0.25 0.25 0.25 setrgbcolor} store % grayout /staytint1r {0 settint 0.25 setgray} store % red /staytint1a {0.5 settint 0.33 setgray} store % aqua %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%% parameter dictionary %%%%%% /slideshowdict << % this dictionary determines the slide sequence /oldsequence [ /an_introduction_to_magic_sinewaves /magic_sinewaves_are /magic_sinewave_features /and_limitations /magic_sinewave_appearance /working_in_quadrants /typical_unfiltered_spectrum /typical_unfiltered_spectrum_FLASH /magic_sinewave_generation /note_that /two_important_magsine_types /key_magsine_secret_I /key_magsine_secret_II /key_magsine_secret_III /fourier_pulse_properties /the_magic_equations /equation_simplification /equation_solution % /amplitude_adjustment % deleted by new calculator /quantization /clocking_frequencies /how_big_should_n_be /for_additional_help /this_has_been ] pop pop %%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%% /sequencex [ /Gramtram_Intro /Main_Map /Up_Then_Down /Typical_Tower /Carriers_were_used_in_Pairs /Now_What /this_has_been ] /sequence [ /Hangcan_Intro /Gila_Prehistory /Grids /Lesser_Known /Marijilda1 /Map2 /Some_Terms /Mesa_Characteristics /Arbitrary_Names /Ledford_Canal /Henry's_Canal /Henry1 /Roper_Canal /Marijilda_Canal /Marijilda1 /Tranquility_Canal /Tranq1 /Tranq2 /Twin_East_Canal /Twinb1 /Twin_West_Canal /Rinc2 /Deadman_Canal /Threeswitch1 % replaced older /Longview_Area /Frye_Mesa_Area /Frye2 /Robinson_Canal /Frey1 /Rob1 /Rob2 /Rob3 /Allen_Canal /Allen0 /Allen1 /MudSprings_Canal /Mud1 /Troll1 /Allen2 /Jernigan_Canal /Jern1 /Shingle_Mill_Area /Lefthand_Canal /Other_Possibilities /Why_Obsession /Evidence_Prehistoric /Survey /Endangered /What_Next /Dragan /this_has_been ] /gridsize 10 store % default layout grid size = 10 /slidewide 44 pop 50 % total display width in grid units wide for gram /slidehigh 33 pop 40 % total display height /borderwide 2.5 % width of white vertical edges /borderhigh 2.5 % width of white horizontal edges /includeborder false % provide white border? /normalbackground /burpbackmain % name of main background proc /introbackground /burpbackintro % name of intro background proc /fontsused /burpfonts % name of font set used /patstrings /burppatstrings % name of patterns used /titx 6 % x grid position of title /tity 28.75 9 add % y grid position of title /bodx 6 pop 8 % x grid position of body /body 28 % y grid position of body /ivoryrndcolor [230 230 205 40] % random pattern colors [red blue green variance ] /magentarndcolorold [230 100 230 120] /magentarndcolor [221 160 34 100] % looking for tan, not changing code last is splotchiness /magentaaccent [0.65 0.05 0.65 ] pop [ 141 255 div 102 255 div 44 255 div ] % title accent slash color [red blue green] >> def slideshowdict begin % open slide show dictionary %%%%%%%%%%%%%%%%% style catalogs %%%%%%%%%%%%%%%%%% % burp is a mottled gray body with random magenta splotch and stripe /burpfonts { /cstretch 0.010 store /sstretch 0.010 store /kern 0.1 store /font0 /StoneSans-Bold 1.8 gonzofont % body titles /font1 /StoneSerif 1.35 gonzofont % normal body /font2 /StoneSerif-Bold 1.20 gonzofont % boxed subseries /font3 /StoneSerif-Bold 1.35 gonzofont % bold body /font4 /StoneSerif-Bold 1.25 gonzofont % smaller font3 for numerals /font5 /StoneSerif-Bold 1.85 gonzofont % oversize for math /font6 /StoneSans-Bold [2.3 0 0 2.8 0 0 ] gonzofont % titleslide oversize shrunk for canals was 2.8 /font8 /StoneSerif-Bold 1 gonzofont % fine print copyright /font9 /ZapfDingbats 1.05 gonzofont % black boxes /font: /StoneSerif-Bold [2 0 0 2 0 -.5] gonzofont % special math * /font; /StoneSerif-Bold [1.4 0 0 1.4 0 .9] gonzofont % fake degrees * /titlefont {font0 }store % define title font /bodyfont {font1} store % defint body font /bodysubfont {font2}store % define bodysubfont /bodytxwide {/txtwide 35.5 store}store /bodyyinc {/yinc 2 store} store } store /burpbackmain { includeborder {borderwide 10 mul borderhigh 10 mul}{0 0} ifelse gridsize setgrid % set grid scale save /snap1 exch store % show the body background bodypatdict matrix % Identity matrix makepattern % Instantiate the pattern /bodypat exch def 0 0 % for the actual slide size slidewide slidehigh /Pattern setcolorspace bodypat setcolor rectfill % Fill rectangle with pattern snap1 restore save /snap1 exch store % show the accent accentpatdict matrix % Identity matrix makepattern % Instantiate the pattern /accentpat exch def 0 slidehigh 13.5 sub 5.5 add % splotch size 4.5 13.5 /Pattern setcolorspace accentpat setcolor rectfill % Fill rectangle with pattern snap1 restore % black outline black line1 0 0 slidewide slidehigh 0.0 setgray rectstroke % Stroke original black outline % accent lines gsave magentaaccent aload pop setrgbcolor 0.7 setlinewidth 1 setlinecap 2 27.5 8.5 add mt slidewide 4.5 sub r % 0 setlinecap 0 27.5 mt 3 r 0.45 setlinewidth 1 setlinecap slidewide 13 sub 2.5 mt 12 r % slidewide 2.5 mt 0 setlinecap 2 l grestore fontsused cvx exec % set fonts for normal slide by name } store /burpbackintro { includeborder {borderwide 10 mul borderhigh 10 mul}{0 0} ifelse gridsize setgrid % set grid scale save /snap1 exch store % show the body background bodypatdict matrix % Identity matrix makepattern % Instantiate the pattern /bodypat exch def 0 0 % for the actual slide size slidewide slidehigh /Pattern setcolorspace bodypat setcolor rectfill % Fill rectangle with pattern snap1 restore save /snap1 exch store % show the accent accentpatdict matrix % Identity matrix makepattern % Instantiate the pattern /accentpat exch def 5.5 16.5 33 6 add 12 /Pattern setcolorspace accentpat setcolor rectfill % Fill rectangle with pattern snap1 restore % black outline black line1 0 0 slidewide slidehigh 0.0 setgray rectstroke % Stroke original black outline % accent lines gsave magentaaccent aload pop setrgbcolor 0.35 setlinewidth 1 setlinecap 1 setlinejoin 5.5 16.5 0.8 sub mt 13.6 pu -.8 -.8 rlineto 34.6 6 add pr -.8 .8 rlineto 13.6 pd .8 .8 rlineto 34.6 6 add pl closepath stroke 0.35 setlinewidth 1 setlinecap 1 setlinejoin 0 3 mt 12 pr 3 pr 1.4 pu 20 pr 2.8 pd 20 pl 1.4 pu 1.4 pd 20 pr 1.4 pu 12 pr 3 pr stroke grestore fontsused cvx exec % set fonts for normal slide by name } store /burppatstrings { ivoryrndcolor buildpixels makeimagestring /bodypatstring exch store magentarndcolor buildpixels makeimagestring /accentpatstring exch store } store %%%%%%%%%%%%%%% pattern utilities %%%%%%%%%%%%%%%%%% /DeviceRGB setcolorspace % pick color model /hpixels 50 store % size of pattern image /vpixels 50 store /issize hpixels vpixels mul store % makestring converts a stack top array into a string... /makestring {dup length string dup /NullEncode filter 3 -1 roll {1 index exch write} forall pop} def % /buildpixels makes three nearby colors given [r b g texture] all 0-255 integers /buildpixels {aload pop /texture exch store /b0 exch store /g0 exch store /r0 exch store 123 srand /r1 r0 texture random texture 2 div sub add cvi dup 255 ge {pop 255}if dup 0 lt {pop 0} if store /g1 g0 texture random texture 2 div sub add cvi dup 255 ge {pop 255}if dup 0 lt {pop 0} if store /b1 b0 texture random texture 2 div sub add cvi dup 255 ge {pop 255}if dup 0 lt {pop 0} if store /r2 r0 texture random texture 2 div sub add cvi dup 255 ge {pop 255}if dup 0 lt {pop 0} if store /g2 g0 texture random texture 2 div sub add cvi dup 255 ge {pop 255}if dup 0 lt {pop 0} if store /b2 b0 texture random texture 2 div sub add cvi dup 255 ge {pop 255}if dup 0 lt {pop 0} if store /r3 r0 texture random texture 2 div sub add cvi dup 255 ge {pop 255}if dup 0 lt {pop 0} if store /g3 g0 texture random texture 2 div sub add cvi dup 255 ge {pop 255}if dup 0 lt {pop 0} if store /b3 b0 texture random texture 2 div sub add cvi dup 255 ge {pop 255}if dup 0 lt {pop 0} if store } store % /makeimagestring creates a sting usable for a pattern image /makeimagestring { 12345 srand % make repeatable /iarray mark issize { r1 g1 b1} repeat ] store % fill all with color 1 issize 2 div cvi { iarray issize % fill half with color 2 random 3 mul cvi [ r2 g2 b2 ] putinterval} repeat issize 2 div cvi { iarray issize % fill third with color 3 random 3 mul cvi [ r3 g3 b3 ] putinterval} repeat iarray makestring } store % /rndimage shows the random string as a patternable image /bodyrandimage { gsave 5 dup scale << % start image dicationary /ImageType 1 % always one /Width hpixels % width in pixels /Height vpixels % height in pixels /ImageMatrix [hpixels 0 0 vpixels neg 0 vpixels ] /DataSource bodypatstring % proc to get string data /BitsPerComponent 8 % color resolution /Decode [0 1 0 1 0 1] % per red book 4.10 >> image % call the image grestore } def /accentrandimage { gsave 5 dup scale << % start image dicationary /ImageType 1 % always one /Width hpixels % width in pixels /Height vpixels % height in pixels /ImageMatrix [hpixels 0 0 vpixels neg 0 vpixels ] /DataSource accentpatstring % proc to get string data /BitsPerComponent 8 % color resolution /Decode [0 1 0 1 0 1] % per red book 4.10 >> image % call the image grestore } def % using a separate pattern dictionary for each pattern... /bodypatdict << /PatternType 1 % Tiling pattern /PaintType 1 % Colored /TilingType 1 /BBox [0 0 50 50] /XStep 5 /YStep 5 /PaintProc { begin bodyrandimage end} >> store /accentpatdict << /PatternType 1 % Tiling pattern /PaintType 1 % Colored /TilingType 1 /BBox [0 0 50 50] /XStep 5 /YStep 5 /PaintProc { begin accentrandimage end} >> store % /makepatternstrings generates the needed patterns /makepatternstrings { [230 210 190 80] buildpixels makeimagestring /accentpatstring exch store [230 100 230 120] buildpixels makeimagestring /bodypatstring exch store } store %%%%%%%% end pattern utils %%%%%%%% %%%%%%% service utilities %%%%% /makeslideshow {setupshow sequence { save /snapxx exch store cvx exec showpage snapxx restore} forall } store /settitle { titlefont gsave 0.25 0.25 0.25 setrgbcolor titx exch tity exch cl grestore} store /setbody { bodyfont bodytxwide bodyyinc bodx exch body exch cl} store % /setupshow first locks out pdfmark from a printer, then sets % the page mode. /setupshow { /pdfmark where {pop}{userdict /pdfmark /cleartomark load put} ifelse [/CropBox [0 0 slidewide includeborder {borderwide 2 mul add} if gridsize mul slidehigh includeborder {borderhigh 2 mul add} if gridsize mul ] % set the wierd size /PAGES pdfmark [ {Catalog} << /ViewerPreferences << /FitWindow true /CenterWindow true >> /PageLayout /SinglePage % no rolling /Pagemode /FullScreen % fullscreen if not on web /View [/XYZ null null 1 ] % force 100% >> /PUT pdfmark % then makes background pattern strings ONCE for later access patstrings cvx exec % get patterns from style area } def %%%%%% background generators %%%%%%%% /setbackground { normalbackground cvx exec } store % link selected background /settitlebackground { introbackground cvx exec } store %%%%%%%%%%%%%%%%%%%% auto image and link %%%%%%%%%%%%%%%%%%%% /autoimageandlink1 {save /af1 exch store xpos ypos yinc add translate 6.3 -14.1 684 384 .033 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/bargs/cabsvid1.jpg) % url first % (http://www.tinaja.com/images/bargs/ce47u25v.jpg) % url first (C:\\Documents and Settings\\don\\Desktop\\gurugrams\\78_ebayskill_VI\\cabsvid1.jpg) jpegimageprocwithlink af1 restore} store /autoimageandlink2 {save /af2 exch store xpos ypos yinc add translate 18 -11.8 684 487 .022 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/bargs/ce47u25v.jpg) % url first (C:\\Documents and Settings\\don\\Desktop\\gurugrams\\70_ebayskill_iv\\ce47u25v.jpg) jpegimageprocwithlink af2 restore} store { /autoimageandlink3 {save /af1 exch store xpos ypos yinc add translate 1 -12 684 487 .022 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/bargs/pwrssrx3x.bmp) % url first (C:\\Documents and Settings\\don\\Desktop\\gurugrams\\70_ebayskill_iv\\origpwri.jpg) jpegimageprocwithlink af1 restore} store /autoimageandlink4 {save /af2 exch store xpos ypos yinc add translate 18 -12 -1.5 add 684 487 .022 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/bargs/pwrssrx3.bmp) % url first (C:\\Documents and Settings\\don\\Desktop\\gurugrams\\70_ebayskill_iv\\finpwri.jpg) jpegimageprocwithlink af2 restore} store } pop /jpegimageprocwithlink { % hoffset voffset hres vres save /snap2 exch def /infilename exch store % grab passed pix file /inurllink exch store % grab link filename /photoscale exch store /vpixels exch store /hpixels exch store 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 %%%%%%%%%%%%% %%%%%%%%%%%%%%%%%% end auto image and link %%%%%%%%%%%%%%%%%%% %%%%%%% individual slide data %%%%%%%% yyyy /Hangcan_Intro { settitlebackground 1 1 1 setrgbcolor /yinc 3 store slidewide 2 div 23 (|6Prehistoric Hanging Canals \nof the Safford Basin II|j|j) cc 0.25 0.25 0.25 setrgbcolor /yinc 2 store slidewide 2 div 11 (|3By Don Lancaster \nand Synergetics) cc slidewide 2 div 2.65 (|4 |/su http://www.tinaja.com|/homepage |j|j|j) cc } store /Gila_Prehistory { setbackground (The Gila Valley has a rich prehistory...) settitle /tabs [2 0 0 ]store % 4 is normal (|y|3Especially during the Late Classic period around 1350 CE. |3|t|9n|4 Studied by |/su Neely|4|/neely1.pdf and others. |h |t|9n|4 Population likely as high as today. |h |t|9n|4 Some ties to |/su Hohokam|4|/hohokam , |/su Mimbres|4|/mimbres , |/su Salado|4|/salado , |t|4 |/su Sinagua|4|/sin3 and |/su Anasazi|4|/anasazi cultures. |h |t|9n|4 Gila River lowland canals as extensive as |t|4 today and the basis for modern irrigation. |h |t|9n|4 Thousands of world class agriculture |/su grids|4|/grids , |t|4 possibly used for |/su Agave|4|/agave crops... |h ) setbody } store /Lesser_Known { setbackground (Lesser known are the "hanging" canals...) settitle /tabs [2 0 0 ]store % 4 is normal (|y|3|t|9n|4 Literally "hung" on steep sided mesa edges. |h |t|9n|4 As high as 90 feet above base terrain! |h |t|9n|4 Twenty or more total at least 40 miles! |h |t|9n|4 Create the illusion of "water flowing uphill". |h |t|9n|4 May include above ground aqueducts, route |t|4 switching, and flood breakaways. |h |t|9n|4 Used for long range water delivery. |h |t|9n|4 Nearly totally exploit Mt. Graham streams. |h |t|9n|4 Typically a yard wide by a foot deep. ) setbody } store /Some_Terms { setbackground (Three terms you need to know...) settitle /tabs [2 0 0 ]store % 4 is normal (|4 BAJADA \320 |h |t|4 A coalescing alluvial fan. |4 |/su QUATERNARY|1|/quaternary \320 |h |t|4 The latest geological period. |4 MESA \320 |h |t|4 A remnant Quaternary bajada. ) setbody } store /Mesa_Characteristics { setbackground (Some properties of local southern mesas...) settitle /tabs [2 0 0 ]store % 4 is normal (|h|3|t|9n|4 Typically narrow and long. |h |t|9n|4 Steep sided. |h |t|9n|4 Gently sloped. |h |t|9n|4 Limited rainfall. |h |t|9n|4 Largely infertile. |h |t|9n|4 Pretty much water impermeable. |h |t|9n|4 Not too useful to pioneers or present. |h |t|9n|4 Easily conveys water long distances. ) setbody } store /Arbitrary_Names { setbackground (The hanging canals might be named...) settitle /tabs [4.5 19 0 ]store % 4 is normal (|y|y|3|t|9n|4 P Ranch |t|9n|4 Frye Mesa|j* |h |t|9n|4 Ledford|j* |t|9n|4 Robinson|j* |h |t|9n|4 Henry's|j* |t|9n|4 Riggs |h |t|9n|4 Marijilda|j* |t|9n|4 Allen|j* |h |t|9n|4 Roper|j* |t|9n|4 Mud Springs|j* |h |t|9n|4 Tranquility|j* |t|9n|4 Jernigan|j* |h |t|9n|4 Twin East|j* |t|9n|4 Shingle Mill|j* |h |t|9n|4 Twin West|j* |t|9n|4 Lefthand|j* |h |t|9n|4 Deadman|j* |t|9n|4 Bear Springs |h |t|9n|4 Longview |t|9n|4 Bandolier ) setbody } store /Ledford_Canal { setbackground (Ledford Hanging Canal...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|h|t|9n|4 Southernmost of the known hanging canals. |h |t|9n|4 Sources near Jacobson Canyon dam. |h |t|9n|4 Rather difficult to access and explore. |h |t|9n|4 Switches between several drainages. |h |t|9n|4 Sees current use for cattle tanks. |h |t|9n|4 About three miles total extent. |h |t|9n|4 Associated with prehistoric fields. |h |t|9n|4 Parasitic vegetation makes reach obvious |t when viewed from highway US 191. ) setbody } store /Henry's_Canal { setbackground (Henry's Hanging Canal...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|h|t|9n|4 Possibly oldest of Marijilda sourced canals. |h |t|9n|4 Portions still unresolved. |h |t|9n|4 Apparently once fed Roper Canal. |h |t|9n|4 Moderate hanging portion. |h |t|9n|4 Somewhat larger than typical. |h |t|9n|4 About one mile explored extent. |h |t|9n|4 Exact takein remains enigmatic. |h |t|9n|4 May have been replaced or updated by |t the Marijilda hanging canal. ) setbody } store /Roper_Canal { setbackground (Roper Canal...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|h|t|9n|4 Modern Canal, possibly prehistoric. |h |t|9n|4 From Lebanon Reservoir #2 to Roper Lake. |h |t|9n|4 May once have been Marijilda Canal sourced. |h |t|9n|4 Possible early Henry's Canal destination. |h |t|9n|4 Flat and easy route. |h |t|9n|4 Two miles current length. |h |t|9n|4 Prehistoric origins still needs proven. |h |t|9n|4 Roper Lake may overlay prehistoric field |t end use area. ) setbody } store /Marijilda_Canal { setbackground (Marijilda Hanging Canal...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|y|t|9n|4 Earliest to be studied and researched. |h |t|9n|4 Runs from Marijilda Creek to fields found |t in the Lebanon area. |h |t|9n|4 Initial reach rebuilt by historic pioneers |t and sees active irrigation use to this day. |h |t|9n|4 Easiest access of the known hanging canals. |t but western 4WD track is extremely rough. |h |t|9n|4 Includes impressive above ground aqueduct. |h |t|9n|4 Hangs on the western mesa face. |h |t|9n|4 Apparent switching to several destinations. |h |t|9n|4 Elaborate French Drains going off mesa. ) setbody } store /Tranquility_Canal { setbackground (Tranquility Hanging Canal...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|h|t|9n|4 Apparently artesian sourced. |h |t|9n|4 One mile long. |h |t|9n|4 Presently terminates in Cooks Reservoir. |h |t|9n|4 Urban subdivision private property located. |h |t|9n|4 Amazingly close to Twin East canal via cliff. |h |t|9n|4 Moderate short hanging portion. |h |t|9n|4 Curious mix of historic and prehistoric. ) setbody } store /Twin_East_Canal { setbackground (Twin East Hanging Canal...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|h|t|9n|4 Ponding area fed by TWO major canals. |h |t|9n|4 East canal likely Marijilda sourced. |h |t|9n|4 Runs under Lebanon Cemetery buildings. |h |t|9n|4 Amazingly close to Tranquility Canal. |h |t|9n|4 Sharp "U" and "S" turns to maintain grade. |h |t|9n|4 Mystery alignments remain unexplored. |h |t|9n|4 Contours highly obvious on satellite images... ) setbody } store /Twin_West_Canal { setbackground (Twin West Hanging Canal...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|h|t|9n|4 Ponding area fed by TWO major canals. |h |t|9n|4 Likely unverified Deadman Canal fed. |h |t|9n|4 Sweeping "S" portion to maintain grade. |h |t|9n|4 Earlier habitations and artifacts in area. |h |t|9n|4 Possible four mile total length. |h |t|9n|4 Ponding area unusually single walled. |h |t|9n|4 A section has been run over by the Safford |t water tank project. |h |t|9n|4 Additional slope measurements still needed. ) setbody } store /Deadman_Canal { setbackground (Deadman Hanging Canal...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|y|t|9n|4 Sources from Deadman creek and possibly |t routes to Porter Springs and Deadman tanks. |h |t|9n|4 Initial hanging portion believed overlain |t by historic and modern pipeline. |h |t|9n|4 Prehistoric portion flows to this day. |h |t|9n|4 Consistently routes along HIGHEST portion |t of Deadman Mesa. |h |t|9n|4 Possible elaborate three way switching at |t the narrowest point of mesa. |h |t|9n|4 Could approach five miles in length if the |t presumed extensions are verified. |h ) setbody } store /Longview_Area { setbackground (Longview Area...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|h|t|9n|4 Delivery canal conspicuous by its absence. |h |t|9n|4 One possible short canal wall located. |h |t|9n|4 Likely Deadman Canal fed. |h |t|9n|4 Very strong tradeware evidence. |h |t|9n|4 Numerous aproned check dams. |h |t|9n|4 Rock alignments define one use area. |h |t|9n|4 Confused by CCC overwork. |h |t|9n|4 Further study still needed. ) setbody } store /Frye_Mesa_Area { setbackground (Frye Mesa Area...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|h|t|9n|4 Braided stream channels and ponding area. |h |t|9n|4 Mystery delivery canal routes UPCANYON. |h |t|9n|4 Second canal is possible Robinson source. |h |t|9n|4 Takein points presently unclear. |h |t|9n|4 Confused by CCC and dam construction. |h |t|9n|4 Falls routing unlikely but not ruled out. |h |t|9n|4 Mesa watershed gathering unlikely. |h |t|9n|4 Major further study required. ) setbody } store /Robinson_Canal { setbackground (Robinson Hanging Canal...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|h|t|9n|4 Rebuilt by historic pioneer to serve |t cattle tanks in the Daley Estates area. |h |t|9n|4 Likely sourced from Frye Creek. |h |t|9n|4 Short section spectacularly failed by falling |t off the mesa edge. |h |t|9n|4 Prehistoric fields overlain by sheet flooding. |h |t|9n|4 Very strong "water flows uphill" illusion. |h |t|9n|4 Mesa top used for water transport only. |h |t|9n|4 Accessible only by ill defined cattle trail. ) setbody } store /Allen_Canal { setbackground (Allen Hanging Canal...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|y|t|9n|4 Nearly SEVEN MILES long! |h |t|9n|4 Source from Spring Canyon. May |t go as far as Central bottomlands. |h |t|9n|4 Apparently overlain by |/su CCC|4|/ccc Hawk Hollow |t tank, |/su Allen Dam|4|/allendam.pdf , and Layton Dam. |h |t|9n|4 Two distinct architectural styles. |h |t|9n|4 Spectacular "Culebra" cut of seven feet. |h |t|9n|4 Portions obscured by sheet flooding. |h |t|9n|4 Mesa to dam routing remains uncertain. |h |t|9n|4 Many questions remain unanswered. ) setbody } store /Jernigan_Canal { setbackground (Jernigan Hanging Canal...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|h|t|9n|4 Part of a well studied and reported site. |h |t|9n|4 "U" and "S" grade routings. |h |t|9n|4 Large Mesquite tree mid channel. |h |t|9n|4 Moderate hanging portions. |h |t|9n|4 One fairly impressive cut of three foot depth. |h |t|9n|4 Well defined exit French Drain area. |h |t|9n|4 Sources from Mud Springs Canal. |h |t|9n|4 Three reaches remain ill defined. |h) setbody } store /MudSprings_Canal { setbackground (Mud Springs Hanging Canal...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|t|9n|4 Routes Ash Creek over Mud Springs Bajada. |h |t|9n|4 Entire 6 mile route linear and viewable. |h |t|9n|4 Possibly the earliest hanging canal. |h |t|9n|4 Overrun without access by SCS dam. |h |t|9n|4 Splits into Jernigan Canal. |h |t|9n|4 Enigmatic associated rock structure. |h |t|9n|4 Mid-canal cleanout and flood spur. |h |t|9n|4 Key portions still missing or unexplored. |h) setbody } store /Shingle_Mill_Area { setbackground (Shingle Mill Area...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|y|t|9n|4 Home of historic Minor Webster Ditch. |h |t|9n|4 Possible prehistoric original canal would be |t conspicuous by its absence. |h |t|9n|4 Shingle Mill or Merrill Wash possible sources. |h |t|9n|4 Includes obviously modern service track and |t deeper vee construction. |h |t|9n|4 Half of presumed routing unknown. |h |t|9n|4 Additional historic and site research needed. |h |t|9n|4 Many questions remain unanswered. ) setbody } store /Lefthand_Canal { setbackground (Lefthand Hanging Canal...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|t|9n|4 Extensively studied and reported by |/su Neely|1|/neely1.pdf . |h |t|9n|4 Directly associated with plant nursery areas. |h |t|9n|4 Elaborate switching and control structures. |h |t|9n|4 Short "local" and direct agricultural uses. |h |t|9n|4 No "hanging" evidence but similarities to the |t other area prehistoric canals are remarkable. |h |t|9n|4 Small gates divert controlled water amounts. |h |t|9n|4 Both earthen and rock bordered examples |t present. Possible instances of clay lining. |h ) setbody } store /Other_Possibilities { setbackground (Other possibilities yet unexplored...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|y|t|9n|4 Veech Canyon in the "P" Ranch area. A few |t rumors of historic and prehistoric canals. |h |t|9n|4 Hints of a Frye Mesa to Longview route. |h |t|9n|4 North and east of Deadman Canal show |t unvisited and enigmatic aerial images. |h |t|9n|4 Carter and Nuttall canyons could possibly |t provide western extensions. |h |t|9n|4 The North Taylor |/su UFO Fish Filets|4|/ufofish remain |t a CCC or earlier largely undated artifact. |h |t|9n|4 Possible mountain sources for Bandolier |t Lowland Canal not yet totally excluded. ) setbody } store /Why_Obsession { setbackground (Why the obsession with mesa hanging?) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|h|/setred |3|t|9n|4 Slope is INDEPENDENT of terrain! |h|/setblack |t|9n|4 Minimum cuts and fills. |h |t|9n|4 One canal side is often "free". |h |t|9n|4 Superbly energy and effort efficient. |h |t|9n|4 Easy repairs from flood damage. |h |t|9n|4 Much of the construction can be across |t rather than along the route. |h |t|9n|4 Mesa top slopes often optimum. |h |t|9n|4 Not much other use for mesa tops. |h |t|9n|4 Conveys water long distances. ) setbody } store /Evidence_Prehistoric { setbackground (Arguments the canals are prehistoric...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store /adjustyinc {/yinc 1.70 store } store /yinc 1.70 store (|/adjustyinc |y|y|h|t|9n|4 Archaeologists say so. |h |t|9n|4 Extreme purposefulness and highly |t directed energy efficiency. |h |t|9n|4 Run over by roads, tanks, fences, dams |t and cemeteries. Without accommodation. |h |t|9n|4 Consistent patina, caliche, and lichens. |h |t|9n|4 Lack of any apparent use of pioneer tools. |h |t|9n|4 Prehistoric population very much higher. |h |t|9n|4 Easier to "dig out an old ditch". |h |t|9n|4 Far more attuned to prehistoric needs. |h |t|9n|4 Lack of characteristic |/su CCC|4|/ccc signatures. |h |t|9n|4 Mature cacti and Mesquite trees midstream. ) setbody } store /Survey { setbackground (Survey instruments are still unknown, but...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store ( |t|9n|4 Pilot extensions of the canals themselves |t could have served as static water levels. |t|9n|4 Such concepts remain highly speculative. ) setbody } store /Endangered { setbackground (Hanging canals ARE endangered...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|h|yThere are typically zero to very few canal artifacts, so pothunting issues are by no means severe. BUT... |h |t|9n|4 An utter lack of public awareness clearly |t causes damage through neglect. |h |t|9n|4 Water projects by the Town of Safford totally |t trashed a number of canal crossings, mulch |t rings, grids, and even a |/su CCC|4|/ccc dam. All these |t could have been cheaply avoided. |h |t|9n|4 New proposed |/su realignment of US70|4|/realign70 to the |t south may threaten many of the canals. |h |t|9n|4 The state lands bureaucracy is exceptionally |t hostile to archaeological research. ) setbody } store /What_Next { setbackground (What needs done now...) settitle /tabs [2 0 0 ]store % 4 is normal /setred {1 0 0 setrgbcolor} store /setblack {0 0 0 setrgbcolor} store (|y|y|t|9n|4 |/su Map|4|/acmemapper and catalog all southern features. |h |t|9n|4 Videotape all hanging canal routes. |h |t|9n|4 Resolve the still unknown canal portions. |h |t|9n|4 Find credible Deadman Canal destinations. |h |t|9n|4 Involve students and any others interested. |h |t|9n|4 Apply "CSI" type forensics techniques. |h |t|9n|4 Publish both traditionally and |/su new media|4|/wesrch . |h |t|9n|4 Make upcoming threats aware of the issues. |h |t|9n|4 Invite "field mice" to thoroughly explore. |h |t|9n|4 Scam a |/su Draganfly|4|/dragan grant... ) setbody } store /newyinc {/yinc 1.25 store /xpos xpos 1 sub store} store /this_has_been { setbackground (This has been an excerpt of\274) settitle (|h |/su http://www.tinaja.com/canal/newhang2.pdf|1|/newhang2.pdf |h Presented by Don Lancaster and |/to Synergetics|/tx , 3860 West First Street, Box 809, Thatcher, Arizona, 85552. (928) 428-4073. |h |/su mailto:don@tinaja.com|1|/maildon |h More info on Gila Valley prehistory can be found at |h |/su http://www.tinaja.com/glib/neely1.pdf|1|/neely1.pdf |h|/staytint1r |/newyinc |8Copyright c 2012 and earlier by Don Lancaster and Synergetics. Linking usually welcome. All media, web, and ALL other rights fully reserved. Mirroring or reposting is expressly forbidden.) setbody } store %%%%%%%%%%%%%%%%%%% % play with images /grids_image {save /af1 exch store % xpos ypos yinc add translate 0 0 970 776 0.51546 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/bestgrid.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\grids.jpg) jpegimageprocwithlink af1 restore} store /Grids {grids_image} store /map2_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5000 % xpos ypos xres yres pixscale (http://www.tinaja.com/canal/mapimage2.kml) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\map2.jpg) jpegimageprocwithlink af1 restore} store /Map2 {map2_image} store /henry1_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/henry1.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\Canal Rework\\images\\henry1.jpg) jpegimageprocwithlink af1 restore} store /Henry1 {henry1_image} store /mary1_image {save /af1 exch store % xpos ypos yinc add translate 0 0 890 712 .5618 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/hangcan1.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\mary1.jpg) jpegimageprocwithlink af1 restore} store /Marijilda1 {mary1_image}store /tranq1_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/tranq1.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\Canal Rework\\images\\tranq1.jpg) jpegimageprocwithlink af1 restore} store /Tranq1 {tranq1_image}store /tranq2_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/tranq2.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\Canal Rework\\images\\tranq2.jpg) jpegimageprocwithlink af1 restore} store /Tranq2 {tranq2_image}store /twinb1_image {save /af1 exch store % xpos ypos yinc add translate 0 0 500 400 1 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/twinb1.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\twinb1.jpg) jpegimageprocwithlink af1 restore} store /Twinb1 {twinb1_image}store /rinc2_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/rinc2.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\rinc2.jpg) jpegimageprocwithlink af1 restore} store /Rinc2 {rinc2_image}store /dead1_image {save /af1 exch store % xpos ypos yinc add translate % old deadman image, not used 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/dead1.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\dead1.jpg) jpegimageprocwithlink af1 restore} store /Dead1 {dead1_image} store /threeswitch1_image {save /af1 exch store % xpos ypos yinc add translate -2.5 -20.0 translate % adjust page position 0 0 435 327 0.66 2 mul % xpos ypos xres yres pixscale (http://mapper.acme.com/?ll=32.76073,-109.78131&z=20&t=S%0A&marker0=32.76073%2C-109.78131%2C6.2%20km%20W%20of%20Cactus%20Flat%20AZ) % url first (C:\\Documents and Settings\\don 2\\Desktop\\Canal Rework\\images\\threeswitch.jpg) jpegimageprocwithlink af1 restore} store /Threeswitch1 {threeswitch1_image}store /frey1_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1001 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/frey1.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\frey1.jpg) jpegimageprocwithlink af1 restore} store /Frey1 {frey1_image}store /frye2_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://mapper.acme.com/?ll=32.75963,-109.81089&z=17&t=S) % url first (C:\\Documents and Settings\\don 2\\Desktop\\Canal Rework\\images\\frye2.jpg) jpegimageprocwithlink af1 restore} store /Frye2 {frye2_image}store /rob1_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/rob1.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\rob1.jpg) jpegimageprocwithlink af1 restore} store /Rob1 {rob1_image}store /rob2_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/rob2.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\rob2.jpg) jpegimageprocwithlink af1 restore} store /Rob2 {rob2_image}store /rob3_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/rob3.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\rob3.jpg) jpegimageprocwithlink af1 restore} store /Rob3 {rob3_image}store /allen0_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/allen0.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\allen0.jpg) jpegimageprocwithlink af1 restore} store /Allen0 {allen0_image}store /allen1_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/allen1.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\allen1.jpg) jpegimageprocwithlink af1 restore} store /Allen1 {allen1_image}store /allen2_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/allen2.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\allen2.jpg) jpegimageprocwithlink af1 restore} store /Allen2 {allen2_image}store /jern1_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/jern1.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\jern1.jpg) jpegimageprocwithlink af1 restore} store /Jern1 {jern1_image}store /mud1_image {save /af1 exch store % xpos ypos yinc add translate 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/mud1.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\mud1.jpg) jpegimageprocwithlink af1 restore} store /Mud1 {mud1_image}store /troll1_image {save /af1 exch store % xpos ypos yinc add translate % -3.5 -21.2 translate % adjust page position 0 0 1000 800 0.5 % xpos ypos xres yres pixscale (http://www.tinaja.com/images/troll1.jpg) % url first (C:\\Documents and Settings\\don 2\\Desktop\\Canal Rework\\images\\troll1.jpg) jpegimageprocwithlink af1 restore} store /Troll1 {troll1_image}store /dragan_image {save /af1 exch store % xpos ypos yinc add translate 0 0 500 400 1.0 % xpos ypos xres yres pixscale (http://www.draganfly.com) % url first (C:\\Documents and Settings\\don 2\\Desktop\\gurugrams\\112_hangslide\\dragan.jpg) jpegimageprocwithlink af1 restore} store /Dragan {dragan_image}store %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% end individual slide data %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%% main loop %%%%%%% makeslideshow % this does it all % EOF