summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-text/pst-text.tex
diff options
context:
space:
mode:
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.tex35
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
%%