%!PS-Adobe-3.0
%%Creator: pagehook.c (PSLib)
%%Creation-Date: 15/07/2004 12:27 AM
%%Title: Creating document with page hooks
%%Author: Uwe Steinmann
%%PageOrder: Ascend
%%Pages: (atend)
%%BoundingBox: (atend)
%%Orientation: (atend)
%%DocumentProcessColors: Black
%%DocumentCustomColors:
%%CMYKCustomColor:
%%RGBCustomColor:
%%EndComments
%%BeginProlog
%%BeginResource: definicoes
%%EndResource
/PslibDict 300 dict def PslibDict begin/N{def}def/B{bind def}N
/p{show}N/w{0 rmoveto}B/a{moveto}B/l{lineto}B/qs{currentpoint
currentpoint newpath moveto 3 2 roll dup true charpath stroke
stringwidth pop 3 2 roll add exch moveto}B/qf{currentpoint
currentpoint newpath moveto 3 2 roll dup true charpath fill
stringwidth pop 3 2 roll add exch moveto}B/qsf{currentpoint
currentpoint newpath moveto 3 2 roll dup true charpath gsave stroke grestore fill
stringwidth pop 3 2 roll add exch moveto}B/qc{currentpoint
currentpoint newpath moveto 3 2 roll dup true charpath clip
stringwidth pop 3 2 roll add exch moveto}B/qsc{currentpoint
currentpoint initclip newpath moveto 3 2 roll dup true charpath clip stroke
stringwidth pop 3 2 roll add exch moveto}B/qfc{currentpoint
currentpoint initclip newpath moveto 3 2 roll dup true charpath clip fill
stringwidth pop 3 2 roll add exch moveto}B/qfsc{currentpoint
currentpoint initclip newpath moveto 3 2 roll dup true charpath gsave stroke grestore clip fill
stringwidth pop 3 2 roll add exch moveto}B/qi{currentpoint
3 2 roll
stringwidth pop 3 2 roll add exch moveto}B/tr{currentpoint currentpoint 5 4 roll add moveto}B/rt{moveto}B/#copies{1}B
/PslibPageBeginHook{pop pop pop pop pop}B
/PslibPageEndHook{pop}B
/reencdict 12 dict def /ReEncode { reencdict begin
/newcodesandnames exch def /newfontname exch def /basefontname exch def
/basefontdict basefontname findfont def /newfont basefontdict maxlength dict def
basefontdict { exch dup /FID ne { dup /Encoding eq
{ exch dup length array copy newfont 3 1 roll put }
{ exch newfont 3 1 roll put } ifelse } { pop pop } ifelse } forall
newfont /FontName newfontname put newcodesandnames aload pop
128 1 255 { newfont /Encoding get exch /.notdef put } for
newcodesandnames length 2 idiv { newfont /Encoding get 3 1 roll put } repeat
newfontname newfont definefont pop end } def
end
/fontenc-TeXBase1 [
8#001 /dotaccent 8#002 /fi 8#003 /fl 8#004 /fraction 8#005 /hungarumlaut 8#006 /Lslash 8#007 /lslash
8#010 /ogonek 8#011 /ring 8#013 /breve 8#014 /minus 8#016 /Zcaron 8#017 /zcaron
8#020 /caron 8#021 /dotlessi 8#022 /dotlessj 8#023 /ff 8#024 /ffi 8#025 /ffl
8#036 /grave 8#037 /quotesingle
8#040 /space 8#041 /exclam 8#042 /quotedbl 8#043 /numbersign 8#044 /dollar 8#045 /percent 8#046 /ampersand 8#047 /quoteright
8#050 /parenleft 8#051 /parenright 8#052 /asterisk 8#053 /plus 8#054 /comma 8#055 /hyphen 8#056 /period 8#057 /slash
8#060 /zero 8#061 /one 8#062 /two 8#063 /three 8#064 /four 8#065 /five 8#066 /six 8#067 /seven
8#070 /eight 8#071 /nine 8#072 /colon 8#073 /semicolon 8#074 /less 8#075 /equal 8#076 /greater 8#077 /question
8#100 /at 8#101 /A 8#102 /B 8#103 /C 8#104 /D 8#105 /E 8#106 /F 8#107 /G
8#110 /H 8#111 /I 8#112 /J 8#113 /K 8#114 /L 8#115 /M 8#116 /N 8#117 /O
8#120 /P 8#121 /Q 8#122 /R 8#123 /S 8#124 /T 8#125 /U 8#126 /V 8#127 /W
8#130 /X 8#131 /Y 8#132 /Z 8#133 /bracketleft 8#134 /backslash 8#135 /bracketright 8#136 /asciicircum 8#137 /underscore
8#140 /quoteleft 8#141 /a 8#142 /b 8#143 /c 8#144 /d 8#145 /e 8#146 /f 8#147 /g
8#150 /h 8#151 /i 8#152 /j 8#153 /k 8#154 /l 8#155 /m 8#156 /n 8#157 /o
8#160 /p 8#161 /q 8#162 /r 8#163 /s 8#164 /t 8#165 /u 8#166 /v 8#167 /w
8#170 /x 8#171 /y 8#172 /z 8#173 /braceleft 8#174 /bar 8#175 /braceright 8#176 /asciitilde
8#202 /quotesinglbase 8#203 /florin 8#204 /quotedblbase 8#205 /ellipsis 8#206 /dagger 8#207 /daggerdbl
8#210 /circumflex 8#211 /perthousand 8#212 /Scaron 8#213 /guilsinglleft 8#214 /OE
8#223 /quotedblleft 8#224 /quotedblright 8#225 /bullet 8#226 /endash 8#227 /emdash
8#230 /tilde 8#231 /trademark 8#232 /scaron 8#233 /guilsinglright 8#234 /oe 8#237 /Ydieresis
8#241 /exclamdown 8#242 /cent 8#243 /sterling 8#244 /currency 8#245 /yen 8#246 /brokenbar 8#247 /section
8#250 /dieresis 8#251 /copyright 8#252 /ordfeminine 8#253 /guillemotleft 8#254 /logicalnot 8#255 /hyphen 8#256 /registered 8#257 /macron
8#260 /degree 8#261 /plusminus 8#262 /twosuperior 8#263 /threesuperior 8#264 /acute 8#265 /mu 8#266 /paragraph 8#267 /periodcentered
8#270 /cedilla 8#271 /onesuperior 8#272 /ordmasculine 8#273 /guillemotright 8#274 /onequarter 8#275 /onehalf 8#276 /threequarters 8#277 /questiondown
8#300 /Agrave 8#301 /Aacute 8#302 /Acircumflex 8#303 /Atilde 8#304 /Adieresis 8#305 /Aring 8#306 /AE 8#307 /Ccedilla
8#310 /Egrave 8#311 /Eacute 8#312 /Ecircumflex 8#313 /Edieresis 8#314 /Igrave 8#315 /Iacute 8#316 /Icircumflex 8#317 /Idieresis
8#320 /Eth 8#321 /Ntilde 8#322 /Ograve 8#323 /Oacute 8#324 /Ocircumflex 8#325 /Otilde 8#326 /Odieresis 8#327 /multiply
8#330 /Oslash 8#331 /Ugrave 8#332 /Uacute 8#333 /Ucircumflex 8#334 /Udieresis 8#335 /Yacute 8#336 /Thorn 8#337 /germandbls
8#340 /agrave 8#341 /aacute 8#342 /acircumflex 8#343 /atilde 8#344 /adieresis 8#345 /aring 8#346 /ae 8#347 /ccedilla
8#350 /egrave 8#351 /eacute 8#352 /ecircumflex 8#353 /edieresis 8#354 /igrave 8#355 /iacute 8#356 /icircumflex 8#357 /idieresis
8#360 /eth 8#361 /ntilde 8#362 /ograve 8#364 /oacute 8#365 /ocircumflex 8#366 /odieresis 8#367 /divide
8#370 /oslash 8#371 /ugrave 8#372 /uacute 8#373 /ucircumflex 8#374 /udieresis 8#375 /yacute 8#376 /thorn 8#377 /ydieresis
] def
/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse
[ /Creator (pagehook.c \(PSLib\))
/Creation-Date (15/07/2004 12:27 AM)
/Title (Creating document with page hooks)
/Author (Uwe Steinmann)
/Keywords (Page Hook)
/DOCINFO pdfmark
PslibDict begin
% draft.ps
% This file contains a page hook to draw the word 'draft' on each page
% The PslibPageStartHook command expects to find the following on the stack.
% page number
% ury (upper right corner of page, y coordinate)
% urx (upper right corner of page, x coordinate)
% lly (lower left corner of page, y coordinate)
% llx (lower left corner of page, x coordinate)
% Use 'B' to define the command
/PslibPageBeginHook{
/pagenumber exch def /ury exch def /urx exch def /lly exch def /llx exch def
0.8 setgray
/Helvetica findfont 144 scalefont setfont
45 rotate 350 60 moveto
(Draft) show
} B
end
%%EndProlog
%%BeginSetup
PslibDict begin
%%EndSetup
%%Page: 1 1
%%PageBoundingBox: 0 0 596 842
%%BeginPageSetup
[ /CropBox [0 0 596.00 842.00] /PAGE pdfmark
%%EndPageSetup
save
0 0 596.00 842.00 1 PslibPageBeginHook
restore
save
68.0000 384.0000 a
508.0000 384.0000 l
508.0000 676.0000 l
68.0000 676.0000 l
closepath
stroke
/Courier /Courier-TeXBase1 fontenc-TeXBase1 ReEncode
/Courier-TeXBase1 findfont 16.000000 scalefont setfont
72.00 661.94 a
(/PslibPageBeginHook{)p
72.00 642.74 a
9.61 w 9.61 w (/pagenumber)p 9.61 w (exch)p 9.61 w (def)p
72.00 623.54 a
9.61 w 9.61 w (/ury)p 9.61 w (exch)p 9.61 w (def)p 9.61 w (/urx)p 9.61 w (exch)p 9.61 w (def)p
72.00 604.34 a
9.61 w 9.61 w (/lly)p 9.61 w (exch)p 9.61 w (def)p 9.61 w (/llx)p 9.61 w (exch)p 9.61 w (def)p
72.00 585.14 a
9.61 w 9.61 w (0.8)p 9.61 w (setgray)p
72.00 565.94 a
9.61 w 9.61 w (/Helvetica)p 9.61 w (findfont)p 9.61 w (144)p 9.61 w (scalefont)p 9.61 w (setfont)p
72.00 546.74 a
9.61 w 9.61 w (45)p 9.61 w (rotate)p 9.61 w (350)p 9.61 w (60)p 9.61 w (moveto)p
72.00 527.54 a
9.61 w 9.61 w (\050Draft\051)p 9.61 w (show)p
72.00 508.34 a
(})p 9.61 w (B)p
restore
save
1 PslibPageEndHook
restore
showpage
%%Page: 2 2
%%PageBoundingBox: 0 0 596 842
%%BeginPageSetup
[ /CropBox [0 0 596.00 842.00] /PAGE pdfmark
%%EndPageSetup
save
0 0 596.00 842.00 2 PslibPageBeginHook
restore
save
/Courier /Courier-TeXBase1 fontenc-TeXBase1 ReEncode
/Courier-TeXBase1 findfont 16.000000 scalefont setfont
72.00 421.94 a
(Page)p 9.61 w (hooks)p 9.61 w (are)p
72.00 402.74 a
(good)p 9.61 w (to)p 9.61 w (set)p 9.61 w (a)p
72.00 383.54 a
(common)p
72.00 364.34 a
(background)p 9.61 w (on)p
72.00 345.14 a
(each)p 9.61 w (page.)p
restore
save
2 PslibPageEndHook
restore
showpage
%%Trailer
end
%% Pages: 2
%%BoundingBox: 0 0 596 842
%%Orientation: Portrait
%%EOF