summaryrefslogtreecommitdiff
path: root/graphics/pstricks/contrib/pstricks-add/tex/pstricks-add.tex
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/pstricks/contrib/pstricks-add/tex/pstricks-add.tex')
-rw-r--r--graphics/pstricks/contrib/pstricks-add/tex/pstricks-add.tex20
1 files changed, 10 insertions, 10 deletions
diff --git a/graphics/pstricks/contrib/pstricks-add/tex/pstricks-add.tex b/graphics/pstricks/contrib/pstricks-add/tex/pstricks-add.tex
index 2fa480ae81..0f165e8c72 100644
--- a/graphics/pstricks/contrib/pstricks-add/tex/pstricks-add.tex
+++ b/graphics/pstricks/contrib/pstricks-add/tex/pstricks-add.tex
@@ -31,8 +31,8 @@
\ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi
\ifx\PSTmathLoaded\endinput\else \input pst-math \fi
%
-\def\fileversion{3.90}
-\def\filedate{2021/09/10}
+\def\fileversion{3.91}
+\def\filedate{2021/09/25}
\let\pstricksaddFV\fileversion
\message{`pstricks-add' v\fileversion, \filedate\space (dr,hv)}
%
@@ -2169,10 +2169,10 @@ a add
\addto@pscode{
(#1) run
/zMax 0 def /zMin 0 def % lowest and highest value
- contourdata aload length /N ED % get the no of arrays
- N{ % inside contourdata
+ contourdata aload length /N_data ED % get the no of arrays
+ N_data{ % inside contourdata
/data ED % save first inner array
- data aload length 3 div round cvi { % get the records
+ data aload length 3 div round cvi { % get the records
\psk@colorOffset
dup zMin lt % z<zMin?
{ /zMin ED } % yes, save it
@@ -2183,19 +2183,19 @@ a add
clear % clear stack
/dz zMax zMin sub def % value range
/steps \psk@colSteps\space 0 gt { true }{ false } ifelse def
- 0 1 N 1 sub { % for i=0 to N-1
+ 0 1 N_data 1 sub { % for i=0 to N-1
contourdata exch get /data ED % get first array
- data aload length 3 div round cvi {
+ data aload length 3 div round cvi 1 sub { %0 .. length-1
\psk@colorOffset
- /z ED /y ED /x ED
- z zMin sub dz div % relative z (0..1)
+ /z_data ED /y_data ED /x_data ED
+ z_data zMin sub dz div % relative z (0..1)
\ifPst@colored 400 mul 380 add tx@addDict begin wavelengthToRGB
Red Green Blue end setrgbcolor % set color
\else
steps {\psk@colSteps\space mul round \psk@colSteps\space div} if
setgray
\fi
- x \pst@number\psxunit mul y \pst@number\psyunit mul
+ x_data \pst@number\psxunit mul y_data \pst@number\psyunit mul
\pst@number\pst@dimb 0 360 arc fill
} repeat
} for