Ihre Freunde sind
String boolcharpath
pathbboxllx lly urx ury
aus der Sprache Postscript.
so tun
1448 2069 moveto
(Comparator) false charpath pathbbox newpath
Sie geben links x, y unteren rechten x und Ober y auf den Stapel. Sie können einige konstanten Werte subtrahieren/fügen Sie einen wenig Raum um den Text zu geben und dann Breite berechnen und Höhe statt der rechten/oberen Werte und machen eine rectstroke
EDIT kleine Arbeitsprobe
%!PS
/Helvetica findfont 20 scalefont setfont
20 dup moveto (Link on page1) show newpath
[ /Rect [ 20 dup moveto (Link on page1) false charpath pathbbox
2 add 4 1 roll 2 add 4 1 roll 2 sub 4 1 roll 2 sub 4 1 roll
newpath ] /Page 2 /Color [.7 0 0] /Subtype /Link /ANN pdfmark
showpage
20 dup moveto (Target on page2) show
showpage
Die Zeile 2 add 4 1 roll ...
fügt zwei weitere Ränder auf jeder Seite hinzu. Sie können die gesamte Zeile weglassen.
Ihr Code wird den Comparator nicht anzeigen, da er eine Prozedur auf dem Stapel zurücklassen wird, die 'show newpath' enthält, ich verstehe nicht, was Sie tun –