%!


% attempt at pdfmark nav


(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



%%% Page Navigation Utilities %%%%
 % requires gonzo utilities from http://www.tinaja.com/gonzo.psl
/kern 0.1 store
/pagenum 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 0.8 dup dup setrgbcolor line2 stroke 
               /font1 /Helvetica 1.5 gonzofont  font1 1 0.5 sym cc ssnap restore} store

             /glyphnext { 55   (>)  baux    } store
             /glyphprev {55 (<) baux } store
            /glyphone { 55 (1) baux} store
            /glyphback {55 (<|k|k|k<) baux} store

          /aaaa {
                     [ /Rect [0 55 2 57] /Page/Next /View [/XYZ null null null]
                       /Border [0 0 0 ] /Subtype /Link /ANN pdfmark
                    [ /Rect [2.5 55 4.5 57] /Page prevpage /View [/XYZ null null null]
                        /Border [0 0 0 ] /Subtype /Link /ANN pdfmark  } store
          /bbbb {
                     [ /Rect [0 55 2 57] /Page /Prev /View [/XYZ null null null]
                       /Border [0 0 0 ] /Subtype /Link /ANN pdfmark
                    [ /Rect [2.5 55 4.5 57] /Page 1 /View [/XYZ null null null]
                      /Border [0 0 0 ] /Subtype /Link /ANN pdfmark
                    [ /Rect [5 55 7 57] /Page/Next /View [/XYZ null null null]
                      /Border [0 0 0 ] /Subtype /Link /ANN pdfmark
                   [ /Rect [7.5 55 9.5 57] /Page prevpage /View [/XYZ null null null]
                    /Border [0 0 0 ] /Subtype /Link /ANN pdfmark } store
             /cccc {
                    [ /Rect [0 55 2 57] /Page /Prev /View [/XYZ null null null]
                      /Border [0 0 0 ] /Subtype /Link /ANN pdfmark
                    [ /Rect [2.5 55 4.5 57] /Page 1 /View [/XYZ null null null]
                      /Border [0 0 0 ] /Subtype /Link /ANN pdfmark
                   [ /Rect [5 55 7 57] /Page prevpage /View [/XYZ null null null]
                     /Border [0 0 0 ] /Subtype /Link /ANN pdfmark  } store

                 /addpagenav {
                  pagenum 1 eq { 0 glyphnext 2.5 glyphback aaaa} if
                  pagenum 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 
                  /pagenum pagenum 1 add store} store



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/cstretch 0.015 def
/sstretch 0.015 def

40 40 10 setgrid 45 dup showgrid
font1 
20 20 (This is the first page) cc
addpagenav
showpage

40 40 10 setgrid 45 dup showgrid
/cstreatch 0.1 store
font1 
20 20 (This is the second page) cc
addpagenav
showpage

40 40 10 setgrid 45 dup showgrid
/cstreatch 0.1 store
font1 
20 20 (This is the third page) cc
addpagenav
showpage

40 40 10 setgrid 45 dup showgrid
/cstreatch 0.1 store
font1 
20 20 (This is the fourth and last page) cc
/lastpage true store  % Be sure to add!!!
addpagenav
showpage





% EOF