diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-text/pst-text.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-text/pst-text.tex | 70 |
1 files changed, 61 insertions, 9 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-text/pst-text.tex b/Master/texmf-dist/tex/generic/pst-text/pst-text.tex index 02de2985623..b38689418e5 100644 --- a/Master/texmf-dist/tex/generic/pst-text/pst-text.tex +++ b/Master/texmf-dist/tex/generic/pst-text/pst-text.tex @@ -6,7 +6,7 @@ %% %% %% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz@nwu.edu. -%% 2006 Herbert Voss <hvoss@tug.org> +%% 2006, 2019 Herbert Voss <hvoss@tug.org> %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN @@ -18,14 +18,17 @@ \ifx\PSTricksLoaded\endinput\else\input pstricks \fi %\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi % -\def\fileversion{1.00} -\def\filedate{2006/11/05} +\def\fileversion{1.01} +\def\filedate{2018/12/22} \message{ v\fileversion, \filedate (tvz,hv)} \edef\TheAtCode{\the\catcode`\@} \catcode`\@=11 -%\pst@addfams{pst-text} +\pst@addfams{pst-text} + + + \pstheader{pst-text.pro} % \def\pstextpath{\@ifnextchar[{\pstextpath@}{\pstextpath@[l]}} @@ -50,7 +53,7 @@ \tx@STV CP translate newpath - \pst@code\space + \pst@code mtrxc setmatrix 0 setgray}% \gdef\pst@code{}}% @@ -89,7 +92,8 @@ \leavevmode \hbox{{#4}\box\pst@hbox}% \endgroup\ignorespaces} -\def\TPoffset{-.7ex} +% +\def\TPoffset{-0.7ex} % \def\tx@CharPathShow{% /tx@CharPathSavedShow /show load def @@ -125,13 +129,13 @@ \showpointsfalse \let\pst@newpath\@empty \def\use@pscode{% - \pst@Verb{% + \pst@Verb{ gsave \tx@STV \pst@code grestore % DG/SR modification begin - Jul. 3, 1998 / Mar. 11, 1999 - Patches 1 and 3 -% \if@star\else CP newpath moveto \fi}}% +% \if@star\else CP newpath moveto \fi}}% \if@star\else CP newpath moveto \fi}% \gdef\pst@code{}}% % DG/SR modification end @@ -149,8 +153,56 @@ \ignorespaces} \def\endpscharclip{\pst@misplaced\endpscharclip} % -\catcode`\@=\TheAtCode\relax +\define@key[psset]{pst-text}{font}[NimbusSanL-Regu]{\def\psk@warpfont{#1 }} +\define@key[psset]{pst-text}{fontsize}[24pt]{\pst@getlength{#1}\psk@warpfontsize} +\psset[pst-text]{font=NimbusSanL-Regu,fontsize=24pt} +\def\psWarp{\def\pst@par{}\pst@object{psWarp}} +\def\psWarp@i{\@ifnextchar(\psWarp@ii{\psWarp@ii(0,0)}} +\def\psWarp@ii(#1)#2{% + \addbefore@par{linewidth=0.1pt,doublecolor=blue}% + \begin@ClosedObj + \pst@getcoor{#1}\pst@tempCoor + \pstverb{ + /\psk@warpfont findfont \psk@warpfontsize\space scalefont setfont + /amplitude \psk@warpfontsize\space 0.75 mul def + /damplitude amplitude 1.05 mul def + /warptxt (#2) def + /warpwidth warptxt stringwidth pop def + /warphalf warpwidth 2 div def + \pst@tempCoor translate + 0 \psk@warpfontsize\space neg moveto + 0 amplitude moveto %%% orig + 0 1 warpwidth { amplitude lineto } for + warpwidth -1 0 { damplitude lineto } for + closepath + tx@TextPathDict begin + warpit + gsave + \pst@usecolor\psdoublecolor + fill + grestore + \pst@number\pslinewidth setlinewidth + stroke + end + 0 0 moveto + warptxt true charpath + tx@TextPathDict begin + warpit + gsave + \pst@usecolor\psfillcolor + fill + grestore + \pst@number\pslinewidth setlinewidth + stroke + end + } + \end@ClosedObj +} + + +% +\catcode`\@=\TheAtCode\relax \endinput %% %% END pst-text.tex |