1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
# PSTricksѥåѤν
#
# PSTricksѥå pst-text.sty ˴ޤޤƤ \pstextpath ޥ
# ܸѤPostScriptRIP顼֤ޤ
# PSTricksΥإåե pst-text.pro 1ХȤΥեȤˤб
# ƤʤǤ
# ܸΤ褦2ХȥեȤн褹뤿ᡢΥѥåե
# pst-text.pro ƤƤ
# ʤΥѥå PSTricks Version 97 ФΤǤ
# PSTricksѥåѤʤϤνɬפޤ
#
# pst-text.pro ֤Ƥǥ쥯ȥ$(TEXMF)/dvips/pstricks/ նᡩˤ
# ưˤΥեԡޤ줫
#
# patch < PSTricks.jpatch
#
# ¹ԤƤ
#
*** pst-text.pro.orig Tue Jan 25 01:45:05 2000
--- pst-text.pro Tue Jan 25 02:19:40 2000
***************
*** 50,58 ****
/TextPathShow
{ /String exch def
/CharCount 0 def
! String length
! { String CharCount 1 getinterval ShowChar
! /CharCount CharCount 1 add def
} repeat
} def
--- 50,63 ----
/TextPathShow
{ /String exch def
/CharCount 0 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
} repeat
} def
|
