texlive[49477] Master/texmf-dist: pst-text (22dec18)
commits+karl at tug.org
commits+karl at tug.org
Sat Dec 22 22:49:27 CET 2018
Revision: 49477
http://tug.org/svn/texlive?view=revision&revision=49477
Author: karl
Date: 2018-12-22 22:49:26 +0100 (Sat, 22 Dec 2018)
Log Message:
-----------
pst-text (22dec18)
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.bib
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
Removed Paths:
-------------
trunk/Master/texmf-dist/source/generic/pst-text/
trunk/Master/texmf-dist/tex/generic/pst-text/pst-char.tex
Modified: trunk/Master/texmf-dist/doc/generic/pst-text/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-text/Changes 2018-12-22 14:44:13 UTC (rev 49476)
+++ trunk/Master/texmf-dist/doc/generic/pst-text/Changes 2018-12-22 21:49:26 UTC (rev 49477)
@@ -2,11 +2,13 @@
2006-01-01
pst-text.tex --------
+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)
pst-text.pro --------
+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-22 14:44:13 UTC (rev 49476)
+++ trunk/Master/texmf-dist/doc/generic/pst-text/README 2018-12-22 21:49:26 UTC (rev 49477)
@@ -1,5 +1,9 @@
-pst-text: text along a different path and char manipulations
+# pst-text: text along a different path and char manipulations #
+\pscharpath
+\pstextpath
+\psWarp
+
pst-text.sty - The LaTeX file
pst-text.tex - The TeX file
pst-text.pro - The dvips header file
@@ -8,5 +12,10 @@
pst-text-doc.bib - The documentation, bibfile
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+
+
--
-Herbert Voss 2006-11-05
+Herbert Voss 2018-12-22 hvoss at tug.org
Modified: trunk/Master/texmf-dist/doc/generic/pst-text/pst-text-doc.bib
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-text/pst-text-doc.bib 2018-12-22 14:44:13 UTC (rev 49476)
+++ trunk/Master/texmf-dist/doc/generic/pst-text/pst-text-doc.bib 2018-12-22 21:49:26 UTC (rev 49477)
@@ -2,15 +2,63 @@
@STRING{tugboat = {TUGboat} }
@STRING{dtk = {{D}ie {\TeX}nische {K}om{\"o}die} }
+
@Book{companion,
- author = {Michel Goosens and Frank Mittelbach and Sebastian Rahtz and Dennis Roegel and Herbert Vo\ss},
+ author = {Michel Goosens and Frank Mittelbach and Sebastian Rahtz and Denis Roegel and Herbert Voß},
title = {The {\LaTeX} {G}raphics {C}ompanion},
publisher = {{Addison-Wesley Publishing Company}},
- edition = {second},
+ edition = 2,
year = {2007},
- address = {Reading, Mass.}
+ address = {Reading, Mass. (USA)}
}
+ at Book{PSTricks2,
+ author = {Herbert Voß},
+ title = {\texttt{PSTricks} -- {G}rafik f\"ur \TeX{} und \LaTeX},
+ edition = {7},
+ publisher = {DANTE and Lehmanns Media},
+ year = {2017},
+ address = {Heidelberg and Berlin}
+}
+
+
+ at Book{PSTricksE,
+ author = {Herbert Voß},
+ title = {\texttt{PSTricks} -- {G}raphics and {P}ost{S}cript for \LaTeX},
+ edition = {1},
+ publisher = {UIT},
+ date = {2011},
+ location = {Cambridge -- UK}
+}
+
+
+
+ at Book{LaTeXRef,
+ author = {Herbert Voß},
+ title = {\LaTeX\ Referenz},
+ edition = {3},
+ publisher = {DANTE and Lehmanns Media},
+ year = {2012},
+ address = {Heidelberg and Berlin}
+}
+ at Book{PostScript,
+ Author = {Kollock, Nikolai G.},
+ Title = {Post{S}cript richtig eingesetzt: vom {K}onzept zum
+ praktischen {E}insatz},
+ Publisher = {IWT},
+ Address = {Vaterstetten},
+ year = 1989,
+}
+
+ at online{pstricks,
+ Title = {PSTricks - {\PS} macros for generic {\TeX}},
+ Author = {{Timothy van} Zandt},
+ url = {http://www.tug.org/application/PSTricks},
+ year = 1993
+}
+
+
+
@Article{girou:01:,
author = {Denis Girou},
title = {Pr\'esentation de {PST}ricks},
@@ -31,30 +79,3 @@
pages = {239-246}
}
- at Book{PostScript,
- Author = {Kollock, Nikolai G.},
- Title = {Post{S}cript richtig eingesetzt: vom {K}onzept zum
- praktischen {E}insatz},
- Publisher = {IWT},
- Address = {Vaterstetten},
- year = 1989,
-}
-
- at Manual{multido,
- Title = {\texttt{multido.tex} - a loop macro, that supports fixed-point addition},
- Author = {{Timothy Van} Zandt},
- Organization = {},
- Address = {\url{CTAN:/graphics/pstricks/generic/multido.tex}},
- Note = {},
- year = 1997
-}
-
- at Book{PSTricks2,
- author = {Herbert Vo\ss{}},
- title = {\texttt{PSTricks} -- {G}rafik f\"ur \TeX{} und \LaTeX},
- edition = {fifth},
- publisher = {DANTE -- Lehmanns},
- year = {2008},
- address = {Heidelberg/Hamburg}
-}
-
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-22 14:44:13 UTC (rev 49476)
+++ trunk/Master/texmf-dist/doc/generic/pst-text/pst-text-doc.tex 2018-12-22 21:49:26 UTC (rev 49477)
@@ -1,18 +1,26 @@
-%% $Id: pst-func-doc.tex 64 2008-12-08 22:14:27Z herbert $
-\documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings
- headexclude,footexclude,oneside]{pst-doc}
-\usepackage[utf8]{inputenc}
-\usepackage{pst-plot,pst-text,pst-grad}
+%% $Id: pst-text-doc.tex 873 2018-12-22 19:34:12Z 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}
\let\pstTextFV\fileversion
-\lstset{pos=t,language=PSTricks,
- morekeywords={psGammaDist,psChiIIDist,psTDist,psFDist,psBetaDist,psPlotImpl},basicstyle=\footnotesize\ttfamily}
-%
+\usepackage{dtk-logos}
+
+
+\renewcommand\bgImage{%
+\begin{pspicture}(10,5)
+\psWarp[fillcolor=red!40,fontsize=0.5cm,font=Times-Roman]{Some Text manipulations}%
+\end{pspicture}%
+}
+
+\addbibresource{\jobname.bib}
+
+
\begin{document}
\title{\texttt{pst-text}}
\subtitle{Manipulate text and characters; v.\pstTextFV}
-\author{Timothy Van Zandt\\Herbert Vo\ss}
-\docauthor{Herbert Vo\ss}
+\author{Timothy Van Zandt\\Herbert Voß}
+\docauthor{Herbert Voß}
\date{\today}
\maketitle
@@ -44,7 +52,7 @@
% ---------------------------------------------------------------------------------------
The package \LPack{pst-text} defines only one macro for text manipulations.
\begin{BDef}
-\Lcs{pstextpath}\OptArg\Largr{x,y}\Largb{Graphic object}\Largb{Text}
+\Lcs{pstextpath}\OptArg{\Largr{x,y}}\Largb{Graphic object}\Largb{Text}
\end{BDef}
\begin{description}
@@ -183,10 +191,10 @@
Doch der Frieden, er kommt nicht wieder -
Die Augen sind hellwach -
Es beginnt doch erst die Nacht -
-Leicht d\"mmerst du in den Schlaf -
+Leicht d\"ammerst du in den Schlaf -
und kommst dir vor, wie in einem Grab -
Mit einem Mal bist du hellwach -
-Es ist, als h\"ttest du dauernd gedacht, -
+Es ist, als h\"attest du dauernd gedacht, -
Nun verstehst du alles, wie es war \ldots
}
\end{pspicture}
@@ -212,10 +220,10 @@
Doch der Frieden, er kommt nicht wieder -
Die Augen sind hellwach -
Es beginnt doch erst die Nacht -
-Leicht d\"mmerst du in den Schlaf -
+Leicht d\"ammerst du in den Schlaf -
und kommst dir vor, wie in einem Grab -
Mit einem Mal bist du hellwach -
-Es ist, als h\"ttest du dauernd gedacht, -
+Es ist, als h\"attest du dauernd gedacht, -
Nun verstehst du alles, wie es war \ldots
}
\end{pspicture}
@@ -222,6 +230,8 @@
\end{lstlisting}
+
+
\section{Character manipulations}\label{sec:psttext:Zeichenmanipulationen}
% ---------------------------------------------------------------------------------------
With character manipulations the same issue with the \verb+DVI-PS+ driver applies,
@@ -459,11 +469,42 @@
used in conjunction with \Lcs{psboxfill}.
+\section{Warping a text}
+
+\begin{BDef}
+\Lcs{psWarp}\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{doublecolor}] The fillcolor for the doubleline, predefined as blue
+\end{description}
+
+
+\begin{pspicture}(10,5)
+\psWarp[fillcolor=red!40,fontsize=0.5cm,font=Times-Roman]{All is Fun with the typesetting system LaTeX}%
+\psWarp[fillcolor=green,fontsize=12pt](0,2){What a wonderfull day, it is raining and
+ I do not know what to do...}%
+\end{pspicture}
+
+
+\begin{lstlisting}
+\begin{pspicture}(10,5)
+\psWarp[fillcolor=red!40,fontsize=0.5cm,font=Times-Roman]{All is Fun with the typesetting system LaTeX}%
+\psWarp[fillcolor=green,fontsize=12pt](0,2){What a wonderfull day, it is raining and
+ I do not know what to do...}%
+\end{pspicture}
+\end{lstlisting}
+
+
\nocite{*}
\bgroup
-\raggedright
-\bibliographystyle{plain}
-\bibliography{\jobname}
+\RaggedRight
+\printbibliography
\egroup
\printindex
Modified: trunk/Master/texmf-dist/dvips/pst-text/pst-text.pro
===================================================================
--- trunk/Master/texmf-dist/dvips/pst-text/pst-text.pro 2018-12-22 14:44:13 UTC (rev 49476)
+++ trunk/Master/texmf-dist/dvips/pst-text/pst-text.pro 2018-12-22 21:49:26 UTC (rev 49477)
@@ -1,11 +1,11 @@
%!
% PostScript header file pst-text.pro
-% Version 1.0, 2005-11-29 (hv)
+% Version 1.01, 2018-12-22 (hv)
% For distribution, see pstricks.tex.
-
-/tx at TextPathDict 40 dict def
+%
+/tx at TextPathDict 45 dict def
tx at TextPathDict begin
-
+%
% Syntax: <dist> PathPosition -
% Function: Searches for position of currentpath distance <dist> from
% beginning. Sets (X,Y)=position, and Angle=tangent.
@@ -20,16 +20,16 @@
/pathforall load stopped { pop pop pop pop /X 0 def /Y 0 def } if
grestore
} def
-
+%
/movetoproc { continue { @movetoproc } { pop pop } ifelse } def
-
+%
/@movetoproc
{ /newy exch def /newx exch def
/firstx newx def /firsty newy def
} def
-
+%
/linetoproc { continue { @linetoproc } { pop pop } ifelse } def
-
+%
/@linetoproc {
/oldx newx def /oldy newy def
/newy exch def /newx exch def
@@ -45,7 +45,7 @@
/continue false def
} if
} def
-
+%
/TextPathShow {
/String exch def
/CharCount 0 def
@@ -64,7 +64,7 @@
% hv end 2005-11-29 1.00
} repeat
} def
-
+%
% Syntax: <pathlength> <position> InitTextPath -
/InitTextPath
{ gsave
@@ -75,7 +75,7 @@
/Voffset Y def
grestore
} def
-
+%
/Transform
{ PathPosition
dup
@@ -84,7 +84,7 @@
translate
Angle rotate
} def
-
+%
/ShowChar {
/Char exch def
gsave
@@ -91,11 +91,10 @@
Char end stringwidth
tx at TextPathDict begin
2 div /Sy exch def 2 div /Sx exch def
-
+%
%%% MV 10-09-99 00:36
/sc?currentpoint where {pop sc?currentpoint} {currentpoint} ifelse
% currentpoint
-
Voffset sub Sy add exch
Hoffset sub Sx add
Transform
@@ -106,5 +105,31 @@
Sx 2 mul Sy 2 mul rmoveto
} def
%
+/warp {
+ 1 index
+ 1.4 mul
+ cos 2 add
+ mul
+} def
+/warpmove{
+ 2 index {
+ newpath
+ } if
+ warp moveto
+ pop false
+} def
+/warpline { warp lineto } def
+/warpcurve {
+ 6 2 roll warp
+ 6 2 roll warp
+ 6 2 roll warp
+ curveto
+} def
+/warpit {
+ true
+ { warpmove } { warpline } { warpcurve } { closepath } pathforall
+ pop
+} def
+%
end
-% END pst-text.pro
+% END pst-text.pro
\ No newline at end of file
Deleted: trunk/Master/texmf-dist/tex/generic/pst-text/pst-char.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-text/pst-char.tex 2018-12-22 14:44:13 UTC (rev 49476)
+++ trunk/Master/texmf-dist/tex/generic/pst-text/pst-char.tex 2018-12-22 21:49:26 UTC (rev 49477)
@@ -1,5 +0,0 @@
-%% BEGIN pst-char.tex
-%%
-\input pst-text
-
-\endinput
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-22 14:44:13 UTC (rev 49476)
+++ trunk/Master/texmf-dist/tex/generic/pst-text/pst-text.tex 2018-12-22 21:49:26 UTC (rev 49477)
@@ -6,7 +6,7 @@
%%
%%
%% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz at nwu.edu.
-%% 2006 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
@@ -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 at addfams{pst-text}
+\pst at addfams{pst-text}
+
+
+
\pstheader{pst-text.pro}
%
\def\pstextpath{\@ifnextchar[{\pstextpath@}{\pstextpath@[l]}}
@@ -50,7 +53,7 @@
\tx at STV
CP translate
newpath
- \pst at code\space
+ \pst at code
mtrxc setmatrix
0 setgray}%
\gdef\pst at code{}}%
@@ -89,8 +92,9 @@
\leavevmode
\hbox{{#4}\box\pst at hbox}%
\endgroup\ignorespaces}
-\def\TPoffset{-.7ex}
%
+\def\TPoffset{-0.7ex}
+%
\def\tx at CharPathShow{%
/tx at CharPathSavedShow /show load def
/show {
@@ -125,13 +129,13 @@
\showpointsfalse
\let\pst at newpath\@empty
\def\use at pscode{%
- \pst at Verb{%
+ \pst at Verb{
gsave
\tx at STV
\pst at code
grestore
% DG/SR modification begin - Jul. 3, 1998 / Mar. 11, 1999 - Patches 1 and 3
-% \if at star\else CP newpath moveto \fi}}%
+% \if at star\else CP newpath moveto \fi}}%
\if at star\else CP newpath moveto \fi}%
\gdef\pst at code{}}%
% DG/SR modification end
@@ -149,8 +153,56 @@
\ignorespaces}
\def\endpscharclip{\pst at misplaced\endpscharclip}
%
+\define at key[psset]{pst-text}{font}[NimbusSanL-Regu]{\def\psk at warpfont{#1 }}
+\define at key[psset]{pst-text}{fontsize}[24pt]{\pst at getlength{#1}\psk at warpfontsize}
+\psset[pst-text]{font=NimbusSanL-Regu,fontsize=24pt}
+
+\def\psWarp{\def\pst at par{}\pst at object{psWarp}}
+\def\psWarp at i{\@ifnextchar(\psWarp at ii{\psWarp at ii(0,0)}}
+\def\psWarp at ii(#1)#2{%
+ \addbefore at par{linewidth=0.1pt,doublecolor=blue}%
+ \begin at ClosedObj
+ \pst at getcoor{#1}\pst at tempCoor
+ \pstverb{
+ /\psk at warpfont findfont \psk at warpfontsize\space scalefont setfont
+ /amplitude \psk at 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 at tempCoor translate
+ 0 \psk at warpfontsize\space neg moveto
+ 0 amplitude moveto %%% orig
+ 0 1 warpwidth { amplitude lineto } for
+ warpwidth -1 0 { damplitude lineto } for
+ closepath
+ tx at TextPathDict begin
+ warpit
+ gsave
+ \pst at usecolor\psdoublecolor
+ fill
+ grestore
+ \pst at number\pslinewidth setlinewidth
+ stroke
+ end
+ 0 0 moveto
+ warptxt true charpath
+ tx at TextPathDict begin
+ warpit
+ gsave
+ \pst at usecolor\psfillcolor
+ fill
+ grestore
+ \pst at number\pslinewidth setlinewidth
+ stroke
+ end
+ }
+ \end at ClosedObj
+}
+
+
+%
\catcode`\@=\TheAtCode\relax
-
\endinput
%%
%% END pst-text.tex
More information about the tex-live-commits
mailing list