pst-3dplot (2nov23)

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

1 files changed, 35 insertions, 23 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 2593ab594f9..72dcb1da95a 100644
--- a/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex
+++ b/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-3dplot.tex 758 2023-09-08 13:33:46Z herbert $
+%% $Id: pst-3dplot.tex 796 2023-11-01 19:00:59Z herbert $
 %%
 %% This is file `pst-3dplot.tex',
 %%
@@ -27,9 +27,9 @@
 \ifx\PSTMultidoLoaded\endinput\else \input multido.tex\fi
 \ifx\PSTXKeyLoaded\endinput\else    \input pst-xkey \fi
 %
-\def\fileversion{2.08}
+\def\fileversion{2.09}
 \let\IIIDplotfileversion\fileversion
-\def\filedate{2023/09/08}
+\def\filedate{2023/11/01}
 \let\IIIDplotfiledate\filedate
 \message{`PST-3dplot' v\fileversion, \filedate\space (HV,DL)}
 %
@@ -2390,7 +2390,7 @@
 \let\pstDiv\pst@divide
 %
 \chardef\nin@ty=90% stolen from the trig.sty package by David Carlisle
-\chardef\@clxx=180
+\chardef\@clxxx=180
 \chardef\@lxxi=71
 \mathchardef\@mmmmlxviii=4068
 \chardef\@coeffz=72
@@ -2403,18 +2403,18 @@
  \dimen@\@tempb\dimen@
  \advance\dimen@ #1\p@}
 \def\TG@series{%
-  \dimen@\@lxxi\dimen@
-  \divide \dimen@ \@mmmmlxviii
-  \edef\@tempa{\TG@rem@pt\dimen@}%
-  \dimen@\@tempa\dimen@
-  \edef\@tempb{\TG@rem@pt\dimen@}%
-  \divide\dimen@\@coeffz
-  \advance\dimen@\m@ne\p@
-  \TG@term\@coefb
-  \TG@term{-\@coefc}%
-  \TG@term\@coefd
-  \dimen@\@tempa\dimen@
-  \divide\dimen@ \@coefd}
+ \dimen@\@lxxi\dimen@
+ \divide \dimen@ \@mmmmlxviii
+ \edef\@tempa{\TG@rem@pt\dimen@}%
+ \dimen@\@tempa\dimen@
+ \edef\@tempb{\TG@rem@pt\dimen@}%
+ \divide\dimen@\@coeffz
+ \advance\dimen@\m@ne\p@
+ \TG@term\@coefb
+ \TG@term{-\@coefc}%
+ \TG@term\@coefd
+ \dimen@\@tempa\dimen@
+ \divide\dimen@ \@coefd}
 \def\CalculateSin#1{{%
   \expandafter\ifx\csname sin(\number#1)\endcsname\relax
     \dimen@=#1\p@\TG@@sin
@@ -2431,7 +2431,7 @@
   \fi}}
 \def\TG@reduce#1#2{%
 \dimen@#1#2\nin@ty\p@
-  \advance\dimen@#2-\@clxx\p@
+  \advance\dimen@#2-\@clxxx\p@
   \dimen@-\dimen@
   \TG@@sin}
 \def\TG@@sin{%
@@ -2440,16 +2440,28 @@
   \else\TG@series\fi\fi}%
 \def\UseSin#1{\csname sin(\number#1)\endcsname}
 \def\UseCos#1{\csname cos(\number#1)\endcsname}
-\chardef\z@num\z@
+\def\z@num{0 }
+\def\@tempa{1 }
+\def\@tempb{-1 }
 \expandafter\let\csname sin(0)\endcsname\z@num
-\expandafter\let\csname cos(0)\endcsname\@ne
-\expandafter\let\csname sin(90)\endcsname\@ne
+\expandafter\let\csname cos(0)\endcsname\@tempa
+\expandafter\let\csname sin(90)\endcsname\@tempa
 \expandafter\let\csname cos(90)\endcsname\z@num
-\expandafter\let\csname sin(-90)\endcsname\m@ne
+\expandafter\let\csname sin(-90)\endcsname\@tempb
 \expandafter\let\csname cos(-90)\endcsname\z@num
 \expandafter\let\csname sin(180)\endcsname\z@num
-\expandafter\let\csname cos(180)\endcsname\m@ne
-
+\expandafter\let\csname cos(180)\endcsname\@tempb
+\expandafter\let\csname sin(270)\endcsname\@tempb
+\expandafter\let\csname cos(270)\endcsname\z@num
+\expandafter\let\csname sin(360)\endcsname\z@num
+\expandafter\let\csname cos(360)\endcsname\@tempa
+\expandafter\let\csname sin(-180)\endcsname\z@num
+\expandafter\let\csname cos(-180)\endcsname\@tempb
+\expandafter\let\csname sin(-270)\endcsname\@tempa
+\expandafter\let\csname cos(-270)\endcsname\z@num
+\expandafter\let\csname sin(-360)\endcsname\z@num
+\expandafter\let\csname cos(-360)\endcsname\@tempa
+%
 % A macro for sin cos values
 % \pstSinCos{30}\SinVal\CosVal ==> \SinVal 0.5 \CosVal 0.86
  %