texlive[68727] Master/texmf-dist: pst-3dplot (2nov23)

[commits+karl at tug.org]

Revision: 68727
          https://tug.org/svn/texlive?view=revision&revision=68727
Author:   karl
Date:     2023-11-02 20:53:36 +0100 (Thu, 02 Nov 2023)
Log Message:
-----------
pst-3dplot (2nov23)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/generic/pst-3dplot/Changes
    trunk/Master/texmf-dist/doc/generic/pst-3dplot/pst-3dplot-doc.pdf
    trunk/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex

Modified: trunk/Master/texmf-dist/doc/generic/pst-3dplot/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-3dplot/Changes	2023-11-02 04:27:44 UTC (rev 68726)
+++ trunk/Master/texmf-dist/doc/generic/pst-3dplot/Changes	2023-11-02 19:53:36 UTC (rev 68727)
@@ -20,6 +20,7 @@
 
 
 pst-3dplot.tex --------
+2.09  2023-11-01  - updated code from package trig
 2.08  2023-09-08  - fix bug for consequtive \pstThreeDCircle
 2.07a 2022-01-14  - fix for the documentation
 2.07  2021-09-23  - fix for lualatex and color values on PS level

Modified: trunk/Master/texmf-dist/doc/generic/pst-3dplot/pst-3dplot-doc.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex	2023-11-02 04:27:44 UTC (rev 68726)
+++ trunk/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex	2023-11-02 19:53:36 UTC (rev 68727)
@@ -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 at divide
 %
 \chardef\nin at 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 at series{%
-  \dimen@\@lxxi\dimen@
-  \divide \dimen@ \@mmmmlxviii
-  \edef\@tempa{\TG at rem@pt\dimen@}%
-  \dimen@\@tempa\dimen@
-  \edef\@tempb{\TG at rem@pt\dimen@}%
-  \divide\dimen@\@coeffz
-  \advance\dimen@\m at ne\p@
-  \TG at term\@coefb
-  \TG at term{-\@coefc}%
-  \TG at term\@coefd
-  \dimen@\@tempa\dimen@
-  \divide\dimen@ \@coefd}
+ \dimen@\@lxxi\dimen@
+ \divide \dimen@ \@mmmmlxviii
+ \edef\@tempa{\TG at rem@pt\dimen@}%
+ \dimen@\@tempa\dimen@
+ \edef\@tempb{\TG at rem@pt\dimen@}%
+ \divide\dimen@\@coeffz
+ \advance\dimen@\m at ne\p@
+ \TG at term\@coefb
+ \TG at term{-\@coefc}%
+ \TG at 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 at reduce#1#2{%
 \dimen@#1#2\nin at ty\p@
-  \advance\dimen@#2-\@clxx\p@
+  \advance\dimen@#2-\@clxxx\p@
   \dimen at -\dimen@
   \TG@@sin}
 \def\TG@@sin{%
@@ -2440,16 +2440,28 @@
   \else\TG at series\fi\fi}%
 \def\UseSin#1{\csname sin(\number#1)\endcsname}
 \def\UseCos#1{\csname cos(\number#1)\endcsname}
-\chardef\z at num\z@
+\def\z at num{0 }
+\def\@tempa{1 }
+\def\@tempb{-1 }
 \expandafter\let\csname sin(0)\endcsname\z at 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 at num
-\expandafter\let\csname sin(-90)\endcsname\m at ne
+\expandafter\let\csname sin(-90)\endcsname\@tempb
 \expandafter\let\csname cos(-90)\endcsname\z at num
 \expandafter\let\csname sin(180)\endcsname\z at num
-\expandafter\let\csname cos(180)\endcsname\m at ne
-
+\expandafter\let\csname cos(180)\endcsname\@tempb
+\expandafter\let\csname sin(270)\endcsname\@tempb
+\expandafter\let\csname cos(270)\endcsname\z at num
+\expandafter\let\csname sin(360)\endcsname\z at num
+\expandafter\let\csname cos(360)\endcsname\@tempa
+\expandafter\let\csname sin(-180)\endcsname\z at num
+\expandafter\let\csname cos(-180)\endcsname\@tempb
+\expandafter\let\csname sin(-270)\endcsname\@tempa
+\expandafter\let\csname cos(-270)\endcsname\z at num
+\expandafter\let\csname sin(-360)\endcsname\z at num
+\expandafter\let\csname cos(-360)\endcsname\@tempa
+%
 % A macro for sin cos values
 % \pstSinCos{30}\SinVal\CosVal ==> \SinVal 0.5 \CosVal 0.86
  %