summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pstricks/pst-text.pro
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pst-text.pro')
-rw-r--r--Master/texmf-dist/dvips/pstricks/pst-text.pro18
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