texlive[49542] Master/texmf-dist: pst-text (30dec18)

commits+karl at tug.org commits+karl at tug.org
Sun Dec 30 23:11:51 CET 2018 

Revision: 49542
          http://tug.org/svn/texlive?view=revision&revision=49542
Author:   karl
Date:     2018-12-30 23:11:51 +0100 (Sun, 30 Dec 2018)
Log Message:
-----------
pst-text (30dec18)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/generic/pst-text/Changes
    trunk/Master/texmf-dist/doc/generic/pst-text/README
    trunk/Master/texmf-dist/doc/generic/pst-text/pst-text-doc.pdf
    trunk/Master/texmf-dist/doc/generic/pst-text/pst-text-doc.tex
    trunk/Master/texmf-dist/dvips/pst-text/pst-text.pro
    trunk/Master/texmf-dist/tex/generic/pst-text/pst-text.tex
    trunk/Master/texmf-dist/tex/latex/pst-text/pst-char.sty
    trunk/Master/texmf-dist/tex/latex/pst-text/pst-text.sty

Modified: trunk/Master/texmf-dist/doc/generic/pst-text/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-text/Changes	2018-12-30 22:11:35 UTC (rev 49541)
+++ trunk/Master/texmf-dist/doc/generic/pst-text/Changes	2018-12-30 22:11:51 UTC (rev 49542)
@@ -1,7 +1,10 @@
 pst-text.sty --------
+2018-12-28  - added version info for pro file
 2006-01-01
 
+
 pst-text.tex --------
+1.02  2018-12-28  - added \psCircleText for circled outline text
 1.01  2018-12-22  - added \psWarp for warping text
 1.00  2006-11-06  - integrate the pst-char stuff, which is
                     now obsolete. (hv)
@@ -8,6 +11,7 @@
 
 
 pst-text.pro --------
+1.02  2018-12-28  - added \psCircleText for circled text
 1.01  2018-12-22  - added \psWarp for warping text
 1.00  2006-11-06  - add a patch for japanese text (hv)
                   - first CTAN contrib version (hv)

Modified: trunk/Master/texmf-dist/doc/generic/pst-text/README
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-text/README	2018-12-30 22:11:35 UTC (rev 49541)
+++ trunk/Master/texmf-dist/doc/generic/pst-text/README	2018-12-30 22:11:51 UTC (rev 49542)
@@ -2,8 +2,10 @@
 
 \pscharpath
 \pstextpath
+\psCircleText
 \psWarp
 
+
 pst-text.sty     - The LaTeX file
 pst-text.tex     - The TeX file
 pst-text.pro     - The dvips header file

Modified: trunk/Master/texmf-dist/doc/generic/pst-text/pst-text-doc.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/generic/pst-text/pst-text-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-text/pst-text-doc.tex	2018-12-30 22:11:35 UTC (rev 49541)
+++ trunk/Master/texmf-dist/doc/generic/pst-text/pst-text-doc.tex	2018-12-30 22:11:51 UTC (rev 49542)
@@ -1,4 +1,4 @@
-%% $Id: pst-text-doc.tex 873 2018-12-22 19:34:12Z herbert $
+%% $Id: pst-text-doc.tex 887 2018-12-29 13:17:59Z herbert $
 \documentclass[fontsize=11pt,english,BCOR=10mm,DIV=12,bibliography=totoc,parskip=false,
    headings=small, headinclude=false,footinclude=false,oneside,abstract=on]{pst-doc}
 \usepackage{pst-plot,pst-grad,pst-text}
@@ -469,6 +469,54 @@
 used in conjunction with \Lcs{psboxfill}.
 
 
+\section{Writing outline text on a circle}
+
+\begin{BDef}
+\Lcs{psCircleText}\OptArgs\OptArg{\Largr{x,y}}\Largb{Text}
+\end{BDef}
+
+Optional arguments are
+
+\begin{description}
+\item[\texttt{font}] Textfont, predefined as NimbusSanL-Regu. It must be a PostScript font.
+\item[\texttt{fontsize}] Predefined to 24pt
+\item[\texttt{fillcolor}] Predefined as red!40
+\item[\texttt{radius}] The radius for the circled text
+\end{description}
+
+
+\begin{pspicture}[showgrid](10,10)
+\psCircleText[fontsize=6.5mm,radius=4cm](5,5){All is Fun with the typesetting system TeX}%
+\psCircleText[fillcolor=blue!40,fontsize=1cm,font=Helvetica](5,5){All is Fun within the World}%
+\end{pspicture}
+
+
+\begin{lstlisting}
+\begin{pspicture}[showgrid](10,10)
+\psCircleText[fontsize=6.5mm,radius=4cm](5,5){All is Fun with the typesetting system TeX}%
+\psCircleText[fillcolor=blue!40,fontsize=1cm,font=Helvetica](5,5){All is Fun within the World}%
+\end{pspicture}
+\end{lstlisting}
+
+The radius is preset to 2cm:
+
+\begin{pspicture}(10,10)
+\psCircleText[fontsize=6.5mm,radius=4cm](5,5){All is Fun with the typesetting system TeX}%
+\psCircleText[fillcolor=blue!40,fontsize=1cm,font=Helvetica](5,5){All is Fun within the World}%
+\pscircle[linecolor=red](5,5){4cm}\pscircle[linecolor=blue](5,5){2cm}
+\end{pspicture}
+
+
+\begin{lstlisting}
+\begin{pspicture}(10,10)
+\psCircleText[fontsize=6.5mm,radius=4cm](5,5){All is Fun with the typesetting system TeX}%
+\psCircleText[fillcolor=blue!40,fontsize=1cm,font=Helvetica](5,5){All is Fun within the World}%
+\pscircle[linecolor=red](5,5){4cm}\pscircle[linecolor=blue](5,5){2cm}
+\end{pspicture}
+\end{lstlisting}
+
+
+
 \section{Warping a text}
 
 \begin{BDef}

Modified: trunk/Master/texmf-dist/dvips/pst-text/pst-text.pro
===================================================================
--- trunk/Master/texmf-dist/dvips/pst-text/pst-text.pro	2018-12-30 22:11:35 UTC (rev 49541)
+++ trunk/Master/texmf-dist/dvips/pst-text/pst-text.pro	2018-12-30 22:11:51 UTC (rev 49542)
@@ -1,6 +1,8 @@
 %!
+% $Id: pst-text.pro 891 2018-12-29 19:42:20Z herbert $
+%
 % PostScript header file pst-text.pro
-% Version 1.01, 2018-12-22 (hv)
+% Version 1.02, 2018-12-28 (hv)
 % For distribution, see pstricks.tex.
 %
 /tx at TextPathDict 45 dict def
@@ -131,5 +133,31 @@
     pop
 } def
 %
+/circle {
+    exch neg
+    % .5 mul
+    90 add
+    dup cos 2 index mul
+    3 1 roll
+    sin mul
+} bind def
+
+/circmove{
+    2 index { newpath } if
+    circle moveto
+    pop false
+} bind def
+
+/circline { circle lineto } bind def
+
+/circcurve {
+    6 2 roll circle
+    6 2 roll circle
+    6 2 roll circle
+    curveto
+} bind def
+
+/circit { true { circmove } { circline } { circcurve } { closepath } pathforall pop } bind def
+%
 end
 % END pst-text.pro
\ No newline at end of file

Modified: trunk/Master/texmf-dist/tex/generic/pst-text/pst-text.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-text/pst-text.tex	2018-12-30 22:11:35 UTC (rev 49541)
+++ trunk/Master/texmf-dist/tex/generic/pst-text/pst-text.tex	2018-12-30 22:11:51 UTC (rev 49542)
@@ -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 at nwu.edu.
-%%	     2006, 2019  Herbert Voss <hvoss at tug.org>
+%%	     2006--2019  Herbert Voss <hvoss at 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 at addfams{pst-text}
 
-
-
 \pstheader{pst-text.pro}
 %
 \def\pstextpath{\@ifnextchar[{\pstextpath@}{\pstextpath@[l]}}
@@ -199,9 +198,35 @@
   }
   \end at ClosedObj
 }
+%
+\def\psCircleText{\def\pst at par{}\pst at object{psCircleText}}
+\def\psCircleText at i{\@ifnextchar(\psCircleText at ii{\psCircleText at ii(0,0)}}
+\def\psCircleText at ii(#1)#2{%
+  \addbefore at par{fillcolor=red!40,linewidth=0.01pt,radius=2cm}%
+  \begin at ClosedObj
+  \pst at getcoor{#1}\pst at tempCoor
+  \pssetlength\pst at dimb\psk at radius
+  \pstverb{
+    /\psk at warpfont findfont \psk at warpfontsize\space scalefont setfont
+    /circtxt (#2) def
+    /circwidth circtxt stringwidth pop def
+    \pst at tempCoor translate  
+    circwidth 2 div neg \pst at number\pst at dimb moveto
+    circtxt true charpath
+    tx at TextPathDict begin 
+    circit
+    gsave
+    \pst at usecolor\psfillcolor
+    fill
+    grestore
+    \pst at number\pslinewidth setlinewidth
+    stroke
+   end
+  }%
+  \end at ClosedObj
+}
+%
 
-
-%
 \catcode`\@=\TheAtCode\relax
 \endinput
 %%

Modified: trunk/Master/texmf-dist/tex/latex/pst-text/pst-char.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/pst-text/pst-char.sty	2018-12-30 22:11:35 UTC (rev 49541)
+++ trunk/Master/texmf-dist/tex/latex/pst-text/pst-char.sty	2018-12-30 22:11:51 UTC (rev 49542)
@@ -1,5 +1,5 @@
 %% 
-%% pst-grad.sty Copyright (C) 2008-- Herbert Voss <voss at pstricks.de>
+%% pst-char.sty Copyright (C) 2008-- Herbert Voss <voss at pstricks.de>
 %%
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage{pst-char}

Modified: trunk/Master/texmf-dist/tex/latex/pst-text/pst-text.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/pst-text/pst-text.sty	2018-12-30 22:11:35 UTC (rev 49541)
+++ trunk/Master/texmf-dist/tex/latex/pst-text/pst-text.sty	2018-12-30 22:11:51 UTC (rev 49542)
@@ -1,7 +1,11 @@
 \RequirePackage{pstricks}
-\ProvidesPackage{pst-text}[2006/01/01 package wrapper for pst-text.tex (hv)]
+\ProvidesPackage{pst-text}[2018/12/28 package wrapper for pst-text.tex (hv)]
 \input{pst-text.tex}
 \ProvidesFile{pst-text.tex}
   [\filedate\space \fileversion\space `pst-text' (tvz)]
-\IfFileExists{pst-text.pro}{\@addtofilelist{pst-text.pro}}{}%
+\IfFileExists{pst-text.pro}{%
+   \ProvidesFile{pst-text.pro}[2018/12/28 v. 1.02,  PostScript prologue file]
+   \@addtofilelist{pst-text.pro}}{}%
 \endinput
+
+%% $Id: pst-text.sty 891 2018-12-29 19:42:20Z herbert $

More information about the tex-live-commits mailing list