pst-vue3d update

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

2 files changed, 15 insertions, 16 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/Changes b/Master/texmf-dist/doc/generic/pst-vue3d/Changes
index 350622c0f7d..e4bb5d2241f 100644
--- a/Master/texmf-dist/doc/generic/pst-vue3d/Changes
+++ b/Master/texmf-dist/doc/generic/pst-vue3d/Changes
@@ -1,4 +1,5 @@
 ----- pst-vue3d.tex
+1.24	2008-02-21	hv: draw circles for 360 degrees instead of 359
 1.23	2007-03-26	hv: load pst-vue3d.pro instead of 3d.pro
 1.22	2005-05-10	hv: make the unit option available
 1.21	2005-02-21	hv: use always pst-xkey and using \def instead
diff --git a/Master/texmf-dist/tex/generic/pst-vue3d/pst-vue3d.tex b/Master/texmf-dist/tex/generic/pst-vue3d/pst-vue3d.tex
index 1b23e7b75c8..e6ffa14446a 100644
--- a/Master/texmf-dist/tex/generic/pst-vue3d/pst-vue3d.tex
+++ b/Master/texmf-dist/tex/generic/pst-vue3d/pst-vue3d.tex
@@ -7,7 +7,7 @@
 %% Manuel Luque <Mluque5130@aol.com> (France)
 %% Herbert Voss <voss _at_ pstricks.de (Germany)
 %%
-%% 2004/06/17
+%% 2008/02/21
 %%
 %% This program can be redistributed and/or modified under the terms
 %% of the LaTeX Project Public License Distributed from CTAN archives
@@ -25,9 +25,9 @@
 \ifx\PSTthreeDLoaded\endinput\else\input pst-3d.tex\fi
 \ifx\PSTXKeyLoaded\endinput\else\input pst-xkey\fi
 %
-\def\fileversion{1.23}%
-\def\filedate{2007/03/26}%
-\message{`pst-vue3d v\fileversion, \filedate\space (ML)(hv)}%
+\def\fileversion{1.24}%
+\def\filedate{2008/02/21}%
+\message{`pst-vue3d v\fileversion, \filedate\space (ML,hv)}%
 \edef\PstAtCode{\the\catcode`\@}\catcode`\@=11\relax
 \pst@addfams{pst-vue3d}% for pst-xkey
 %%%%
@@ -63,7 +63,7 @@
 \define@key[psset]{pst-vue3d}{Dobs}{\def\psk@TroisD@Dobs{#1}}
 \define@key[psset]{pst-vue3d}{Decran}{\def\psk@TroisD@Ecran{#1}}
 %
-\psset{THETA=30,PHI=10,%
+\psset[pst-vue3d]{THETA=30,PHI=10,%
     Dobs=100,Decran=10,%
     normaleLongitude=45,%
     normaleLatitude=45,%
@@ -88,7 +88,7 @@
 \define@key[psset]{pst-vue3d}{CubeColorFaceFour}{\def\psk@TroisD@CubeColorFaceFour{#1}} % couleur de la face 4 du cube
 \define@key[psset]{pst-vue3d}{CubeColorFaceFive}{\def\psk@TroisD@CubeColorFaceFive{#1}} % couleur de la face 5 du cube
 \define@key[psset]{pst-vue3d}{CubeColorFaceSix}{\def\psk@TroisD@CubeColorFaceSix{#1}} % couleur de la face 6 du cube
-\psset{CubeColorFaceOne= 1 1 0 ,
+\psset[pst-vue3d]{CubeColorFaceOne= 1 1 0 ,
     CubeColorFaceTwo= 0.9 0.9 0 ,
     CubeColorFaceThree= 0.8 0.8 0 ,
     CubeColorFaceFour= 0.7 0.7 0 ,
@@ -96,13 +96,11 @@
     CubeColorFaceSix= 0.5 0.5 0 }
 % fin 28 août 2003
 % ajout 27 octobre 2003
-\newif\ifPst@cubeInside
-\define@key[psset]{pst-vue3d}{CubeInside}[false]{\@nameuse{Pst@cubeInside#1}}
-\psset{CubeInside=false}
+\define@boolkey[psset]{pst-vue3d}[Pst@]{CubeInside}[true]{}
+\psset[pst-vue3d]{CubeInside=false}
 % hv 2003-12-20
-\newif\ifPst@SphericalCoor
-\define@key[psset]{pst-vue3d}{SphericalCoor}[true]{\@nameuse{Pst@SphericalCoor#1}}
-\psset{SphericalCoor=false}
+\define@boolkey[psset]{pst-vue3d}[Pst@]{SphericalCoor}[true]{}
+\psset[pst-vue3d]{SphericalCoor=false}
 %
 \def\variablesTroisD{%
  0 0 translate
@@ -319,7 +317,7 @@
 	  /CY #2 def
 	  /CZ #3 def
 	\fi
-	\ifPst@cubeInside /Condition { ge } def \else /Condition { le } def \fi
+	\ifPst@CubeInside /Condition { ge } def \else /Condition { le } def \fi
 	/CubeColorFaceOne {\psk@TroisD@CubeColorFaceOne} def
 	/CubeColorFaceTwo {\psk@TroisD@CubeColorFaceTwo} def
 	/CubeColorFaceThree {\psk@TroisD@CubeColorFaceThree} def
@@ -353,7 +351,7 @@
 	/CY #2 def
 	/CZ #3 def
       \fi
-      \ifPst@cubeInside /Condition { ge } def \else /Condition {le } def \fi
+      \ifPst@CubeInside /Condition { ge } def \else /Condition {le } def \fi
       /CubeColorFaceOne {\psk@TroisD@CubeColorFaceOne} def
       /CubeColorFaceTwo {\psk@TroisD@CubeColorFaceTwo} def
       /CubeColorFaceThree {\psk@TroisD@CubeColorFaceThree} def
@@ -1103,7 +1101,7 @@
       tx@3DDict begin
         reduction reduction scale
         /TableauxPoints [
-        0 1 359 {% on décrit le cercle
+        0 1 360 {% on décrit le cercle
   	  /Angle exch def [
 	    /Xcercle Rcercle Angle cos mul def
 	    /Ycercle Rcercle Angle sin mul def
@@ -1114,7 +1112,7 @@
 	} for
 	] def
 	TableauxPoints 0 get aload pop moveto
-	0 1 359 {
+	0 1 360 {
 	  /compteur exch def
 	  TableauxPoints compteur get aload pop
 	  lineto } for