summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-text/pst-text.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-12-30 22:11:51 +0000
committerKarl Berry <karl@freefriends.org>2018-12-30 22:11:51 +0000
commit5a8b5044b55dfb4e76f990eb433c7e229906c162 (patch)
tree6ce99f31e044b1b5bbd52eb7300f201763cd6f2d /Master/texmf-dist/tex/generic/pst-text/pst-text.tex
parentbb7737fd4c99d8110fadbf69be86d62160650916 (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/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
%%