+ /uri exch def
+ /ury exch def
+ /urx exch def
+ /lly exch def
+ /llx exch def
+ [
+ /Rect [ llx lly urx ury ]
+
+ /Border [ 0 0 0 ]
+
+ /Action
+ <<
+ /Subtype /URI
+ /URI uri
+ >>
+ /Subtype /Link
+ /ANN
+ pdfmark
+}
+bind def
+
+% from adobe tech note 5002.
+/BeginEPSF { %def
+ /b4_Inc_state save def % Save state for cleanup
+ /dict_count countdictstack def % Count objects on dict stack
+ /op_count count 1 sub def % Count objects on operand stack
+ userdict begin % Push userdict on dict stack
+ /showpage { } def % Redefine showpage, { } = null proc
+ 0 setgray 0 setlinecap % Prepare graphics state
+ 1 setlinewidth 0 setlinejoin
+ 10 setmiterlimit [ ] 0 setdash newpath
+ /languagelevel where % If level not equal to 1 then
+ {pop languagelevel % set strokeadjust and
+ 1 ne % overprint to their defaults.
+ {false setstrokeadjust false setoverprint
+ } if
+ } if