texlive[60507] Master/texmf-dist: pst-tools (14sep21)
commits+karl at tug.org
commits+karl at tug.org
Tue Sep 14 22:24:52 CEST 2021
Revision: 60507
http://tug.org/svn/texlive?view=revision&revision=60507
Author: karl
Date: 2021-09-14 22:24:50 +0200 (Tue, 14 Sep 2021)
Log Message:
-----------
pst-tools (14sep21)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/generic/pst-tools/Changes
trunk/Master/texmf-dist/doc/generic/pst-tools/README
trunk/Master/texmf-dist/doc/generic/pst-tools/pst-tools-doc.bib
trunk/Master/texmf-dist/doc/generic/pst-tools/pst-tools-doc.pdf
trunk/Master/texmf-dist/doc/generic/pst-tools/pst-tools-doc.tex
trunk/Master/texmf-dist/dvips/pst-tools/pst-tools.pro
trunk/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex
trunk/Master/texmf-dist/tex/latex/pst-tools/pst-tools.sty
Modified: trunk/Master/texmf-dist/doc/generic/pst-tools/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-tools/Changes 2021-09-14 20:24:37 UTC (rev 60506)
+++ trunk/Master/texmf-dist/doc/generic/pst-tools/Changes 2021-09-14 20:24:50 UTC (rev 60507)
@@ -1,4 +1,5 @@
..... pst-tools.tex
+0.11 2021-09-13 - make it compatible to lualatex
0.10 2020-03-24 - added the random macros from random.tex which is no more
on TeXLive
0.09b 2017-12-03 - modified pro file
Modified: trunk/Master/texmf-dist/doc/generic/pst-tools/README
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-tools/README 2021-09-14 20:24:37 UTC (rev 60506)
+++ trunk/Master/texmf-dist/doc/generic/pst-tools/README 2021-09-14 20:24:50 UTC (rev 60507)
@@ -6,13 +6,11 @@
local TeX tree. The pro file should go into $TEXMF/dvips/pstricks/
Then do not forget to run texhash to update this tree.
For more information see the documentation of your LATEX distribution
-on installing packages into your local TeX system or read the
-TeX Frequently Asked Questions:
-(http://www.tex.ac.uk/cgi-bin/texfaq2html?label=instpackages).
+on installing packages into your local TeX system
pst-tools needs pst-plot (pstricks-add) and pstricks, which should
be part of your local TeX installation, otherwise get it from a
-CTAN server, http://mirror.ctan.org
+CTAN server, https://mirror.ctan.org
PSTricks is PostScript Tricks, the documentation cannot be run
with pdftex, use the sequence latex->dvips->ps2pdf.
@@ -22,5 +20,5 @@
%% in directory macros/latex/base/lppl.txt.
-%% $Id: README 286 2010-02-11 09:40:41Z herbert $
+%% $Id: README 245 2021-09-13 18:56:41Z herbert $
hvoss at tug.org
\ No newline at end of file
Modified: trunk/Master/texmf-dist/doc/generic/pst-tools/pst-tools-doc.bib
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-tools/pst-tools-doc.bib 2021-09-14 20:24:37 UTC (rev 60506)
+++ trunk/Master/texmf-dist/doc/generic/pst-tools/pst-tools-doc.bib 2021-09-14 20:24:50 UTC (rev 60507)
@@ -1,4 +1,4 @@
-y%% -*-bibtex-*-
+%% -*-bibtex-*-
@STRING{tugboat = {TUGboat} }
@STRING{beiprogramm = {{\TeX}-Beiprogramm} }
@STRING{bretter = {Bretter, die die Welt bedeuten} }
Modified: trunk/Master/texmf-dist/doc/generic/pst-tools/pst-tools-doc.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/generic/pst-tools/pst-tools-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-tools/pst-tools-doc.tex 2021-09-14 20:24:37 UTC (rev 60506)
+++ trunk/Master/texmf-dist/doc/generic/pst-tools/pst-tools-doc.tex 2021-09-14 20:24:50 UTC (rev 60507)
@@ -1,7 +1,10 @@
-%% $Id: pst-tools-doc.tex 1163 2020-03-24 09:47:58Z herbert $
-\documentclass[11pt,english,BCOR=10mm,DIV=13,toc=bibliography,parskip=false,
- headings=small,headinclude=false,footinclude=false,oneside]{pst-doc}
-\usepackage[utf8]{inputenc}
+\RequirePackage{pdfmanagement-testphase}
+\DeclareDocumentMetadata{}
+%% $Id: pst-tools-doc.tex 245 2021-09-13 18:56:41Z herbert $
+\documentclass[fontsize=11pt,english,BCOR=10mm,DIV=12,bibliography=totoc,parskip=false,headings=small,
+ headinclude=false,footinclude=false,oneside]{pst-doc}
+\listfiles
+\usepackage{pstricks}
\usepackage{pst-tools}
\let\pstToolsFV\fileversion
\usepackage{xltabular}
@@ -19,8 +22,7 @@
\subtitle{Helper functions; v.\pstToolsFV}
\author{Herbert Voß}
\docauthor{}
-\date{\today}
-\maketitle
+\settitle
\begin{abstract}
This package defines some tools which are useful for all packages not only the PSTricks like packages.
@@ -28,6 +30,8 @@
\vfill
\noindent
Thanks to:
+Marcel Krüger;
+Pablo Gonzáles Luengo;
Rolf Niepraschk;
\end{abstract}
@@ -76,7 +80,7 @@
\Lkeyword{PSfont} & PS font name & Times & only valid \PS\ font names are possible, e.g.
\Lps{Times-Roman}, \Lps{Helvetica}, \Lps{Courier}, \Lps{Helvetica}, \Lps{Bookman}. If you want to embed the fonts
use always the URW names NimbusRomNo9L-Regu, NimbusSanL-Regu and NimbusMonL-Regu. However, the names
-may vary on different operating systems.\\
+may vary on different operating systems. If you leave the argument empty, it will choose the currently active font.\\
\Lkeyword{postString} & <string> & \{\} & will be appended to the number string\\
\Lkeyword{trimSpaces} & <boolean> & false & will strip spaces on the right\\
\Lkeyword{fontscale} & <number> & 10 & the font scale in pt\\
@@ -91,19 +95,23 @@
\end{xltabular}
+
+
\begin{center}
\psset{fontscale=12}
\makebox[2em]{x(deg)} \makebox[5em]{$\sin x$} \makebox[4em]{$\cos x$}\hspace{1em}
\makebox[5em]{$\sqrt x$}\makebox[7em]{$\sin x+\cos x$}\makebox[6em]{$\sin^2 x+\cos^2 x$}\\[3pt]
-\multido{\iA=0+10}{18}{
+\multido{\iA=0+10}{18}{%
\makebox[1em]{\iA}
\makebox[5em]{\psPrintValue[PSfont=NimbusRomNo9L-Regu,xShift=-10]{\iA\space sin}}
- \makebox[4em][r]{\psPrintValue[PSfont=NimbusMonL-Regu,fontscale=10,decimals=3,xShift=-20]{\iA\space cos}}\hspace{1em}
+ \makebox[4em][r]{\psPrintValue[PSfont={},fontscale=10,decimals=3,xShift=-20]{\iA\space cos}}\hspace{1em}
\makebox[5em]{\psPrintValue[valuewidth=15,linecolor=blue,PSfont=NimbusSanL-Regu]{\iA\space sqrt}}
\makebox[7em]{\psPrintValue[comma,PSfont=NimbusRomNo9L-ReguItal]{\iA\space dup sin exch cos add}}
- \makebox[6em]{\psPrintValue[PSfont=Palatino-Roman]{\iA\space dup sin dup mul exch cos dup mul add}}\\}
+ \makebox[6em]{\psPrintValue[PSfont=Palatino-Roman]{\iA\space dup sin dup mul exch cos dup mul add}}\\
+}
\end{center}
+
\bigskip
\begin{lstlisting}
@@ -113,12 +121,15 @@
\multido{\iA=0+10}{18}{
\makebox[1em]{\iA}
\makebox[5em]{\psPrintValue[PSfont=NimbusRomNo9L-Regu,xShift=-10]{\iA\space sin}}
- \makebox[4em][r]{\psPrintValue[PSfont=NimbusMonL-Regu,fontscale=10,decimals=3,xShift=-20]{\iA\space cos}}\hspace{1em}
+ \makebox[4em][r]{\psPrintValue[PSfont={},fontscale=10,decimals=3,xShift=-20]{\iA\space cos}}\hspace{1em}
\makebox[5em]{\psPrintValue[valuewidth=15,linecolor=blue,PSfont=NimbusSanL-Regu]{\iA\space sqrt}}
\makebox[7em]{\psPrintValue[comma,PSfont=NimbusRomNo9L-ReguItal]{\iA\space dup sin exch cos add}}
\makebox[6em]{\psPrintValue[PSfont=Palatino-Roman]{\iA\space dup sin dup mul exch cos dup mul add}}\\}
\end{lstlisting}
+
+
+
With enabled \Lkeyword{algebraic} option there must be two arguments, separated by a comma.
The first one is the x value as a number, which can also be PostScript code, which leaves a
number on the stack. The second part is the function described in algebraic notation.
@@ -134,7 +145,7 @@
\makebox[5em]{$\sqrt x$}\makebox[7em]{$\sin x+\cos x$}\makebox[6em]{$\sin^2 x+\cos^2 x$}\\[3pt]
\multido{\rA=0+0.1}{18}{\makebox[1em]{\rA}
\makebox[5em]{\psPrintValue[PSfont=NimbusSanL-Regu,xShift=-10]{\rA, sin(x)}}
- \makebox[4em][r]{\psPrintValue[PSfont=NimbusMonL-Regu,fontscale=10,decimals=3,xShift=-20]{\rA,cos(x)}}\hspace{1em}
+ \makebox[4em][r]{\psPrintValue[PSfont={},fontscale=10,decimals=3,xShift=-20]{\rA,cos(x)}}\hspace{1em}
\makebox[5em]{\psPrintValue[valuewidth=15,linecolor=blue,PSfont=NimbusSanL-Regu]{\rA,sqrt(x)}}
\makebox[7em]{\psPrintValue[comma,PSfont=NimbusRomNo9L-ReguItal]{\rA,sin(x)+cos(x)}}
\makebox[6em]{\psPrintValue[PSfont=Palatino-Roman]{\rA,sin(x)^2+cos(x)^2}}\\}
@@ -148,7 +159,7 @@
\makebox[5em]{$\sqrt x$}\makebox[7em]{$\sin x+\cos x$}\makebox[6em]{$\sin^2 x+\cos^2 x$}\\[3pt]
\multido{\rA=0+0.1}{18}{\makebox[1em]{\rA}
\makebox[5em]{\psPrintValue[PSfont=NimbusSanL-Regu,xShift=-10]{\rA, sin(x)}}
- \makebox[4em][r]{\psPrintValue[PSfont=NimbusMonL-Regu,fontscale=10,decimals=3,xShift=-20]{\rA,cos(x)}}\hspace{1em}
+ \makebox[4em][r]{\psPrintValue[PSfont={},fontscale=10,decimals=3,xShift=-20]{\rA,cos(x)}}\hspace{1em}
\makebox[5em]{\psPrintValue[valuewidth=15,linecolor=blue,PSfont=NimbusSanL-Regu]{\rA,sqrt(x)}}
\makebox[7em]{\psPrintValue[comma,PSfont=NimbusRomNo9L-ReguItal]{\rA,sin(x)+cos(x)}}
\makebox[6em]{\psPrintValue[PSfont=Palatino-Roman]{\rA,sin(x)^2+cos(x)^2}}\\}
Modified: trunk/Master/texmf-dist/dvips/pst-tools/pst-tools.pro
===================================================================
--- trunk/Master/texmf-dist/dvips/pst-tools/pst-tools.pro 2021-09-14 20:24:37 UTC (rev 60506)
+++ trunk/Master/texmf-dist/dvips/pst-tools/pst-tools.pro 2021-09-14 20:24:50 UTC (rev 60507)
@@ -174,7 +174,7 @@
%% code de Bill Casselman
%% http://www.math.ubc.ca/people/faculty/cass/graphics/text/www/
/bubblesort { % on stack must be an array [ ... ]
-4 dict begin
+ 4 dict begin
/a exch def
/n a length 1 sub def
n 0 gt {
@@ -199,7 +199,7 @@
} repeat
} if
a % return the sorted array
-end
+ end
} def
%
/concatstringarray{ % [(a) (b) ... (z)] --> (ab...z) 20100422
@@ -211,12 +211,10 @@
} bind def
%
/concatstrings{ % (a) (b) -> (ab)
- 1 dict begin
exch dup length
2 index length add string
dup dup 4 2 roll copy length
4 -1 roll putinterval
- end
} def
%
/reversestring { % (aBC) -> (CBa)
@@ -254,6 +252,7 @@
} def
%
/rightTrim { % on stack the string and the character number to be stripped
+ 1 dict begin
/charNo exch def
dup
length 1 sub -1 0 {
@@ -261,6 +260,7 @@
} for
0 i 1 add getinterval
dup length string copy
+ end
} bind def % leaves the stripped string on the stack
/psStringwidth /stringwidth load def
Modified: trunk/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex 2021-09-14 20:24:37 UTC (rev 60506)
+++ trunk/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex 2021-09-14 20:24:50 UTC (rev 60507)
@@ -1,4 +1,4 @@
-%% $Id: pst-tools.tex 1163 2020-03-24 09:47:58Z herbert $
+%% $Id: pst-tools.tex 245 2021-09-13 18:56:41Z herbert $
%%
%% This is file `pst-tools.tex',
%%
@@ -26,8 +26,8 @@
% interface to the `xkeyval' package
\pst at addfams{pst-tools}
%
-\def\fileversion{0.10}
-\def\filedate{2020/03/24}
+\def\fileversion{0.11}
+\def\filedate{2021/09/13}
\message{`PST-tools' v\fileversion, \filedate\space (hv)}
%
\define at key[psset]{pst-tools}{decimalSeparator}[.]{\def\psk at decimalSeparator{#1}}%
@@ -38,11 +38,25 @@
\define at key[psset]{pst-tools}{yShift}[0]{\def\psk at yShift{#1}}
\define at key[psset]{pst-tools}{postString}[{}]{\def\psk at postString{#1}}
\define at key[psset]{pst-tools}{VarName}[]{\def\psk at VarName{#1 }}
-\define at key[psset]{pst-tools}{PSfont}[NimbusRomNo9L-Regu]{\def\psk at PSfont{/#1 }}
+\define at key[psset]{pst-tools}{PSfont}[NimbusRomNo9L-Regu]{%
+ \ifPSTlualatex
+ \ifx\relax#1\relax
+ \def\psk at printfont{ \fontid\font\space .findfontid }%
+ \else
+ \def\psk at printfont{ /#1 findfont }%
+ \fi
+ \else
+ \ifx\relax#1\relax
+ \def\psk at printfont{ /NimbusRomNo9L-Regu findfont }%
+ \else
+ \def\psk at printfont{ /#1 findfont }%
+ \fi
+ \fi
+}%
\define at key[psset]{pst-tools}{valuewidth}[10]{\pst at getint{#1}\psk at valuewidth }
\define at key[psset]{pst-tools}{fontscale}[10]{\pst at checknum{#1}\psk at fontscale }
\define at key[psset]{pst-tools}{decimals}[-1]{\pst at getint{#1}\psk at decimals }
-\psset[pst-tools]{PSfont=NimbusRomNo9L-Regu,fontscale=10,valuewidth=10,decimals=-1,
+\psset[pst-tools]{PSfont=Helvetica,fontscale=10,valuewidth=10,decimals=-1,
xShift=0,yShift=0,trimSpaces=false,postString={},VarName={},
comma=false,decimalSeparator=.}
%
@@ -56,16 +70,19 @@
\def\psPrintValue at ii#1,#2,#3\@nil{% #1,#2 only for algebraic code
\begin at SpecialObj
\addto at pscode{
- gsave \psk at PSfont findfont \psk at fontscale scalefont setfont
+ gsave \psk at printfont
+ \psk at fontscale scalefont setfont
\ifPst at algebraic
/x #1 def
/Func (#2) tx at AlgToPs begin AlgToPs end cvx def
Func
- \else #1 \fi
+ \else
+ #1
+ \fi
\ifx\relax\psk at VarName\relax\else dup \txG 10 string cvs /\psk at VarName\space exch def \etxG \fi
\psk at decimals -1 gt { 10 \psk at decimals exp dup 3 1 roll mul cvi exch div } if
\psk at valuewidth string cvs %/Output exch def % save output
-%/concatstringarray{ % [(a) (b) ... (z)] --> (ab...z) 20100422
+ %/concatstringarray % [(a) (b) ... (z)] --> (ab...z) 20100422
\ifx\relax\psk at postString\relax\else [ exch (\psk at postString) ] concatstringarray \fi
\ifPst at trimSpaces rightTrim \fi
\ifPst at comma dot2comma \fi % do we have to change dot to comma
@@ -72,7 +89,7 @@
\psk at xShift\space \psk at yShift\space moveto %Output
show grestore
}%
- \end at SpecialObj%
+ \end at SpecialObj
}
\define at boolkey[psset]{pst-tools}[Pst@]{round}[true]{}%
@@ -85,8 +102,10 @@
\def\psPrintValueNew at ii#1,#2,#3!!{% #1,#2 only for algebraic code
\begin at SpecialObj
\addto at pscode{ % thanks to Buddy Ledger
- /mfont { \psk at PSfont findfont \psk at fontscale scalefont setfont } bind def
- /mfontexp { \psk at PSfont findfont \psk at fontscale 1.2 div scalefont setfont } bind def
+ /mfont { \psk at printfont
+ \psk at fontscale scalefont setfont } bind def
+ /mfontexp { \psk at printfont
+ \psk at fontscale 1.2 div scalefont setfont } bind def
/s1 { /StandardSymL findfont \psk at fontscale scalefont setfont } bind def
\ifPst at algebraic
/x #1 def
Modified: trunk/Master/texmf-dist/tex/latex/pst-tools/pst-tools.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/pst-tools/pst-tools.sty 2021-09-14 20:24:37 UTC (rev 60506)
+++ trunk/Master/texmf-dist/tex/latex/pst-tools/pst-tools.sty 2021-09-14 20:24:50 UTC (rev 60507)
@@ -9,4 +9,4 @@
\@addtofilelist{pst-tools.pro}}{}%
\endinput
-%% $Id: pst-tools.sty 680 2017-12-05 12:22:55Z herbert $
+%% $Id: pst-tools.sty 245 2021-09-13 18:56:41Z herbert $
More information about the tex-live-commits
mailing list.