1 files changed, 40 insertions, 15 deletions

diff --git a/Master/texmf-dist/dvips/pst-text/pst-text.pro b/Master/texmf-dist/dvips/pst-text/pst-text.pro
index 99e705b2205..f4fb7ca43aa 100644
--- a/Master/texmf-dist/dvips/pst-text/pst-text.pro
+++ b/Master/texmf-dist/dvips/pst-text/pst-text.pro
@@ -1,11 +1,11 @@
 %!
 % PostScript header file pst-text.pro
-% Version 1.0, 2005-11-29 (hv)
+% Version 1.01, 2018-12-22 (hv)
 % For distribution, see pstricks.tex.
-
-/tx@TextPathDict 40 dict def
+%
+/tx@TextPathDict 45 dict def
 tx@TextPathDict begin
-
+%
 % Syntax:  <dist> PathPosition -
 % Function: Searches for position of currentpath distance <dist> from
 %           beginning. Sets (X,Y)=position, and Angle=tangent.
@@ -20,16 +20,16 @@ tx@TextPathDict begin
     /pathforall load stopped { pop pop pop pop /X 0 def /Y 0 def } if
   grestore
 } def
-
+%
 /movetoproc { continue { @movetoproc } { pop pop } ifelse } def
-
+%
 /@movetoproc
 { /newy exch def /newx exch def
   /firstx newx def /firsty newy def
 } def
-
+%
 /linetoproc { continue { @linetoproc } { pop pop } ifelse } def
-
+%
 /@linetoproc {
   /oldx newx def /oldy newy def
   /newy exch def /newx exch def
@@ -45,7 +45,7 @@ tx@TextPathDict begin
     /continue false def
   } if
 } def
-
+%
 /TextPathShow { 
   /String exch def
   /CharCount 0 def
@@ -64,7 +64,7 @@ tx@TextPathDict begin
 % hv end 2005-11-29   1.00
   } repeat
 } def
-
+%
 % Syntax: <pathlength> <position> InitTextPath -
 /InitTextPath
 { gsave
@@ -75,7 +75,7 @@ tx@TextPathDict begin
     /Voffset Y def
   grestore
 } def
-
+%
 /Transform
 { PathPosition
   dup
@@ -84,18 +84,17 @@ tx@TextPathDict begin
   translate
   Angle rotate
 } def
-
+%
 /ShowChar { 
   /Char exch def
   gsave
     Char end stringwidth
     tx@TextPathDict begin
     2 div /Sy exch def 2 div /Sx exch def
-
+%
 %%%  MV 10-09-99 00:36
     /sc?currentpoint where {pop sc?currentpoint} {currentpoint} ifelse
 %   currentpoint
-
     Voffset sub Sy add exch
     Hoffset sub Sx add
     Transform
@@ -106,5 +105,31 @@ tx@TextPathDict begin
   Sx 2 mul Sy 2 mul rmoveto
 } def
 %
+/warp {
+    1 index
+    1.4 mul
+    cos 2 add
+    mul
+} def
+/warpmove{
+    2 index {
+        newpath
+    } if
+    warp moveto
+    pop false
+} def
+/warpline { warp lineto } def
+/warpcurve {
+    6 2 roll warp
+    6 2 roll warp
+    6 2 roll warp
+    curveto
+} def
+/warpit {
+    true
+    { warpmove } { warpline } { warpcurve } { closepath } pathforall
+    pop
+} def
+%
 end
-% END pst-text.pro
+% END pst-text.pro
\ No newline at end of file