pst-3dplot update (19nov08)

git-svn-id: svn://tug.org/texlive/trunk@11380 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 79 insertions, 82 deletions

diff --git a/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex b/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex
index f5616fdd09c..aa4e64502ca 100644
--- a/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex
+++ b/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex
@@ -25,8 +25,8 @@
 \ifx\PSTricksAddLoaded\endinput\else\input pstricks-add.tex\fi% loads node and plot
 \ifx\PSTMultidoLoaded\endinput\else\input multido.tex\fi
 %
-\def\fileversion{1.82}
-\def\filedate{2008/11/12}
+\def\fileversion{1.83}
+\def\filedate{2008/11/18}
 \message{`PST-3dplot' v\fileversion, \filedate\space (HV,DL)}
 %
 \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
@@ -203,14 +203,10 @@
 %
 \def\psds@none{\pst@gdot{}}% define none for the dotstyle
 %
-\newpsstyle{showCoorStyle}{
-    linestyle=dashed,
-    linecolor=black,
-    linewidth=0.5pt
-    }
+\newpsstyle{showCoorStyle}{linestyle=dashed,linecolor=black,linewidth=0.5pt}
 \newpsstyle{hiddenStyle}{fillstyle=solid,fillcolor=white}
-\newcount\pst@cntx\newcount\pst@cnty\newcount\pst@cntz
-\newdimen\pst@dimx\newdimen\pst@dimy\newdimen\pst@dimz
+\newcount\pst@cntx \newcount\pst@cnty \newcount\pst@cntz
+\newdimen\pst@dimx \newdimen\pst@dimy \newdimen\pst@dimz
 %
 \define@key[psset]{pst-3dplot}{planeGrid}{\def\psk@planeGrid{#1}}
 \define@key[psset]{pst-3dplot}{planeGridOffset}{\def\psk@planeGridOffset{#1}}
@@ -370,86 +366,87 @@
     \uput[\psk@ThreeDplot@spotX](xMax){\psk@ThreeDplot@nameX}%
     \uput[\psk@ThreeDplot@spotY](yMax){\psk@ThreeDplot@nameY}%
     \uput[\psk@ThreeDplot@spotZ](zMax){\psk@ThreeDplot@nameZ}%
-  \ifPst@IIIDticks%
-%    \ifnum\psk@ThreeDplot@Alpha=90\else
-    \pst@dimx=\psk@ThreeDplot@xMax\p@%
-    \pst@dima=\psk@ThreeDplot@xThreeDunit\p@%
-    \pst@dima=\psk@ThreeDplot@deltax\pst@dima%
-%    \pst@dima=\pst@dima
-    \divide\pst@dimx by \pst@dima% 
-    \pst@cntx=\number\pst@dimx\advance\pst@cntx by -1%
-    \multido{%
-%      \rA=\psk@ThreeDplot@Deltax+\psk@ThreeDplot@Deltax,% the label increment
-      \rA=\psk@Dx+\psk@Dx,%
-      \rB=\psk@ThreeDplot@deltax+\psk@ThreeDplot@deltax}{\pst@cntx}{% the coor increment
-%      \rB=\psk@ThreeDplot@xThreeDunit+\psk@ThreeDplot@xThreeDunit}{\pst@cntx}{%
-      \pstThreeDLine[arrows=-](\rB,-\psk@IIIDticksize,0)(\rB,\psk@IIIDticksize,0)%
-      \pstPlanePut[plane=\psk@IIIDxTicksPlane]%
-         (\rB,\psk@IIIDxticksep,0){\psxyzlabel{\rA}}%
-    }%
-      \pst@dimx=\psk@ThreeDplot@xMin\p@%
-      \pst@dima=\psk@ThreeDplot@xThreeDunit\p@%
-      \divide\pst@dimx by \pst@dima%
-      \ifdim\psk@ThreeDplot@xMin pt<\p@ \pst@cntx=-\number\pst@dimx%
-      \else\pst@cntx=\number\pst@dimx\fi%
-      \multido{\rA=-\psk@Dx+-\psk@Dx,%
-         \rB=-\psk@ThreeDplot@xThreeDunit+-\psk@ThreeDplot@xThreeDunit}{\pst@cntx}{%
+    \ifPst@IIIDticks%
+%------------ x ticks and labels --------------------------
+      \pst@dimx=\psk@ThreeDplot@xMax\p@
+      \pst@dima=\psk@ThreeDplot@xThreeDunit\p@
+      \pst@dima=\psk@ThreeDplot@deltax\pst@dima
+      \divide\pst@dimx by \pst@dima 
+      \pst@cntx=\number\pst@dimx\advance\pst@cntx by -1%
+      \multido{\rA=\psk@Dx+\psk@Dx,
+               \rB=\psk@ThreeDplot@deltax+\psk@ThreeDplot@deltax}
+              {\pst@cntx}{% the coor increment
         \pstThreeDLine[arrows=-](\rB,-\psk@IIIDticksize,0)(\rB,\psk@IIIDticksize,0)%
         \ifPst@IIIDlabels%
           \pstPlanePut[plane=\psk@IIIDxTicksPlane](\rB,\psk@IIIDxticksep,0){\psxyzlabel{\rA}}%
         \fi%
-      }%
-%    \ifnum\psk@ThreeDplot@Alpha=0\else
-    \pst@dimy=\psk@ThreeDplot@yMax\p@%
-    \pst@dima=\psk@ThreeDplot@yThreeDunit\p@%
-    \pst@dima=\psk@ThreeDplot@deltay\pst@dima%
-    \divide\pst@dimy by \pst@dima%
-    \pst@cnty=\number\pst@dimy\advance\pst@cnty by -1%
-    \mmultido{\rA=0.0+\psk@Dy,\rB=0.0+\psk@ThreeDplot@yThreeDunit}{\pst@cnty}{%
-      \pstThreeDLine[arrows=-](-\psk@IIIDticksize,\rB,0)(\psk@IIIDticksize,\rB,0)%
-      \ifPst@IIIDlabels%
-        \pstPlanePut[plane=\psk@IIIDyTicksPlane](\psk@IIIDyticksep,\rB,0){\psxyzlabel{\rA}}%
+      }% end of multido
+      \pst@dimx=\psk@ThreeDplot@xMin\p@
+      \pst@dima=\psk@ThreeDplot@xThreeDunit\p@
+      \divide\pst@dimx by \pst@dima
+      \ifdim\psk@ThreeDplot@xMin pt<\p@ \pst@cntx=-\number\pst@dimx 
+      \else\pst@cntx=\number\pst@dimx
       \fi%
-    }%
-    \pst@dimy=\psk@ThreeDplot@yMin\p@%
-    \pst@dima=\psk@ThreeDplot@yThreeDunit\p@%
-    \divide\pst@dimy by \pst@dima%
-    \ifdim\psk@ThreeDplot@yMin pt<\p@ \pst@cnty=-\number\pst@dimy%
-    \else\pst@cnty=\number\pst@dimy%
-    \fi%
-    \multido{\rA=-\psk@Dy+-\psk@Dy,%
-        \rB=-\psk@ThreeDplot@yThreeDunit+-\psk@ThreeDplot@yThreeDunit}{\pst@cnty}{%
-      \pstThreeDLine[arrows=-](-\psk@IIIDticksize,\rB,0)(\psk@IIIDticksize,\rB,0)%
-      \ifPst@IIIDlabels%
-        \pstPlanePut[plane=\psk@IIIDyTicksPlane](\psk@IIIDyticksep,\rB,0){\psxyzlabel{\rA}}%
-      \fi
-    }%
-%    \fi%
-    \pst@dimz=\psk@ThreeDplot@zMax\p@%
-    \pst@dima=\psk@ThreeDplot@zThreeDunit\p@%
-    \divide\pst@dimz by \pst@dima%
-    \pst@cntz=\number\pst@dimz\advance\pst@cntz by -1%
-    \mmultido{\rA=0.0+\psk@Dz,\rB=0.0+\psk@ThreeDplot@zThreeDunit}{\pst@cntz}{%
-      \pstThreeDLine[arrows=-](0,-\psk@IIIDticksize,\rB)(0,\psk@IIIDticksize,\rB)%
-      \ifPst@IIIDlabels%
-        \pstPlanePut[plane=\psk@IIIDzTicksPlane](0,\psk@IIIDzticksep,\rB){\psxyzlabel{\rA}}%
+      \multido{\rA=-\psk@Dx+-\psk@Dx,
+               \rB=-\psk@ThreeDplot@xThreeDunit+-\psk@ThreeDplot@xThreeDunit}
+              {\pst@cntx}{%
+        \pstThreeDLine[arrows=-](\rB,-\psk@IIIDticksize,0)(\rB,\psk@IIIDticksize,0)%
+        \ifPst@IIIDlabels%
+          \pstPlanePut[plane=\psk@IIIDxTicksPlane](\rB,\psk@IIIDxticksep,0){\psxyzlabel{\rA}}%
+        \fi%
+      }% end of multido and the x ticks and labels
+%------------ y ticks and labels --------------------------
+      \pst@dimy=\psk@ThreeDplot@yMax\p@
+      \pst@dima=\psk@ThreeDplot@yThreeDunit\p@
+      \pst@dima=\psk@ThreeDplot@deltay\pst@dima
+      \divide\pst@dimy by \pst@dima
+      \pst@cnty=\number\pst@dimy\advance\pst@cnty by -1
+      \multido{\rA=\psk@Dy+\psk@Dy,\rB=\psk@ThreeDplot@deltay+\psk@ThreeDplot@deltay}{\pst@cnty}{%  0.0+\psk@ThreeDplot@yThreeDunit}{\pst@cnty}{%
+        \pstThreeDLine[arrows=-](-\psk@IIIDticksize,\rB,0)(\psk@IIIDticksize,\rB,0)%
+        \ifPst@IIIDlabels%
+          \pstPlanePut[plane=\psk@IIIDyTicksPlane](\psk@IIIDyticksep,\rB,0){\psxyzlabel{\rA}}%
+        \fi%
+      }% end of multido
+      \pst@dimy=\psk@ThreeDplot@yMin\p@%
+      \pst@dima=\psk@ThreeDplot@yThreeDunit\p@%
+      \divide\pst@dimy by \pst@dima%
+      \ifdim\psk@ThreeDplot@yMin pt<\p@ \pst@cnty=-\number\pst@dimy%
+      \else\pst@cnty=\number\pst@dimy 
       \fi%
-    }%
-    \pst@dimz=\psk@ThreeDplot@zMin\p@%
-    \pst@dima=\psk@ThreeDplot@zThreeDunit\p@%
-    \pst@dima=\psk@ThreeDplot@deltaz\pst@dima%
-    \divide\pst@dimz by \pst@dima%
-    \ifdim\psk@ThreeDplot@zMin pt<\p@ \pst@cntz=-\number\pst@dimz%
-    \else\pst@cntz=\number\pst@dimz%
-    \fi%
-    \multido{\rA=-\psk@Dz+-\psk@Dz,%
-       \rB=-\psk@ThreeDplot@zThreeDunit+-\psk@ThreeDplot@zThreeDunit}{\pst@cntz}{%
-      \pstThreeDLine[arrows=-](0,-\psk@IIIDticksize,\rB)(0,\psk@IIIDticksize,\rB)%
-      \ifPst@IIIDlabels%
-        \pstPlanePut[plane=\psk@IIIDzTicksPlane](0,\psk@IIIDzticksep,\rB){\psxyzlabel{\rA}}%
+      \multido{\rA=-\psk@Dy+-\psk@Dy,%
+        \rB=-\psk@ThreeDplot@yThreeDunit+-\psk@ThreeDplot@yThreeDunit}{\pst@cnty}{%
+        \pstThreeDLine[arrows=-](-\psk@IIIDticksize,\rB,0)(\psk@IIIDticksize,\rB,0)%
+        \ifPst@IIIDlabels%
+          \pstPlanePut[plane=\psk@IIIDyTicksPlane](\psk@IIIDyticksep,\rB,0){\psxyzlabel{\rA}}%
+        \fi
+      }% end of multido and y ticks and labels
+%------------ z ticks and labels --------------------------
+      \pst@dimz=\psk@ThreeDplot@zMax\p@%
+      \pst@dima=\psk@ThreeDplot@zThreeDunit\p@%
+      \divide\pst@dimz by \pst@dima%
+      \pst@cntz=\number\pst@dimz\advance\pst@cntz by -1%
+      \multido{\rA=0.0+\psk@Dz,\rB=0.0+\psk@ThreeDplot@zThreeDunit}{\pst@cntz}{%
+        \pstThreeDLine[arrows=-](0,-\psk@IIIDticksize,\rB)(0,\psk@IIIDticksize,\rB)%
+        \ifPst@IIIDlabels%
+          \pstPlanePut[plane=\psk@IIIDzTicksPlane](0,\psk@IIIDzticksep,\rB){\psxyzlabel{\rA}}%
+        \fi%
+      }%
+      \pst@dimz=\psk@ThreeDplot@zMin\p@%
+      \pst@dima=\psk@ThreeDplot@zThreeDunit\p@%
+      \pst@dima=\psk@ThreeDplot@deltaz\pst@dima%
+      \divide\pst@dimz by \pst@dima%
+      \ifdim\psk@ThreeDplot@zMin pt<\p@ \pst@cntz=-\number\pst@dimz
+      \else\pst@cntz=\number\pst@dimz
       \fi%
-    }%
-  \fi\fi%
+      \multido{\rA=-\psk@Dz+-\psk@Dz,%
+        \rB=-\psk@ThreeDplot@zThreeDunit+-\psk@ThreeDplot@zThreeDunit}{\pst@cntz}{%
+        \pstThreeDLine[arrows=-](0,-\psk@IIIDticksize,\rB)(0,\psk@IIIDticksize,\rB)%
+        \ifPst@IIIDlabels%
+          \pstPlanePut[plane=\psk@IIIDzTicksPlane](0,\psk@IIIDzticksep,\rB){\psxyzlabel{\rA}}%
+        \fi%
+      }%
+    \fi
+  \fi%
   \endgroup%
   \ignorespaces%
 }