diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pst-text.pro')
-rw-r--r-- | Master/texmf-dist/dvips/pstricks/pst-text.pro | 111 |
1 files changed, 0 insertions, 111 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pst-text.pro b/Master/texmf-dist/dvips/pstricks/pst-text.pro deleted file mode 100644 index 0e918ee570d..00000000000 --- a/Master/texmf-dist/dvips/pstricks/pst-text.pro +++ /dev/null @@ -1,111 +0,0 @@ -%! -% PostScript header file pst-text.pro -% Version 1.00, 2005/12/15 -% For distribution, see pstricks.tex. - -/tx@TextPathDict 40 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. -/PathPosition -{ /targetdist exch def - /pathdist 0 def - /continue true def - /X { newx } def /Y { newy } def /Angle 0 def - gsave - flattenpath - { movetoproc } { linetoproc } { } { firstx firsty linetoproc } - /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 - /dx newx oldx sub def - /dy newy oldy sub def - /dist dx dup mul dy dup mul add sqrt def - /pathdist pathdist dist add def - pathdist targetdist ge - { pathdist targetdist sub dist div dup - dy mul neg newy add /Y exch def - dx mul neg newx add /X exch def - /Angle dy dx atan def - /continue false def - } if -} def - -/TextPathShow -{ /String exch def - /CharCount 0 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 - -% Syntax: <pathlength> <position> InitTextPath - -/InitTextPath -{ gsave - currentpoint /Y exch def /X exch def - exch X Hoffset sub sub mul - Voffset Hoffset sub add - neg X add /Hoffset exch def - /Voffset Y def - grestore -} def - -/Transform -{ PathPosition - dup - Angle cos mul Y add exch - Angle sin mul neg X add exch - 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 - Sx neg Sy neg moveto - Char end tx@TextPathSavedShow - tx@TextPathDict begin - grestore - Sx 2 mul Sy 2 mul rmoveto -} def - -end -% END pst-text.pro |