% llx lly urx ury URI
/mark_URI
-% It's possible to eliminate the coordinate variables by doing [ /Rect [ 7 3
-% roll. That is, however, kind of ugly. It would be nice if this procedure
-% were only included when PDF marks are enabled.
{
- /command exch def
+ /uri exch def
/ury exch def
/urx exch def
/lly exch def
/Action
<<
/Subtype /URI
- /URI command
+ /URI uri
>>
/Subtype /Link
/ANN
b4_Inc_state restore
} bind def
-
-%<font> <encoding> <name> reencode-font
-/reencode-font
-{
- /name exch def
- /encoding exch def
- dup length
- dict begin {
- 1 index /FID ne {def} {pop
- pop} ifelse
- }
- forall
- /Encoding encoding
- def currentdict
- end
- name exch definefont
-} bind def
-
-
-
/set_tex_dimen
{
cvr def
} bind def
-
/stroke_and_fill {
gsave
stroke
stroke
} bind def
-/draw_dashed_line % dx dy thickness dashpattern draw_dashed_line
+/draw_dashed_line % dx dy thickness dashpattern offset draw_dashed_line
{
1 setlinecap
1 setlinejoin