diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pst-text.pro')
-rw-r--r-- | Master/texmf-dist/dvips/pstricks/pst-text.pro | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pst-text.pro b/Master/texmf-dist/dvips/pstricks/pst-text.pro index 2f001e2af23..0e918ee570d 100644 --- a/Master/texmf-dist/dvips/pstricks/pst-text.pro +++ b/Master/texmf-dist/dvips/pstricks/pst-text.pro @@ -1,6 +1,6 @@ %! % PostScript header file pst-text.pro -% Version 97, 94/04/20; patched MV 10-09-99 00:36 +% Version 1.00, 2005/12/15 % For distribution, see pstricks.tex. /tx@TextPathDict 40 dict def @@ -50,9 +50,19 @@ tx@TextPathDict begin /TextPathShow { /String exch def /CharCount 0 def - String length - { String CharCount 1 getinterval ShowChar - /CharCount CharCount 1 add def +% hv begin 2005-11-29 1.00 +% String length +% { String CharCount 1 getinterval ShowChar +% /CharCount CharCount 1 add def + /CharSize 1 def + currentfont /FontType get 0 eq + { currentfont /FMapType get dup 2 eq exch dup 5 eq exch 9 eq or or + { /CharSize 2 def} if + } if + String length CharSize idiv + { String CharCount CharSize getinterval ShowChar + /CharCount CharCount CharSize add def +% hv end 2005-11-29 1.00 } repeat } def |