texlive[60465] Master/texmf-dist: pstricks-add (10sep21)

commits+karl at tug.org commits+karl at tug.org
Fri Sep 10 23:02:23 CEST 2021


Revision: 60465
          http://tug.org/svn/texlive?view=revision&revision=60465
Author:   karl
Date:     2021-09-10 23:02:23 +0200 (Fri, 10 Sep 2021)
Log Message:
-----------
pstricks-add (10sep21)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/generic/pstricks-add/Changes
    trunk/Master/texmf-dist/doc/generic/pstricks-add/pstricks-add-doc.pdf
    trunk/Master/texmf-dist/doc/generic/pstricks-add/pstricks-add-doc.tex
    trunk/Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro
    trunk/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex
    trunk/Master/texmf-dist/tex/latex/pstricks-add/pstricks-add.sty

Removed Paths:
-------------
    trunk/Master/texmf-dist/doc/generic/pstricks-add/data/olympic.eps
    trunk/Master/texmf-dist/doc/generic/pstricks-add/data/olympic.pdf
    trunk/Master/texmf-dist/doc/generic/pstricks-add/data/olympic.tex

Modified: trunk/Master/texmf-dist/doc/generic/pstricks-add/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pstricks-add/Changes	2021-09-10 21:02:02 UTC (rev 60464)
+++ trunk/Master/texmf-dist/doc/generic/pstricks-add/Changes	2021-09-10 21:02:23 UTC (rev 60465)
@@ -32,6 +32,7 @@
 
 
 pstricks-add.sty ----------- (hv)
+ v. 0.17 2021-09-10  move \psRiemann into the tex file
  v. 0.16 2018-02-04  use \pscalculate from package pst-calculate
  v. 0.15 2018-02-03  added \psCalc from xpl3 (only for latex)
  v. 0.14 2010-02-11  move pst-fp message into pstricks.sty
@@ -41,6 +42,8 @@
 
 
 pstricks-add.tex ----------- (hv)
+ v 3.90  2021-09-10 - changes for using package with lualatex
+                    - fix \psOLympicRings
  v 3.89a 2020-02-12 - modified documentation for \psbrace
  v 3.89  2019-11-01 - added otion sngleline for \psbrace
  v 3.88  2019-05-11 - fix for a trailing space after \psrotatet

Deleted: trunk/Master/texmf-dist/doc/generic/pstricks-add/data/olympic.eps
===================================================================
(Binary files differ)

Deleted: trunk/Master/texmf-dist/doc/generic/pstricks-add/data/olympic.pdf
===================================================================
(Binary files differ)

Deleted: trunk/Master/texmf-dist/doc/generic/pstricks-add/data/olympic.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pstricks-add/data/olympic.tex	2021-09-10 21:02:02 UTC (rev 60464)
+++ trunk/Master/texmf-dist/doc/generic/pstricks-add/data/olympic.tex	2021-09-10 21:02:23 UTC (rev 60465)
@@ -1,10 +0,0 @@
-\documentclass[pstricks]{standalone}
-\usepackage{pstricks-add}
-\begin{document}
-\begin{pspicture}(-4.5,-3)(4.5,1.5)
-\psOlympicRings(0,0)
-\psOlympicRings[psscale=0.2](1.5,-1.5)
-\psOlympicRings[psscale=0.2](-1.5,-1.5)
-\psOlympicRings[psscale=0.2](0,0.5)
-\end{pspicture}
-\end{document}

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

Modified: trunk/Master/texmf-dist/doc/generic/pstricks-add/pstricks-add-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pstricks-add/pstricks-add-doc.tex	2021-09-10 21:02:02 UTC (rev 60464)
+++ trunk/Master/texmf-dist/doc/generic/pstricks-add/pstricks-add-doc.tex	2021-09-10 21:02:23 UTC (rev 60465)
@@ -1,4 +1,6 @@
 %% $Id: pstricks-add-doc.tex 1142 2020-02-12 19:07:50Z herbert $
+\RequirePackage{pdfmanagement-testphase}
+\DeclareDocumentMetadata{}
 %
 \documentclass[11pt,english,BCOR=10mm,DIV=12,bibliography=totoc,parskip=false,headings=small,
     headinclude=false,footinclude=false,oneside]{pst-doc}
@@ -12,7 +14,7 @@
 %}
 \makeatother
 
-\usepackage{siunitx}
+\usepackage{siunitx,iftex}
 \sisetup{add-decimal-zero,
 	round-mode=places,
 	round-precision=2,
@@ -19,8 +21,6 @@
 	output-decimal-marker={,},
 	detect-all}
 
-
-
 %\input{data/pstricks-add-doc.data}
 
 %\usepackage{pstricks-add}
@@ -40,7 +40,14 @@
 \lstset{explpreset={pos=l,width=-99pt,overhang=0pt,hsep=\columnsep,vsep=\bigskipamount,rframe={}},
     escapechar=§}
 
-\def\bgImage{\includegraphics{data/olympic}}
+\def\bgImage{%\includegraphics{data/olympic}
+  \begin{pspicture}(-4.5,-3)(4.5,1.5)
+  \psOlympicRings[bgcolor=lightgray](0,0)
+  \psOlympicRings[bgcolor=lightgray,psscale=0.2](1.5,-1.5)
+  \psOlympicRings[bgcolor=lightgray,psscale=0.2](-1.5,-1.5)
+  \psOlympicRings[bgcolor=lightgray,psscale=0.2](0,0.5)
+  \end{pspicture}%
+}
 
 \iffalse
 \psset{unit=1.5}
@@ -68,7 +75,7 @@
 \author{Dominique Rodriguez\\Michael Sharpe\\Herbert Voß}
 \date{\today}
 
-\maketitle
+\settitle
 
 \fullWidth=\linewidth
 \advance\fullWidth by \marginparsep
@@ -110,10 +117,11 @@
 Hubert G\"a\ss lein;
 J\"urgen Gilg;
 Denis Girou;
-Pablo Gonzáles;
+Pablo Gonzáles Luengo;
 Peter Hutnick;
 Christophe Jorssen;
 Uwe Kern;
+Marcel Krüger;
 Friedrich Lenk;
 Manuel Luque;
 Jens-Uwe Morawski;
@@ -2223,7 +2231,7 @@
 
 The parameter must be the letter $t$ instead of $x$ and when using
 the \Lkeyword{algebraic} option you must separate the two equations by
-a \Lnotation{|} (see example).
+a \nxLnotation{|} (see example).
 
 \begin{LTXexample}[pos=t,wide]
 \def\Lissa{t dup 2 RadtoDeg mul cos 3.5 mul exch 6 mul RadtoDeg sin 3.5 mul}%
@@ -2298,9 +2306,9 @@
   OrangeRed\or CarnationPink\or RoyalPurple\or Lavender\fi}
 \begin{pspicture}[showgrid=true](0,-1.2)(7,1.5)
   \psclip{\psframe[linestyle=none](0,-1.1)(7,1.1)}
-  \multido{\in=0+1}{16}{%
-     \psplot[linewidth=1pt,algebraic,linecolor=\getColor{\in}]{0}{7}
-      {Derive(\in,1-x^2/2+x^4/24-x^6/720+x^8/40320-x^10/3628800+x^12/479001600-x^14/87178291200)}}
+  \multido{\i=0+1}{16}{%
+     \psplot[linewidth=1pt,algebraic,linecolor=\getColor{\i}]{0}{7}
+      {Derive(\i,1-x^2/2+x^4/24-x^6/720+x^8/40320-x^10/3628800+x^12/479001600-x^14/87178291200)}}
   \endpsclip
 \end{pspicture}
 \end{LTXexample}
@@ -3969,29 +3977,31 @@
 image and \Lkeyword{colorType}=4 the same invers.
 
 The following examples use a 200$\times$200
-matrix data, which is saved as /dotmatrix [...] in the file \LFile{pstricks-add-doc.dat}.
+matrix data, which is saved as /dotmatrix [...] in the file \LFile{pstricks-add-doc.dat}. To speed up such images it should
+be printed with the optional argument \Lkeyword{PixelPlot}. Then each point is printed by a simple dot without using the PSTricks font dot.
+The dot can be scaled by \Lkeyword{dotsize}, e.g. \verb|dotsize=5pt|.
 
 \begin{LTXexample}[pos=t,preset=\centering]
 \begin{pspicture}(10,10)
-  \psMatrixPlot[colorType=1,xStep=0.05,yStep=0.05]{200}{200}{data/dotmatrix.data}
+  \psMatrixPlot[PixelPlot,colorType=1,xStep=0.05,yStep=0.05]{200}{200}{data/dotmatrix.data}
 \end{pspicture}
 \end{LTXexample}
 
 \begin{LTXexample}[pos=t,preset=\centering]
 \begin{pspicture}(10,10)
-  \psMatrixPlot[colorType=2,xStep=0.05,yStep=0.05]{200}{200}{data/dotmatrix.data}
+  \psMatrixPlot[PixelPlot,colorType=2,xStep=0.05,yStep=0.05]{200}{200}{data/dotmatrix.data}
 \end{pspicture}
 \end{LTXexample}
 
 \begin{LTXexample}[pos=t,preset=\centering]
 \begin{pspicture}(10,10)
-  \psMatrixPlot[colorType=3,xStep=0.05,yStep=0.05]{200}{200}{data/dotmatrix.data}
+  \psMatrixPlot[PixelPlot,colorType=3,xStep=0.05,yStep=0.05]{200}{200}{data/dotmatrix.data}
 \end{pspicture}
 \end{LTXexample}
 
 \begin{LTXexample}[pos=t,preset=\centering]
 \begin{pspicture}(10,10)
-  \psMatrixPlot[colorType=4,xStep=0.05,yStep=0.05]{200}{200}{data/dotmatrix.data}
+  \psMatrixPlot[PixelPlot,colorType=4,xStep=0.05,yStep=0.05]{200}{200}{data/dotmatrix.data}
 \end{pspicture}
 \end{LTXexample}
 \egroup
@@ -4215,7 +4225,7 @@
 always constructed so as to point ``upward'' (ie, to your left) as you traverse the curve 
 in the positive direction. The PostScript variable \texttt{unitratio} provides the ratio of 
 the unit on the y axis to that on x axis, and \texttt{unitratiosq} is its square. All of 
-these PostScript objects are stored in the main \texttt{pstricks} dictionary \Lps{tx at Dict} 
+these PostScript objects are stored in the main \texttt{pstricks} dictionary \nxLps{tx at Dict} 
 which should be automatically made available when using many \texttt{pstricks} macros. 
 If \texttt{gs} returns you an error message like
 \begin{verbatim}
@@ -4734,6 +4744,7 @@
 
 
 
+
 %--------------------------------------------------------------------------------------
 \section{Gouraud shading}
 %--------------------------------------------------------------------------------------
@@ -4786,9 +4797,6 @@
 \end{LTXexample}
 
 
-
-
-
 \section{\Lcs{psCallout}}
 
 \begin{BDef}

Modified: trunk/Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro
===================================================================
--- trunk/Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro	2021-09-10 21:02:02 UTC (rev 60464)
+++ trunk/Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro	2021-09-10 21:02:23 UTC (rev 60465)
@@ -1,4 +1,4 @@
-%% $Id: pstricks-add.pro 37 2014-07-22 13:52:12Z herbert $
+%% $Id: pstricks-add.pro 216 2021-09-10 12:28:13Z herbert $
 %%
 % PostScript prologue for pstricks-add.tex.
 %
@@ -80,6 +80,7 @@
 %% www.efg2.com/lab
 %
 /Gamma 0.8 def
+
 /calculateRGB {
   lambda 379 le {/Red 0 def /Green 0 def /Blue 0 def} if
   lambda 781 ge {/Red 0 def /Green 0 def /Blue 0 def} if

Modified: trunk/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex	2021-09-10 21:02:02 UTC (rev 60464)
+++ trunk/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex	2021-09-10 21:02:23 UTC (rev 60465)
@@ -31,8 +31,8 @@
 \ifx\PSTXKeyLoaded\endinput\else  \input pst-xkey \fi
 \ifx\PSTmathLoaded\endinput\else  \input pst-math \fi
 %
-\def\fileversion{3.89a}
-\def\filedate{2020/02/12}
+\def\fileversion{3.90}
+\def\filedate{2021/09/10}
 \let\pstricksaddFV\fileversion
 \message{`pstricks-add' v\fileversion, \filedate\space (dr,hv)}
 %
@@ -750,6 +750,28 @@
     } ifelse ){#5}%
 }
 %
+\def\psRiemannSum(#1,#2)#3#4{%    (x0,x1) n f(#1)
+  \def\psFunction@##1{#4}%
+  \edef\ps@@dx{\pscalculate{(#2-#1)/#3}}%
+  \edef\ps@@dxHalf{\pscalculate{\ps@@dx/2}}%
+%  \typeout{dx=\ps at dx}%
+  \def\psRightSumValue{0}%
+  \def\psLeftSumValue{0}%
+  \def\psMiddleSumValue{0}%
+  \def\psDiffSumValue{0}%
+  \Multido{\rA=#1+\ps@@dx,\rB=\ps@@dx+\ps@@dx,\rC=\ps@@dxHalf+\ps@@dx}{#3}{%
+  	\def\ps at rightY{\pscalculate{\psFunction@{\rB}}}%
+  	\def\ps at leftY{\pscalculate{\psFunction@{\rA}}}%
+  	\def\ps at middleY{\pscalculate{\psFunction@{\rC}}}%
+%  	\typeout{\ps at leftY, \ps at rightY }%
+  	\edef\psLeftSumValue{\pscalculate{\psLeftSumValue+\ps@@dx*\ps at leftY}}%
+  	\edef\psRightSumValue{\pscalculate{\psRightSumValue+\ps@@dx*\ps at rightY}}%
+  	\edef\psMiddleSumValue{\pscalculate{\psMiddleSumValue+\ps@@dx*\ps at middleY}}%
+  	\edef\psDiffSumValue{\pscalculate{\psDiffSumValue+abs(\ps@@dx*(\ps at rightY-\ps at leftY))}}%
+%  	\typeout{\psLeftSumValue , \psRightSumValue }%
+  }% end \Multido
+}
+
 %\define at key[psset]{pstricks-add}{method}{\def\psk at method{#1}}%     	   defined in pst-plot
 \define at key[psset]{pstricks-add}{whichabs}{\def\psk at whichabs{#1}}%
 \define at key[psset]{pstricks-add}{whichord}{\def\psk at whichord{#1}}%
@@ -1361,7 +1383,6 @@
 %
 \def\psGTriangle{\def\pst at par{}\pst at object{psGTriangle}}
 \def\psGTriangle at i(#1)(#2)(#3)#4#5#6{{%
-  \def\solid at star{}%
   \begin at ClosedObj
   \pst at getcoor{#1}\pst at tempA	%   A: "rgb xr xg xb" or "gray xg"
   \pst at getcoor{#2}\pst at tempB	%   B
@@ -1374,11 +1395,14 @@
     \pst at tempB		    % B
     \psk at gangle             %   rotating angle
     \pst at tempA 		    % A, temporary origin
-    /rgb {} def
-    /gray {} def
-    [ \pst at colorC ] aload length 1 eq { dup dup } if 3 array astore % gray -> rgb
-    [ \pst at colorB ] aload length 1 eq { dup dup } if 3 array astore
-    [ \pst at colorA ] aload length 1 eq { dup dup } if 3 array astore
+%    /rgb {} def
+%    /gray {} def
+%    /rg /setrgbcolor load def
+%    /RG /setrgbcolor load def
+% we use RGB
+    [ \psgetRGBColorValues{\pst at colorC} ] aload length 1 eq { dup dup } if 3 array astore % gray -> rgb
+    [ \psgetRGBColorValues{\pst at colorB} ] aload length 1 eq { dup dup } if 3 array astore
+    [ \psgetRGBColorValues{\pst at colorA} ] aload length 1 eq { dup dup } if 3 array astore
     tx at addDict begin GTriangle end % PS part
   }%
   \if at star\pspolygon[fillstyle=none](#1)(#2)(#3)\fi%	draw borderline
@@ -1417,9 +1441,10 @@
 \define at key[psset]{pstricks-add}{Yoffset}[0pt]{\pst at getlength{#1}\psk at Yoffset}
 \define at key[psset]{pstricks-add}{XYoffset}[0pt]{\pst at getlength{#1}\psk at Xoffset\let\psk at Yoffset\psk at Xoffset}
 \psset[pstricks-add]{XYoffset=0pt}
+\define at boolkey[psset]{pstricks-add}[Pst@]{PixelPlot}[true]{} % \ifPst at saveData
 \define at key[psset]{pstricks-add}{colorType}[0]{\def\psk at colorType{#1}}
 \define at key[psset]{pstricks-add}{colorTypeDef}[{}]{\def\psk at colorTypeDef{#1\space}}
-\psset[pstricks-add]{colorType=0,colorTypeDef={}} % 0-> two color mode 1->wavelength mode (400..700nm)
+\psset[pstricks-add]{PixelPlot=false,colorType=0,colorTypeDef={}} % 0-> two color mode 1->wavelength mode (400..700nm)
 % 0-> two color mode 
 % 1-> wavelength mode (400..700nm)
 % 2-> wavelength mode inverse
@@ -1426,6 +1451,8 @@
 % 3-> gray color mode
 % 4-> gray color mode invers
 % 5-> own color definition
+%
+
 \def\psMatrixPlot{\def\pst at par{}\pst at object{psMatrixPlot}}
 \def\psMatrixPlot at i#1#2#3{%
   \pst at killglue%
@@ -1432,13 +1459,14 @@
   \addbefore at par{xStep=1,yStep=1}%
   \begin at SpecialObj%
   \addto at pscode{
+    20 dict begin
     (#3) run   		% load the data file
     /Min 0 def /Max 0 def
     dotmatrix { dup Min lt { /Min ED } { dup Max gt { /Max ED } { pop } ifelse } ifelse } forall
     /dMaxMin Max Min sub def
-    \psk at dotsize
+    \psk at dotsize % defines /DS ... def
     \psk at Xoffset\space \psk at Yoffset\space translate
-    \@nameuse{psds@\psk at dotstyle} % 
+    \ifPst at PixelPlot\else\@nameuse{psds@\psk at dotstyle}\fi
     /n 0 def   		% index for element
     1 1 #1 {		% the y loop (outer one)
       /y exch def	% save y
@@ -1463,7 +1491,8 @@
           currentdict /colorTypeDef known { colorTypeDef } { \psk at colorTypeDef } ifelse
         \fi
 	  x \psk at xStep\space mul \pst at number\psxunit mul 
-	  \ifPst at ChangeOrder #1 y sub 1 add \else y \fi \psk at yStep\space mul \pst at number\psyunit mul Dot%
+	  \ifPst at ChangeOrder #1 y sub 1 add \else y \fi \psk at yStep\space mul \pst at number\psyunit mul 
+	  \ifPst at PixelPlot 1 DS mul 0 360 arc fill \else Dot \fi
         \ifcase\psk at colorType
  	  } { pop } ifelse
  	\fi
@@ -1470,6 +1499,7 @@
 	/n n 1 add def
       } for 
     } for
+    end
   }%
   \end at SpecialObj%
   \ignorespaces%
@@ -2185,34 +2215,32 @@
 \def\ps at lympicRing(#1)#2{%
   \rput(#1){%
 	\pscircle[linewidth=0.25,linecolor=#2](0,0){1.375}%
-	\pscircle[linewidth=0.05,linecolor=white](0,0){1.425}%
-	\pscircle[linewidth=0.05,linecolor=white](0,0){1.125}}}
+	\pscircle[linewidth=0.05,linecolor=\pst at bgcolor](0,0){1.525}%
+	\pscircle[linewidth=0.05,linecolor=\pst at bgcolor](0,0){1.225}}}
 \def\ps at lympicArc(#1)#2#3#4{%
   \rput(#1){%
-	\psarc[linewidth=0.25,linecolor=#2](0,0){1.25}{#3}{#4}%
-	\psarc[linewidth=0.05,linecolor=white](0,0){1.4}{#3}{#4}%
-	\psarc[linewidth=0.05,linecolor=white](0,0){1.1}{#3}{#4}}}
+	\psarc[linewidth=0.25,linecolor=#2](0,0){1.375}{#3}{#4}%
+	\psarc[linewidth=0.05,linecolor=\pst at bgcolor](0,0){1.525}{#3}{#4}%
+	\psarc[linewidth=0.05,linecolor=\pst at bgcolor](0,0){1.225}{#3}{#4}}}
 \def\psOlympicRings{\pst at object{psOlympicRings}}
 \def\psOlympicRings at i(#1){%
   \pst at killglue
   \begingroup
-  \addbefore at par{psscale=1}%  
-%  \begin at SpecialObj
+  \addbefore at par{bgcolor=white,dimen=inner,psscale=1}%  
   \use at par
   \rput(#1){%
     \psscalebox{\psk@@psscale}{%
-      %\begin{pspicture}(-4.5,-3)(4.5,1.5)
-      \ps at lympicRing(-3,0){OlympicBlue}%
-      \ps at lympicRing(-1.5,-1.375){OlympicYellow}%
-      \ps at lympicArc(-3,0){OlympicBlue}{330}{30}%
+      \ps at lympicRing(-3.2,0){OlympicBlue}%
+      \ps at lympicRing(-1.6,-1.375){OlympicYellow}%
+      \ps at lympicArc(-3.2,0){OlympicBlue}{330}{30}%
       \ps at lympicRing(0,0){black}%
-      \ps at lympicArc(-1.5,-1.375){OlympicYellow}{30}{90}%
-      \ps at lympicRing(1.5,-1.375){OlympicGreen}%
+      \ps at lympicArc(-1.6,-1.375){OlympicYellow}{30}{90}%
+      \ps at lympicRing(1.6,-1.375){OlympicGreen}%
       \ps at lympicArc(0,0){black}{330}{30}%
-      \ps at lympicRing(3,0){OlympicRed}%
-      \ps at lympicArc(1.5,-1.375){OlympicGreen}{30}{90}}}%
-    %\end{pspicture}
-%  \end at SpecialObj
+      \ps at lympicRing(3.2,0){OlympicRed}%
+      \ps at lympicArc(1.6,-1.375){OlympicGreen}{30}{90}
+    }%
+  }%
   \endgroup
 }
 

Modified: trunk/Master/texmf-dist/tex/latex/pstricks-add/pstricks-add.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/pstricks-add/pstricks-add.sty	2021-09-10 21:02:02 UTC (rev 60464)
+++ trunk/Master/texmf-dist/tex/latex/pstricks-add/pstricks-add.sty	2021-09-10 21:02:23 UTC (rev 60465)
@@ -1,4 +1,4 @@
-%% $Id: pstricks-add.sty 726 2018-02-05 13:52:25Z herbert $
+%% $Id: pstricks-add.sty 220 2021-09-10 15:30:30Z herbert $
 %
 \RequirePackage{pstricks}
 \RequirePackage{pst-plot}
@@ -7,7 +7,7 @@
 \RequirePackage{pst-math}
 \RequirePackage{multido}
 
-\ProvidesPackage{pstricks-add}[2018/02/04 v. 0.16 package wrapper for 
+\ProvidesPackage{pstricks-add}[2021/09/10 v. 0.17 package wrapper for 
   pstricks-add.tex (hv)]
 \input{pstricks-add.tex}
 \ProvidesFile{pstricks-add.tex}
@@ -19,27 +19,4 @@
 
 \RequirePackage{pst-calculate}
 
-\def\psRiemannSum(#1,#2)#3#4{%    (x0,x1) n f(#1)
-  \def\psFunction@##1{#4}%
-  \edef\ps@@dx{\pscalculate{(#2-#1)/#3}}%
-  \edef\ps@@dxHalf{\pscalculate{\ps@@dx/2}}%
-%  \typeout{dx=\ps at dx}%
-  \def\psRightSumValue{0}%
-  \def\psLeftSumValue{0}%
-  \def\psMiddleSumValue{0}%
-  \def\psDiffSumValue{0}%
-  \Multido{\rA=#1+\ps@@dx,\rB=\ps@@dx+\ps@@dx,\rC=\ps@@dxHalf+\ps@@dx}{#3}{%
-  	\def\ps at rightY{\pscalculate{\psFunction@{\rB}}}%
-  	\def\ps at leftY{\pscalculate{\psFunction@{\rA}}}%
-  	\def\ps at middleY{\pscalculate{\psFunction@{\rC}}}%
-%  	\typeout{\ps at leftY, \ps at rightY }%
-  	\edef\psLeftSumValue{\pscalculate{\psLeftSumValue+\ps@@dx*\ps at leftY}}%
-  	\edef\psRightSumValue{\pscalculate{\psRightSumValue+\ps@@dx*\ps at rightY}}%
-  	\edef\psMiddleSumValue{\pscalculate{\psMiddleSumValue+\ps@@dx*\ps at middleY}}%
-  	\edef\psDiffSumValue{\pscalculate{\psDiffSumValue+abs(\ps@@dx*(\ps at rightY-\ps at leftY))}}%
-%  	\typeout{\psLeftSumValue , \psRightSumValue }%
-  }% end \Multido
-}
-
-
 \endinput



More information about the tex-live-commits mailing list.