diff options
Diffstat (limited to 'graphics/pstricks/contrib/pstricks-add/tex/pstricks-add.tex')
-rw-r--r-- | graphics/pstricks/contrib/pstricks-add/tex/pstricks-add.tex | 20 |
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 |