diff options
| author | Karl Berry <karl@freefriends.org> | 2018-12-30 22:11:51 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2018-12-30 22:11:51 +0000 |
| commit | 5a8b5044b55dfb4e76f990eb433c7e229906c162 (patch) | |
| tree | 6ce99f31e044b1b5bbd52eb7300f201763cd6f2d /Master/texmf-dist/tex/generic | |
| parent | bb7737fd4c99d8110fadbf69be86d62160650916 (diff) | |
pst-text (30dec18)
git-svn-id: svn://tug.org/texlive/trunk@49542 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic')
| -rw-r--r-- | Master/texmf-dist/tex/generic/pst-text/pst-text.tex | 35 |
1 files changed, 30 insertions, 5 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 b38689418e5..06cd499c8ed 100644 --- a/Master/texmf-dist/tex/generic/pst-text/pst-text.tex +++ b/Master/texmf-dist/tex/generic/pst-text/pst-text.tex @@ -1,4 +1,5 @@ %% BEGIN pst-text.tex +%% $Id: pst-text.tex 891 2018-12-29 19:42:20Z herbert $ %% %% Placing text on a path with PSTricks 97. %% See the PSTricks User's Guide for description. @@ -6,7 +7,7 @@ %% %% %% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz@nwu.edu. -%% 2006, 2019 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 @@ -27,8 +28,6 @@ \pst@addfams{pst-text} - - \pstheader{pst-text.pro} % \def\pstextpath{\@ifnextchar[{\pstextpath@}{\pstextpath@[l]}} @@ -199,9 +198,35 @@ } \end@ClosedObj } - - % +\def\psCircleText{\def\pst@par{}\pst@object{psCircleText}} +\def\psCircleText@i{\@ifnextchar(\psCircleText@ii{\psCircleText@ii(0,0)}} +\def\psCircleText@ii(#1)#2{% + \addbefore@par{fillcolor=red!40,linewidth=0.01pt,radius=2cm}% + \begin@ClosedObj + \pst@getcoor{#1}\pst@tempCoor + \pssetlength\pst@dimb\psk@radius + \pstverb{ + /\psk@warpfont findfont \psk@warpfontsize\space scalefont setfont + /circtxt (#2) def + /circwidth circtxt stringwidth pop def + \pst@tempCoor translate + circwidth 2 div neg \pst@number\pst@dimb moveto + circtxt true charpath + tx@TextPathDict begin + circit + gsave + \pst@usecolor\psfillcolor + fill + grestore + \pst@number\pslinewidth setlinewidth + stroke + end + }% + \end@ClosedObj +} +% + \catcode`\@=\TheAtCode\relax \endinput %% |