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