summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-3dplot
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-11-20 17:03:02 +0000
committerKarl Berry <karl@freefriends.org>2008-11-20 17:03:02 +0000
commit1ec2e75f7cd8e7526e809429e1d7c57add26ca8f (patch)
treef1a3b3a39348fbb517a228012e17494ee9c6535a /Master/texmf-dist/tex/generic/pst-3dplot
parent8c86a1e7745880e73684de781f2bddf6a2b9b7af (diff)
pst-3dplot update (19nov08)
git-svn-id: svn://tug.org/texlive/trunk@11380 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-3dplot')
-rw-r--r--Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex161
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%
}