diff options
Diffstat (limited to 'graphics/pstricks/contrib')
17 files changed, 187 insertions, 114 deletions
diff --git a/graphics/pstricks/contrib/pst-3dplot/Changes b/graphics/pstricks/contrib/pst-3dplot/Changes index 0307d0b110..c1d65fdfb6 100644 --- a/graphics/pstricks/contrib/pst-3dplot/Changes +++ b/graphics/pstricks/contrib/pst-3dplot/Changes @@ -20,6 +20,7 @@ pst-3dplot.pro -------- pst-3dplot.tex -------- +2.07 2021-09-23 - fix for lualatex and color values on PS level 2.06 2020-10-25 - fix for \pstThreeDDot and parameter setting 2.05 2020-08-04 - fix for hiddenLine 2.04 2017-04-05 - added coorType=7 diff --git a/graphics/pstricks/contrib/pst-3dplot/README b/graphics/pstricks/contrib/pst-3dplot/README index e8da34a168..54f149e557 100644 --- a/graphics/pstricks/contrib/pst-3dplot/README +++ b/graphics/pstricks/contrib/pst-3dplot/README @@ -13,3 +13,6 @@ dimensional graphical objects. pst-3dplot is similiar to the pst-plot package for two dimensional objects and mathematical functions. +%% 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. diff --git a/graphics/pstricks/contrib/pst-3dplot/doc/pst-3dplot-doc.pdf b/graphics/pstricks/contrib/pst-3dplot/doc/pst-3dplot-doc.pdf Binary files differindex 214aa49022..add73a6665 100644 --- a/graphics/pstricks/contrib/pst-3dplot/doc/pst-3dplot-doc.pdf +++ b/graphics/pstricks/contrib/pst-3dplot/doc/pst-3dplot-doc.pdf diff --git a/graphics/pstricks/contrib/pst-3dplot/doc/pst-3dplot-doc.tex b/graphics/pstricks/contrib/pst-3dplot/doc/pst-3dplot-doc.tex index 198e93b4c8..7720ed1095 100644 --- a/graphics/pstricks/contrib/pst-3dplot/doc/pst-3dplot-doc.tex +++ b/graphics/pstricks/contrib/pst-3dplot/doc/pst-3dplot-doc.tex @@ -1,8 +1,11 @@ \input{pst-3dplot-doc.dat} -%% $Id: pst-3dplot-doc.tex 32 2020-10-25 19:18:25Z herbert $ -\documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings, - headexclude,footexclude,oneside,dvipsnames,svgnames]{pst-doc} +%% $Id: pst-3dplot-doc.tex 198 2021-09-08 16:11:30Z herbert $ +\errorcontextlines=100 +\RequirePackage{pdfmanagement-testphase} +\DeclareDocumentMetadata{} +\documentclass[11pt,english,BCOR=10mm,DIV=12,bibliography=totoc,parskip=false,headings=small, + headinclude=false,footinclude=false,twoside,english]{pst-doc} \listfiles \usepackage{pst-grad,pst-3dplot} @@ -43,7 +46,7 @@ \date{\today} \title{3D plots: pst-3dplot} \subtitle{A PSTricks package for drawing 3d objects, v\pstFV} -\maketitle +\settitle \tableofcontents @@ -1349,6 +1352,8 @@ If you are looking from behind, then change the order of the ditection vectors: The origin vector $\vec{o}$ determines the left corner of the box. + + \begin{LTXexample}[width=6.25cm] \begin{pspicture}(-3,-2)(3,5) \psset{Alpha=2,Beta=10} @@ -1357,6 +1362,9 @@ The origin vector $\vec{o}$ determines the left corner of the box. \end{pspicture} \end{LTXexample} + +\end{document} + \begin{LTXexample}[width=6.25cm] \begin{pspicture}(-3,-3)(3,3) \psset{Beta=50} @@ -1376,6 +1384,7 @@ The origin vector $\vec{o}$ determines the left corner of the box. + \begin{LTXexample}[width=6.25cm] \psset{Beta=10,xyzLight=-7 3 4} \begin{pspicture}(-3,-2)(3,4) diff --git a/graphics/pstricks/contrib/pst-3dplot/tex/pst-3dplot.tex b/graphics/pstricks/contrib/pst-3dplot/tex/pst-3dplot.tex index dbcb6883ad..3a9189b5c5 100644 --- a/graphics/pstricks/contrib/pst-3dplot/tex/pst-3dplot.tex +++ b/graphics/pstricks/contrib/pst-3dplot/tex/pst-3dplot.tex @@ -1,4 +1,4 @@ -%% $Id: pst-3dplot.tex 32 2020-10-25 19:18:25Z herbert $ +%% $Id: pst-3dplot.tex 266 2021-09-24 19:02:30Z herbert $ %% %% This is file `pst-3dplot.tex', %% @@ -27,9 +27,9 @@ \ifx\PSTMultidoLoaded\endinput\else \input multido.tex\fi \ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi % -\def\fileversion{2.06} +\def\fileversion{2.07} \let\IIIDplotfileversion\fileversion -\def\filedate{2020/10/25} +\def\filedate{2021/09/23} \let\IIIDplotfiledate\filedate \message{`PST-3dplot' v\fileversion, \filedate\space (HV,DL)} % @@ -1334,8 +1334,8 @@ \pst@3ddict /vZ ED /vY ED /vX ED /pas 0.5 def /pas10 pas 10 div def - /cmyk {} def % we need only the values - \psk@ThreeDplot@SegmentColor\space +% /cmyk {} def % we need only the values + \psgetCMYKColorValues{\psk@ThreeDplot@SegmentColor} % \psk@ThreeDplot@xyzLight\space % xLight yLight zLight % /calculate2DPoint { % four values on stack; x2D y2D are returned @@ -1397,8 +1397,8 @@ #1 \pst@number\psunit mul #2 \pst@number\psunit mul #3 \pst@number\psunit mul #4 \pst@number\psunit mul \psk@ThreeDplot@increment\space - /cmyk {} def % we need only the values - \psk@ThreeDplot@SegmentColor\space +% /cmyk {} def % we need only the values + \psgetCMYKColorValues{\psk@ThreeDplot@SegmentColor} tx@3DPlotDict begin \IIIDplot@variables \tx@setTransparency @@ -1509,8 +1509,8 @@ \pst@number\pst@dimb \pst@number\psyunit div % Height \psk@ThreeDplot@increment % angle increment \psk@ThreeDplot@Hincrement % height increment - /cmyk {} def % we need only the values - \psk@ThreeDplot@SegmentColor\space +% /cmyk {} def % we need only the values + \psgetCMYKColorValues{\psk@ThreeDplot@SegmentColor} % \tx@3DPlotDict \tx@setTransparency @@ -1573,8 +1573,8 @@ \pst@number\pst@dima \pst@number\psxunit div % Width \pst@number\pst@dimb \pst@number\psyunit div % Height \pst@number\pst@dimc \pst@number\psyunit div % Depth - /cmyk {} def % we need only the values - \psk@ThreeDplot@SegmentColor\space +% /cmyk {} def % we need only the values + \psgetCMYKColorValues{\psk@ThreeDplot@SegmentColor} % /PlaneSequence [ \psk@ThreeD@PlaneSequence ] def /ConvBox2d { % on stack x y z diff --git a/graphics/pstricks/contrib/pst-plot/Changes b/graphics/pstricks/contrib/pst-plot/Changes index c7ab6a9df4..a47e13f871 100644 --- a/graphics/pstricks/contrib/pst-plot/Changes +++ b/graphics/pstricks/contrib/pst-plot/Changes @@ -1,4 +1,8 @@ ----- pst-plot.tex +1.93 2021-09-23 - dont't use function names from pstricks.pro + for own use NArray->NArray@i + - fix for LSM plots; needs gsave .. grestore + - fix for lualatex and \psparametricplot -> use a userdict 1.92 2019-05-16 - fix for missing position test of special labels 1.91 2018-08-31 - fix for showorigin and triglabels 1.90 2018-03-28 - fix for showoriginfalse and yAxis=false diff --git a/graphics/pstricks/contrib/pst-plot/doc/pst-plot-doc.bib b/graphics/pstricks/contrib/pst-plot/doc/pst-plot-doc.bib index 24773cb3c6..41a57247ce 100644 --- a/graphics/pstricks/contrib/pst-plot/doc/pst-plot-doc.bib +++ b/graphics/pstricks/contrib/pst-plot/doc/pst-plot-doc.bib @@ -1,6 +1,22 @@ %% -*-bibtex-*- @STRING{tugboat = {TUGboat} } @STRING{dtk = {{D}ie {\TeX}nische {K}om{\"o}die} } +@STRING{beiprogramm = {{\TeX}-Beiprogramm}} +@STRING{bretter = {Bretter, die die Welt bedeuten}} +@STRING{editorial = {Editorial}} +@STRING{fremdebuehne = {Von fremden Bühnen}} +@STRING{fundus = {Aus dem Fundus}} +@STRING{grusswort = {Grußwort}} +@STRING{hinterbuehne = {Hinter der Bühne}} +@STRING{komascript = {\KOMAScript}} +@STRING{leserbriefe = {Leserbriefe}} +@STRING{magazin = {Magazin}} +@STRING{rezensionen = {Bücher und Rezensionen}} +@STRING{schonimmer = {Was Sie schon immer über {\TeX} wissen wollten, \dots}} +@STRING{spielplan = {Spielplan}} +@STRING{theaterkasse = {Von der Theaterkasse}} +@STRING{theatertage = {{\TeX}-Theatertage}} +@STRING{tippstricks = {Tipps und Tricks}} @Book{companion, author = {Michel Goosens and Frank Mittelbach and Sebastian Rahtz and Dennis Roegel and Herbert Vo\ss}, @@ -95,3 +111,21 @@ version = {1.42}, location = {Heidelberg and Berlin} } +@Article{dtk02.2:jackson.voss:plot-funktionen, + author = {Laura E. Jackson and Herbert Voß}, + title = {Die {P}lot-{F}unktionen von {\texttt{pst-plot}}}, + journal = dtk, + year = 2002, + volume = {2/02}, + altvolume = 2, + altnumber = 14, + month = jun, + pages = {27--34}, + annote = bretter, + abstract = { Im letzten Heft wurden die mathematischen Funktionen von + \PS~im Zusammenhang mit dem {\LaTeX}-Paket + \texttt{pst-plot} zum Zeichnen von Funktionen beschrieben + und durch Beispiele erl{\"a}utert. In diesem Teil werden + die bislang nur erw{\"a}hnten Plot-Funktionen f{\"u}r + externe Daten behandelt. } +} diff --git a/graphics/pstricks/contrib/pst-plot/doc/pst-plot-doc.pdf b/graphics/pstricks/contrib/pst-plot/doc/pst-plot-doc.pdf Binary files differindex a82d02ccc1..1d763d0fe2 100644 --- a/graphics/pstricks/contrib/pst-plot/doc/pst-plot-doc.pdf +++ b/graphics/pstricks/contrib/pst-plot/doc/pst-plot-doc.pdf diff --git a/graphics/pstricks/contrib/pst-plot/doc/pst-plot-doc.tex b/graphics/pstricks/contrib/pst-plot/doc/pst-plot-doc.tex index 00617d6ad3..c1d7f891cc 100644 --- a/graphics/pstricks/contrib/pst-plot/doc/pst-plot-doc.tex +++ b/graphics/pstricks/contrib/pst-plot/doc/pst-plot-doc.tex @@ -1,8 +1,10 @@ +\RequirePackage{pdfmanagement-testphase} +\DeclareDocumentMetadata{} % $Id: pst-plot-doc.tex 1056 2019-05-17 07:39:59Z herbert $ -\documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings - headexclude,footexclude,oneside,dvipsnames,svgnames]{pst-doc} +\documentclass[11pt,english,BCOR=10mm,DIV=12,bibliography=totoc,parskip=false,headings=small, + headinclude=false,footinclude=false,twoside]{pst-doc} \listfiles -\usepackage[utf8]{inputenc} +%\usepackage[utf8]{inputenc} \usepackage{pst-ode, pst-node, pst-calculate, @@ -31,7 +33,7 @@ \author{Timothy Van Zandt\\Herbert Vo\ss} \date{\today} -\maketitle +\settitle \begin{abstract} @@ -40,7 +42,7 @@ of \LPack{pst-xkey} and has a lot of the macros which were recently in the package \LPack{pstricks-add}. This documentation describes only the new and changed stuff. For the default behaviour look into the documentation part of the base \LPack{pstricks} package. You find the -documentation here: \url{http://mirrors.ctan.org/graphics/pstricks/base/doc/}. +documentation here: \url{https://mirror.ctan.org/graphics/pstricks/base/doc/}. \vfill \noindent @@ -58,6 +60,7 @@ Peter Hutnick; Christophe Jorssen; Uwe Kern; Alexander Kornrumpf; +Marcel Krüger; Manuel Luque; Patrice Mégret; Jens-Uwe Morawski; @@ -321,6 +324,9 @@ is possible. The following examples show how it can be used. { const1 x 100 mul dup mul mul Euler const2 neg x 100 mul dup mul mul exp mul 2000 mul} \end{pspicture} + + + %-------------------------------------------------------------------------------------- \clearpage \section{New Macro \nxLcs{psBoxplot}} @@ -394,8 +400,6 @@ is the black dot. - - The next example uses an external file for the data, which must first be read by the macro \Lcs{readdata}. The next one creates a horizontal boxplot by rotating the output with $-90$ degrees. @@ -950,15 +954,15 @@ The legend has to be defined \emph{before} the environment \Lenv{psgraph}. \begin{compactitem} \item \Lcs{pslegend} uses the commands \Lcs{tabular} and \Lcs{endtabular}, which are only available - when running \LaTeX. With \TeX\ you have to redefine the macro \Lcs{pslegend@ii}: + when running \LaTeX. With \TeX\ you have to redefine the macro \nxLcs{pslegend@ii}: \begin{lstlisting} \def\pslegend@ii[#1](#2){\rput[#1](!#2){\psframebox[style=legendstyle]{% \footnotesize\tabcolsep=2pt% \tabular[t]{@{}ll@{}}\pslegend@text\endtabular}}\gdef\pslegend@text{}} \end{lstlisting} \item The fontsize can be changed locally for each cell or globally, when also redefining the - macro \Lcs{pslegend@ii}. -\item If you want to use more than two columns for the table or a shadow box, then redefine \Lcs{pslegend@ii}. + macro \nxLcs{pslegend@ii}. +\item If you want to use more than two columns for the table or a shadow box, then redefine \nxLcs{pslegend@ii}. \end{compactitem} The macro \Lcs{psframebox} uses the style \Lkeyval{legendstyle} which is preset to \Lkeyset{fillstyle=solid}, @@ -1079,8 +1083,8 @@ usual way. Only the additional value \Lkeyval{inner} is valid for \Lkeyword{trigLabels} option, the macros \Lcs{pshlabel} and \Lcs{psvlabel} shouldn't be redefined, because the package does it itself internally in these cases. However, if you need a -redefinition, then do it for \Lcs{pst@@@hlabel} and -\Lcs{pst@@@vlabel} with +redefinition, then do it for \nxLcs{pst@@@hlabel} and +\nxLcs{pst@@@vlabel} with \begin{lstlisting}[style=syntax] \makeatletter @@ -1153,12 +1157,12 @@ redefinition, then do it for \Lcs{pst@@@hlabel} and \Lkeyword{ury} & length & 0pt & \pageref{psgraphoptions}\\ \Lkeyword{valuewidth} & integer & 10 & \pageref{values}\\ \Lkeyword{xAxis} & boolean & \true & \pageref{xyAxes}\\%ok -\Lkeyword{xAxisLabel} & literal & \{\Lcs{@empty}\} & \pageref{psgraphoptions}\\ -\Lkeyword{xAxisLabelPos} & (x,y) or empty & \{\Lcs{@empty}\} & \pageref{psgraphoptions}\\ +\Lkeyword{xAxisLabel} & literal & \{\nxLcs{@empty}\} & \pageref{psgraphoptions}\\ +\Lkeyword{xAxisLabelPos} & (x,y) or empty & \{\nxLcs{@empty}\} & \pageref{psgraphoptions}\\ \Lkeyword{xDecimals} & integer or empty & \{\} & \pageref{xydecimals}\\%ok \Lkeyword{xEnd} & integer or empty & \{\} & \pageref{nxend}\\ -\Lkeyword{xLabels} & list & \{\Lcs{empty}\} & \pageref{xLabels}\\ -\Lkeyword{xlabelFactor} & anything & \{\Lcs{@empty}\} & \pageref{labelfactor}\\ +\Lkeyword{xLabels} & list & \{\nxLcs{empty}\} & \pageref{xLabels}\\ +\Lkeyword{xlabelFactor} & anything & \{\nxLcs{@empty}\} & \pageref{labelfactor}\\ \Lkeyword{xlabelFontSize} & macro & \{\} & \pageref{labelfontsize}\\ \Lkeyword{xlabelOffset} & length & 0 & \pageref{labelOffset}\\ \Lkeyword{xlabelPos} & \Lkeyval{bottom},\Lkeyval{axis},\Lkeyval{top} @@ -1183,12 +1187,12 @@ redefinition, then do it for \Lcs{pst@@@hlabel} and \Lkeyword{xyDecimals} & integer or empty & \{\} & \pageref{xydecimals}\\%ok \Lkeyword{xylogBase} & integer or empty & \{\} & \pageref{xylogbase}\\ \Lkeyword{yAxis} & boolean & \true & \pageref{xyAxes}\\%ok -\Lkeyword{yAxisLabel} & literal & \{\Lcs{@empty}\} & \pageref{psgraphoptions}\\ -\Lkeyword{yAxisLabelPos} & (x,y) or empty & \{\Lcs{@empty}\} & \pageref{psgraphoptions}\\ +\Lkeyword{yAxisLabel} & literal & \{\nxLcs{@empty}\} & \pageref{psgraphoptions}\\ +\Lkeyword{yAxisLabelPos} & (x,y) or empty & \{\nxLcs{@empty}\} & \pageref{psgraphoptions}\\ \Lkeyword{yDecimals} & integer or empty & \{\} & \pageref{xydecimals}\\%ok \Lkeyword{yEnd} & integer or empty & \{\} & \pageref{ystartend}\\ -\Lkeyword{yLabels} & list & \{\Lcs{empty}\} & \pageref{xLabels}\\ -\Lkeyword{ylabelFactor} & literal & \{\Lcs{empty}\} & \pageref{labelfactor}\\ +\Lkeyword{yLabels} & list & \{\nxLcs{empty}\} & \pageref{xLabels}\\ +\Lkeyword{ylabelFactor} & literal & \{nx\Lcs{empty}\} & \pageref{labelfactor}\\ \Lkeyword{ylabelFontSize} & macro & \{\} & \pageref{labelfontsize}\\ \Lkeyword{ylabelOffset} & length & 0 & \pageref{labelOffset}\\ \Lkeyword{ylabelPos} & \Lkeyval{left}|\Lkeyval{axis}|\Lkeyval{right} @@ -2493,6 +2497,9 @@ This mode in math is also called double logarithmic. It is a combination of the two foregoing modes and the function is now $y=\log x$ and is shown in the following example. +\psset{xyAxes=true} + + \medskip \begin{LTXexample}[width=7cm] \begin{pspicture}(-3.5,-3.5)(3.5,3.5) @@ -2737,6 +2744,10 @@ This is only a demonstration that the default option \xLkeyword{xylogBase}=\{\} ticksize=10pt,subtickcolor=blue,subticksize=0.75,ylabelPos=right]{->}(0,0)(5,5)(-5,-5) \end{lstlisting} + +\psset{xyAxes=true} + + \begin{LTXexample}[width=5.5cm] \pspicture(5,5.5) \psaxes[subticks=4,ticksize=6pt,subticksize=0.5,% @@ -3340,6 +3351,9 @@ best all data records. \bgroup \centering \psset{lly=-.5cm} +\begin{filecontents*}[force]{data/LSM.data} +0 1 1 3 2.8 4 3 2.9 2 5 4 4 5 5.5 6 8.2 8 7 +\end{filecontents*} \readdata{\data}{data/LSM.data} \begin{psgraph}[arrows=->](0,0)(0,0)(8,8){.5\textwidth}{!} \listplot[plotstyle=dots]{\data} @@ -3349,7 +3363,7 @@ best all data records. \begin{lstlisting} -\begin{filecontents*}{data/LSM.data} +\begin{filecontents*}[force]{data/LSM.data} 0 1 1 3 2.8 4 3 2.9 2 5 4 4 5 5.5 6 8.2 8 7 \end{filecontents*} \psset{lly=-.5cm} diff --git a/graphics/pstricks/contrib/pst-plot/latex/pst-plot.sty b/graphics/pstricks/contrib/pst-plot/latex/pst-plot.sty index 1e9c4f018d..01ede3063f 100644 --- a/graphics/pstricks/contrib/pst-plot/latex/pst-plot.sty +++ b/graphics/pstricks/contrib/pst-plot/latex/pst-plot.sty @@ -29,7 +29,7 @@ \RequirePackage{pstricks} \RequirePackage{pst-xkey} \RequirePackage{multido} -\ProvidesPackage{pst-plot}[2011/04/13 package wrapper for pst-plot.tex (hv)] +\ProvidesPackage{pst-plot}[2021/09/23 package wrapper for pst-plot.tex (hv)] \input{pst-plot.tex} \ProvidesFile{pst-plot.tex} [\filedate\space \fileversion\space `pst-plot' (tvz,hv)] diff --git a/graphics/pstricks/contrib/pst-plot/tex/pst-plot.tex b/graphics/pstricks/contrib/pst-plot/tex/pst-plot.tex index 2436a84739..a426f7fb51 100644 --- a/graphics/pstricks/contrib/pst-plot/tex/pst-plot.tex +++ b/graphics/pstricks/contrib/pst-plot/tex/pst-plot.tex @@ -1,4 +1,4 @@ -% $Id: pst-plot.tex 1056 2019-05-17 07:39:59Z herbert $ +% $Id: pst-plot.tex 1074 2019-07-16 16:07:00Z herbert $ %% %% BEGIN pst-plot.tex %% @@ -23,8 +23,8 @@ \ifx\PSTFPloaded\endinput\else \input pst-fp.tex \fi \ifx\MultidoLoaded\endinput\else \input multido.tex \fi % -\def\fileversion{1.92} -\def\filedate{2019/05/16} +\def\fileversion{1.93} +\def\filedate{2021/09/23} \message{ v\fileversion, \filedate\space (tvz,hv)} % \edef\TheAtCode{\the\catcode`\@} @@ -378,11 +378,14 @@ D\space##1% } repeat /u xiSquare fi mul xi xifi mul sub n xiSquare mul xi dup mul sub div def /v n xifi mul xi fi mul sub n xiSquare mul xi dup mul sub div def + gsave \Pst@Debug\space 0 gt { % print the equation - /NimbusSanL-Regu findfont 12 scalefont setfont + \ifpstGSfonts /NimbusSanL-Regu \else /Helvetica \fi + findfont 12 scalefont setfont 0 -50 moveto (y=) show % print y= v \pst@number\psyunit \pst@number\psxunit div div 20 string cvs show ( x+) show % m*x+ u \pst@number\psyunit div 20 string cvs show } if + grestore newpath (\psk@xStart) length 0 gt % special start value? { \psk@xStart\space \pst@number\psxunit mul } @@ -417,64 +420,64 @@ D\space##1% \addto@pscode{ /Barwidth \number\Add@barwidth 2 div def /Endwidth Barwidth \psk@arrowlength\space mul def - NArray bubblesort - /NArray ED % save sorted array - [ NArray { yUnit mul } forall ] /NArray ED % multiply with y unit - NArray 0 get /MinVal ED % save minimum - NArray m 1 sub get /MaxVal ED % maximum + NArray@i bubblesort + /NArray@i ED % save sorted array + [ NArray@i { yUnit mul } forall ] /NArray@i ED % multiply with y unit + NArray@i 0 get /MinVal ED % save minimum + NArray@i m 1 sub get /MaxVal ED % maximum m 2 div cvi /M ED % the middle - NArray length 2 mod 0 eq { % even numbers of entries - M 1 sub NArray exch get % even number of values - NArray M get % and the upper one + NArray@i length 2 mod 0 eq { % even numbers of entries + M 1 sub NArray@i exch get % even number of values + NArray@i M get % and the upper one add 2 div /Median ED % the median }{ - NArray M get /Median ED % odd numbers of values + NArray@i M get /Median ED % odd numbers of values } ifelse m 4 mod 0 eq { % get the lower Quartil even/odd - m 4 div cvi dup 1 sub NArray exch get - exch NArray exch get + m 4 div cvi dup 1 sub NArray@i exch get + exch NArray@i exch get % M 2 div cvi 1 add dup /M2 ED % save middle index -% 1 sub NArray exch get -% NArray M2 get +% 1 sub NArray@i exch get +% NArray@i M2 get add 2 div floor /LowerQuartil ED }{ - NArray M 2 div cvi get /LowerQuartil ED + NArray@i M 2 div cvi get /LowerQuartil ED } ifelse % end even/odd m 0.75 mul dup dup cvi sub 0 eq { % get the upper Quartil % 0.75*m is an integer - cvi dup 1 sub NArray exch get exch NArray exch get + cvi dup 1 sub NArray@i exch get exch NArray@i exch get % M 1.5 mul cvi 1 add dup /M3 ED -% 1 sub NArray exch get -% NArray M3 get +% 1 sub NArray@i exch get +% NArray@i M3 get add 2 div floor /UpperQuartil ED }{ % upper quartil - NArray m 0.75 mul floor cvi get /UpperQuartil ED + NArray@i m 0.75 mul floor cvi get /UpperQuartil ED } ifelse % /IQL UpperQuartil LowerQuartil sub \pst@IQLfactor\space mul def 0 1 m 1 sub { % Index on stack dup /Index ED - NArray exch get LowerQuartil sub abs IQL sub 0 gt { + NArray@i exch get LowerQuartil sub abs IQL sub 0 gt { \psk@dotsize \@nameuse{psds@\psk@dotstyle} - 0 NArray Index get \psk@postAction + 0 NArray@i Index get \psk@postAction Dot - NArray Index LowerQuartil UpperQuartil LowerQuartil sub \pst@IQLfactor\space mul sub + NArray@i Index LowerQuartil UpperQuartil LowerQuartil sub \pst@IQLfactor\space mul sub dup /MinVal ED put % replace with 1.5 IQL - NArray Index 1 add get /MinVal ED + NArray@i Index 1 add get /MinVal ED } { exit } ifelse } for m 1 sub -1 0 { % Index on stack dup /Index ED - NArray exch get UpperQuartil sub abs IQL sub 0 gt { + NArray@i exch get UpperQuartil sub abs IQL sub 0 gt { % newpath \psk@dotsize \@nameuse{psds@\psk@dotstyle} - 0 NArray Index get \psk@postAction\space + 0 NArray@i Index get \psk@postAction\space Dot - NArray Index UpperQuartil LowerQuartil sub \pst@IQLfactor\space mul UpperQuartil add + NArray@i Index UpperQuartil LowerQuartil sub \pst@IQLfactor\space mul UpperQuartil add dup /MaxVal ED put % replace with 1.5 IQL - NArray Index 1 sub get /MaxVal ED + NArray@i Index 1 sub get /MaxVal ED }{ exit } ifelse } for % @@ -544,8 +547,8 @@ D\space##1% \@nameuse{beginplot@\psplotstyle}% \addto@pscode{ /D {} def - [ #1 ] /NArray ED - NArray aload length /m ED + [ #1 ] /NArray@i ED + NArray@i aload length /m ED /xUnit \pst@number\psxunit def /yUnit \pst@number\psyunit def }% @@ -1082,11 +1085,12 @@ D\space##1% \def\parametricplot@i#1#2{\@ifnextchar[{\parametricplot@x{#1}{#2}}{\parametricplot@x{#1}{#2}[]}} \def\parametricplot@x#1#2[#3]{\@ifnextchar[{\parametricplot@xi{#1}{#2}[#3]}{\parametricplot@xi{#1}{#2}[#3][]}} \def\parametricplot@xi#1#2[#3][#4]#5{% - \pst@killglue% + \pst@killglue \begingroup% - \use@par% + \use@par \@nameuse{beginplot@\psplotstyle}% \addto@pscode{% + 20 dict begin #3 %prefix PS code \psplot@init /t #1 def @@ -1126,7 +1130,7 @@ D\space##1% \@pstfalse \@nameuse{testqp@\psplotstyle}% \if@pst\parametricplot@ii{#4}\else\parametricplot@iii{#4}\fi - \endgroup% + \endgroup \ignorespaces} % \def\parametricplot@ii#1{% para is the post code @@ -1138,7 +1142,8 @@ D\space##1% /t 3 -1 roll def 2 copy gt { exch } if pop /t t 3 -1 roll add dup t1 gt {pop t1} if def xy \@nameuse{doqp@\psplotstyle} - t t1 eq { exit } if } loop}% + t t1 eq { exit } if } loop + }% \else\pst@killglue% \addto@pscode{% /ps@Exit false def @@ -1154,7 +1159,7 @@ D\space##1% } if }% \fi% - \addto@pscode{ #1 }% + \addto@pscode{ #1 end }% also end of userdict \@nameuse{endqp@\psplotstyle}} % \def\parametricplot@iii#1{% @@ -1170,7 +1175,8 @@ D\space##1% t t1 eq { exit } if } loop xy 2 copy \tx@UserCoor 2 array astore /FinalState ED - n 2 roll}% + n 2 roll + }% \else\pst@killglue% \addto@pscode{ mark @@ -1183,9 +1189,10 @@ D\space##1% } repeat /t t1 def xy - n 2 roll}% - \fi% - \addto@pscode{ #1 }% + n 2 roll + }% + \fi + \addto@pscode{ #1 end}% also end of userdict \@nameuse{endplot@\psplotstyle}} % % diff --git a/graphics/pstricks/contrib/pst-tools/Changes b/graphics/pstricks/contrib/pst-tools/Changes index f741afb493..00059b5c77 100644 --- a/graphics/pstricks/contrib/pst-tools/Changes +++ b/graphics/pstricks/contrib/pst-tools/Changes @@ -1,4 +1,5 @@ ..... pst-tools.tex +0.12 2021-09-23 - rename PSfont to printfont 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 diff --git a/graphics/pstricks/contrib/pst-tools/README b/graphics/pstricks/contrib/pst-tools/README index e9f6540214..de528531e3 100644 --- a/graphics/pstricks/contrib/pst-tools/README +++ b/graphics/pstricks/contrib/pst-tools/README @@ -20,5 +20,5 @@ with pdftex, use the sequence latex->dvips->ps2pdf. %% in directory macros/latex/base/lppl.txt. -%% $Id: README 245 2021-09-13 18:56:41Z herbert $ +%% $Id: README 246 2021-09-13 20:06:21Z herbert $ hvoss@tug.org
\ No newline at end of file diff --git a/graphics/pstricks/contrib/pst-tools/doc/pst-tools-doc.pdf b/graphics/pstricks/contrib/pst-tools/doc/pst-tools-doc.pdf Binary files differindex b37c59bca3..f968e5d446 100644 --- a/graphics/pstricks/contrib/pst-tools/doc/pst-tools-doc.pdf +++ b/graphics/pstricks/contrib/pst-tools/doc/pst-tools-doc.pdf diff --git a/graphics/pstricks/contrib/pst-tools/doc/pst-tools-doc.tex b/graphics/pstricks/contrib/pst-tools/doc/pst-tools-doc.tex index a4c1897f1a..4ebc52e1e6 100644 --- a/graphics/pstricks/contrib/pst-tools/doc/pst-tools-doc.tex +++ b/graphics/pstricks/contrib/pst-tools/doc/pst-tools-doc.tex @@ -1,6 +1,6 @@ \RequirePackage{pdfmanagement-testphase} \DeclareDocumentMetadata{} -%% $Id: pst-tools-doc.tex 245 2021-09-13 18:56:41Z herbert $ +%% $Id: pst-tools-doc.tex 256 2021-09-22 18:42:59Z herbert $ \documentclass[fontsize=11pt,english,BCOR=10mm,DIV=12,bibliography=totoc,parskip=false,headings=small, headinclude=false,footinclude=false,oneside]{pst-doc} \listfiles @@ -77,7 +77,8 @@ There are the following valid options for \Lcs{psPrintValue}: \begin{xltabular}{\linewidth}{@{}l|>{\ttfamily}l>{\ttfamily}lX@{}} \textrm{name} & \textrm{value} & \textrm{default}\\\hline \endhead -\Lkeyword{PSfont} & PS font name & Times & only valid \PS\ font names are possible, e.g. +\Lkeyword{printfont} & font name & Times & only the current font (\texttt{printfont={}}) +or 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. If you leave the argument empty, it will choose the currently active font.\\ @@ -103,11 +104,11 @@ may vary on different operating systems. If you leave the argument empty, it wil \makebox[5em]{$\sqrt x$}\makebox[7em]{$\sin x+\cos x$}\makebox[6em]{$\sin^2 x+\cos^2 x$}\\[3pt] \multido{\iA=0+10}{18}{% \makebox[1em]{\iA} - \makebox[5em]{\psPrintValue[PSfont=NimbusRomNo9L-Regu,xShift=-10]{\iA\space sin}} - \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[5em]{\psPrintValue[printfont=NimbusRomNo9L-Regu,xShift=-10]{\iA\space sin}} + \makebox[4em][r]{\psPrintValue[printfont={},fontscale=10,decimals=3,xShift=-20]{\iA\space cos}}\hspace{1em} + \makebox[5em]{\psPrintValue[valuewidth=15,linecolor=blue,printfont=NimbusSanL-Regu]{\iA\space sqrt}} + \makebox[7em]{\psPrintValue[comma,printfont=NimbusRomNo9L-ReguItal]{\iA\space dup sin exch cos add}} + \makebox[6em]{\psPrintValue[printfont=Palatino-Roman]{\iA\space dup sin dup mul exch cos dup mul add}}\\ } \end{center} @@ -120,11 +121,11 @@ may vary on different operating systems. If you leave the argument empty, it wil \makebox[5em]{$\sqrt x$}\makebox[7em]{$\sin x+\cos x$}\makebox[6em]{$\sin^2 x+\cos^2 x$}\\[3pt] \multido{\iA=0+10}{18}{ \makebox[1em]{\iA} - \makebox[5em]{\psPrintValue[PSfont=NimbusRomNo9L-Regu,xShift=-10]{\iA\space sin}} - \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[5em]{\psPrintValue[printfont=NimbusRomNo9L-Regu,xShift=-10]{\iA\space sin}} + \makebox[4em][r]{\psPrintValue[printfont={},fontscale=10,decimals=3,xShift=-20]{\iA\space cos}}\hspace{1em} + \makebox[5em]{\psPrintValue[valuewidth=15,linecolor=blue,printfont=NimbusSanL-Regu]{\iA\space sqrt}} + \makebox[7em]{\psPrintValue[comma,printfont=NimbusRomNo9L-ReguItal]{\iA\space dup sin exch cos add}} + \makebox[6em]{\psPrintValue[printfont=Palatino-Roman]{\iA\space dup sin dup mul exch cos dup mul add}}\\} \end{lstlisting} @@ -144,11 +145,11 @@ Pay attention, in algebraic notation angles must be in radian and not degrees. \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{\rA=0+0.1}{18}{\makebox[1em]{\rA} - \makebox[5em]{\psPrintValue[PSfont=NimbusSanL-Regu,xShift=-10]{\rA, sin(x)}} - \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}}\\} + \makebox[5em]{\psPrintValue[printfont=NimbusSanL-Regu,xShift=-10]{\rA, sin(x)}} + \makebox[4em][r]{\psPrintValue[printfont={},fontscale=10,decimals=3,xShift=-20]{\rA,cos(x)}}\hspace{1em} + \makebox[5em]{\psPrintValue[valuewidth=15,linecolor=blue,printfont=NimbusSanL-Regu]{\rA,sqrt(x)}} + \makebox[7em]{\psPrintValue[comma,printfont=NimbusRomNo9L-ReguItal]{\rA,sin(x)+cos(x)}} + \makebox[6em]{\psPrintValue[printfont=Palatino-Roman]{\rA,sin(x)^2+cos(x)^2}}\\} \end{center} \bigskip @@ -158,20 +159,20 @@ Pay attention, in algebraic notation angles must be in radian and not degrees. \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{\rA=0+0.1}{18}{\makebox[1em]{\rA} - \makebox[5em]{\psPrintValue[PSfont=NimbusSanL-Regu,xShift=-10]{\rA, sin(x)}} - \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}}\\} + \makebox[5em]{\psPrintValue[printfont=NimbusSanL-Regu,xShift=-10]{\rA, sin(x)}} + \makebox[4em][r]{\psPrintValue[printfont={},fontscale=10,decimals=3,xShift=-20]{\rA,cos(x)}}\hspace{1em} + \makebox[5em]{\psPrintValue[valuewidth=15,linecolor=blue,printfont=NimbusSanL-Regu]{\rA,sqrt(x)}} + \makebox[7em]{\psPrintValue[comma,printfont=NimbusRomNo9L-ReguItal]{\rA,sin(x)+cos(x)}} + \makebox[6em]{\psPrintValue[printfont=Palatino-Roman]{\rA,sin(x)^2+cos(x)^2}}\\} \end{lstlisting} \begin{center} foo \makebox[2em][l]{\psPrintValue[comma]{3.14 10 mul round 10 div}}bar\\[3pt] -foo \makebox[2em][l]{\psPrintValue[comma,PSfont=StandardSymL, +foo \makebox[2em][l]{\psPrintValue[comma,printfont=StandardSymL, postString=\string\260]{3.14 10 mul round 10 div}}bar\\[3pt] -foo \makebox[3.5em][l]{\psPrintValue[PSfont=StandardSymL,decimals=6, +foo \makebox[3.5em][l]{\psPrintValue[printfont=StandardSymL,decimals=6, postString=\string\260]{3.14 dup mul}}bar \end{center} @@ -179,9 +180,9 @@ foo \makebox[3.5em][l]{\psPrintValue[PSfont=StandardSymL,decimals=6, \begin{lstlisting} foo \makebox[2em][l]{\psPrintValue[comma]{3.14 10 mul round 10 div}}bar\\[3pt] -foo \makebox[2em][l]{\psPrintValue[comma,PSfont=StandardSymL, +foo \makebox[2em][l]{\psPrintValue[comma,printfont=StandardSymL, postString=\string\260]{3.14 10 mul round 10 div}}bar\\[3pt] -foo \makebox[3.5em][l]{\psPrintValue[PSfont=StandardSymL,decimals=6, +foo \makebox[3.5em][l]{\psPrintValue[printfont=StandardSymL,decimals=6, postString=\string\260]{3.14 dup mul}}bar \end{lstlisting} diff --git a/graphics/pstricks/contrib/pst-tools/dvips/pst-tools.pro b/graphics/pstricks/contrib/pst-tools/dvips/pst-tools.pro index bc059faafa..6215b9e35a 100644 --- a/graphics/pstricks/contrib/pst-tools/dvips/pst-tools.pro +++ b/graphics/pstricks/contrib/pst-tools/dvips/pst-tools.pro @@ -1,4 +1,4 @@ -% $Id: pst-tools.pro 842 2013-10-26 10:25:41Z herbert $ +% $Id: pst-tools.pro 249 2021-09-14 10:22:55Z herbert $ % %% PostScript tools prologue for pstricks.tex. %% Version 0.06, 2017/12/03 diff --git a/graphics/pstricks/contrib/pst-tools/tex/pst-tools.tex b/graphics/pstricks/contrib/pst-tools/tex/pst-tools.tex index 36b32ef8c0..8e9e08ec8b 100644 --- a/graphics/pstricks/contrib/pst-tools/tex/pst-tools.tex +++ b/graphics/pstricks/contrib/pst-tools/tex/pst-tools.tex @@ -1,4 +1,4 @@ -%% $Id: pst-tools.tex 245 2021-09-13 18:56:41Z herbert $ +%% $Id: pst-tools.tex 265 2021-09-24 18:47:41Z herbert $ %% %% This is file `pst-tools.tex', %% @@ -26,8 +26,8 @@ % interface to the `xkeyval' package \pst@addfams{pst-tools} % -\def\fileversion{0.11} -\def\filedate{2021/09/13} +\def\fileversion{0.12} +\def\filedate{2021/09/23} \message{`PST-tools' v\fileversion, \filedate\space (hv)} % \define@key[psset]{pst-tools}{decimalSeparator}[.]{\def\psk@decimalSeparator{#1}}% @@ -38,9 +38,9 @@ \define@key[psset]{pst-tools}{yShift}[0]{\def\psk@yShift{#1}} \define@key[psset]{pst-tools}{postString}[{}]{\def\psk@postString{#1}} \define@key[psset]{pst-tools}{VarName}[]{\def\psk@VarName{#1 }} -\define@key[psset]{pst-tools}{PSfont}[NimbusRomNo9L-Regu]{% +\define@key[psset]{pst-tools}{printfont}[NimbusRomNo9L-Regu]{% \ifPSTlualatex - \ifx\relax#1\relax + \expandafter\ifx\expandafter\relax#1\relax \def\psk@printfont{ \fontid\font\space .findfontid }% \else \def\psk@printfont{ /#1 findfont }% @@ -56,7 +56,7 @@ \define@key[psset]{pst-tools}{valuewidth}[10]{\pst@getint{#1}\psk@valuewidth } \define@key[psset]{pst-tools}{fontscale}[10]{\pst@checknum{#1}\psk@fontscale } \define@key[psset]{pst-tools}{decimals}[-1]{\pst@getint{#1}\psk@decimals } -\psset[pst-tools]{PSfont=Helvetica,fontscale=10,valuewidth=10,decimals=-1, +\psset[pst-tools]{printfont=Helvetica,fontscale=10,valuewidth=10,decimals=-1, xShift=0,yShift=0,trimSpaces=false,postString={},VarName={}, comma=false,decimalSeparator=.} % @@ -70,8 +70,7 @@ \def\psPrintValue@ii#1,#2,#3\@nil{% #1,#2 only for algebraic code \begin@SpecialObj \addto@pscode{ - gsave \psk@printfont - \psk@fontscale scalefont setfont + gsave \psk@printfont \psk@fontscale scalefont setfont \ifPst@algebraic /x #1 def /Func (#2) tx@AlgToPs begin AlgToPs end cvx def |