summaryrefslogtreecommitdiff
path: root/graphics/pstricks/contrib/pst-3dplot/tex/pst-3dplot.tex
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/pstricks/contrib/pst-3dplot/tex/pst-3dplot.tex')
-rw-r--r--graphics/pstricks/contrib/pst-3dplot/tex/pst-3dplot.tex42
1 files changed, 25 insertions, 17 deletions
diff --git a/graphics/pstricks/contrib/pst-3dplot/tex/pst-3dplot.tex b/graphics/pstricks/contrib/pst-3dplot/tex/pst-3dplot.tex
index 6186f8ae25..dbcb6883ad 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 21 2020-08-04 12:53:07Z herbert $
+%% $Id: pst-3dplot.tex 32 2020-10-25 19:18:25Z herbert $
%%
%% This is file `pst-3dplot.tex',
%%
@@ -27,8 +27,10 @@
\ifx\PSTMultidoLoaded\endinput\else \input multido.tex\fi
\ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi
%
-\def\fileversion{2.05}
-\def\filedate{2020/08/04}
+\def\fileversion{2.06}
+\let\IIIDplotfileversion\fileversion
+\def\filedate{2020/10/25}
+\let\IIIDplotfiledate\filedate
\message{`PST-3dplot' v\fileversion, \filedate\space (HV,DL)}
%
\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
@@ -642,7 +644,7 @@
%
% put anything at (#2,#3,#4)
%
-\def\pstThreeDPut{\@ifnextchar[{\pst@ThreeDPut}{\pst@ThreeDPut[]}}
+\def\pstThreeDPut{\def\pst@par{}\@ifnextchar[{\pst@ThreeDPut}{\pst@ThreeDPut[]}}
\def\pst@ThreeDPut[#1](#2,#3,#4)#5{{%
\pst@killglue%
\psset{#1}%
@@ -669,14 +671,15 @@
\def\pstThreeDLine{\NormalIIIDCoor\def\pst@par{}\pst@object{pst@lineIIID}}
\def\pst@lineIIID@i{%
- \pst@killglue%
+ \pst@killglue
\pst@getarrows{%
- \begin@OpenObj%
- \pst@getcoors[\pst@lineIIID@ii%
+ \begin@OpenObj
+ \pst@getcoors[\pst@lineIIID@ii
}%
}
\def\pst@lineIIID@ii{%
\addto@pscode{
+ \pst@3ddict
\IIIDplot@variables
% \psk@ThreeDplot@linejoin setlinejoin
/dxUnit \psk@ThreeDplot@xThreeDunit\space def
@@ -684,10 +687,11 @@
/dzUnit \psk@ThreeDplot@zThreeDunit\space def
\ifPst@SphericalCoor /SphericalCoor true def
\else /SphericalCoor false def
- \fi %
+ \fi
/xUnit { \pst@number\psxunit\space mul } def
/yUnit { \pst@number\psyunit\space mul } def
- \pst@3ddict convertStackTo2D end
+ convertStackTo2D
+ end
\pst@cp\space \psline@iii\space \tx@Line
}%
\end@OpenObj
@@ -699,11 +703,14 @@
%
\def\pstThreeDDot{\def\pst@par{}\pst@object{pstThreeDDot}}
\def\pstThreeDDot@i(#1,#2,#3){%
- \begin@SpecialObj
+ \begingroup
+ \use@keep@par
\pstThreeDNode(#1,#2,#3){pst@A} % we need the parameters
\ifx\psk@dotstyle\@none\else\psdots(pst@A)\fi
+ \endgroup
\ifPst@drawCoor
- \psset{style=showCoorStyle}
+ \addbefore@par{style=showCoorStyle}
+ \begin@SpecialObj
\addto@pscode{
\pst@3ddict
\IIIDplot@variables
@@ -747,8 +754,8 @@
\fi
end
}%
- \fi%
- \end@SpecialObj%
+ \end@SpecialObj
+ \fi
\ignorespaces}
%
% transform the 3d coordinates of the node (#1,#2,#3)
@@ -756,13 +763,13 @@
%
\def\pstThreeDNode{\def\pst@par{}\pst@object{pstThreeDNode}}
\def\pstThreeDNode@i(#1,#2,#3)#4{%
- \begin@SpecialObj%
-% \def\pst@tempThreeDNode{#1 #2 #3 }%
+ \begingroup
+ \use@par
+% \begin@SpecialObj%
\pnode(!
\pst@3ddict
\IIIDplot@variables
#1 #2 #3
-% \pst@tempThreeDNode
\ifPst@SphericalCoor
ConvertToCartesian
\else
@@ -771,7 +778,8 @@
\psk@ThreeDplot@xThreeDunit\space mul /x ED
\fi
ConvertTo2D x2D y2D end ){#4}%
- \end@SpecialObj%
+% \end@SpecialObj
+ \endgroup
\ignorespaces}
%
%\define@key[psset]{pst-3dplot}{nodeType}{\pst@getint{#1}\pst@IIIDNodeType}