From 064f129c479cbbbf18976c1250f880bb4e2fab56 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 22 Dec 2018 21:49:26 +0000 Subject: pst-text (22dec18) git-svn-id: svn://tug.org/texlive/trunk@49477 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pst-text/pst-text.pro | 55 +++++++++++++++++++-------- 1 file changed, 40 insertions(+), 15 deletions(-) (limited to 'Master/texmf-dist/dvips') 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: PathPosition - % Function: Searches for position of currentpath distance 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: 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 -- cgit v1.2.3