1
--- a/Resource/Init/pdf_ops.ps
2
+++ b/Resource/Init/pdf_ops.ps
4
/Tform { % <MaxLen> (V) <Ff> <Q> Tform -
5
clippath pathbbox 4 2 roll pop pop % MaxLen (V) Ff Q dx dy
6
currentfont /ScaleMatrix .knownget { 3 get } { 1 } ifelse % MaxLen (V) Ff Q dx dy yy
7
- currentfont /FontBBox get dup 1 get neg exch 3 get % MaxLen (V) Ff Q dx dy yy desc asc
9
+ currentfont /FontBBox .knownget
12
+ currentfont dup /FontType get
15
+ /FDepVector get 0 get /FontBBox get}
17
+ pop null % force an error
20
+ dup 1 get neg exch 3 get % MaxLen (V) Ff Q dx dy yy desc asc
22
dup 0 ne { div } { pop pop 0 } ifelse % MaxLen (V) Ff Q dx dy yy desc/asc
23
1 index mul % MaxLen (V) Ff Q dx dy yy desc/asc*yy