pst-3dplot (2mar11)

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

1 files changed, 11 insertions, 9 deletions

diff --git a/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro b/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro
index 335b8ad8d66..781251deea2 100644
--- a/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro
+++ b/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro
@@ -1,4 +1,4 @@
-%% $Id: pst-3dplot.pro 236 2009-12-31 08:59:43Z herbert $
+%% $Id: pst-3dplot.pro 298 2010-03-13 08:46:53Z herbert $
 %%
 %% This is file `pst-3dplot.pro',
 %%
@@ -16,7 +16,7 @@
 %%   `pst-3dplot' is a PSTricks package to draw 3d curves and graphical objects
 %%
 %%
-%% version 0.30 / 2010-01-01  Herbert Voss <voss _at_ PSTricks.de>
+%% version 0.31 / 2010-02-20  Herbert Voss <hvoss _at_ tug.org>
 %% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
 %%            
 %
@@ -31,8 +31,8 @@ tx@3DPlotDict begin
   dxUnit mul /x ED
 } def
 %
-/ConvertTo2D {
-  RotatePoint
+/3Dto2D { % true or false on stack
+  { RotatePoint } if
   1 { %  dummy loop, will run only 1 time, allows exit 
     coorType 0 le {                                               % the default |
       /x2D x leftHanded not { neg } if Alpha cos mul y Alpha sin mul add def %  /\  co system
@@ -56,6 +56,8 @@ tx@3DPlotDict begin
        exit } if
   } repeat
 } def
+/ConvertTo2D { true 3Dto2D } def
+/ConvertTo2DWithoutRotating { false 3Dto2D } def
 %
 /Conv3D2D { /z ED /y ED /x ED ConvertTo2D x2D y2D } def
 %
@@ -384,11 +386,11 @@ tx@3DPlotDict begin
       /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul CX add def
       /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul CY add def
       /Zpoint Rsphere phi increment 2 div add sin mul CZ add def
-      % normale � la facette
+      % normale a la facette
       /nXfacette Xpoint CX sub def
       /nYfacette Ypoint CY sub def
       /nZfacette Zpoint CZ sub def
-      % test de visibilit�
+      % test de visibilite
       /PSfacetteSphere 
         vX nXfacette mul
         vY nYfacette mul add
@@ -599,7 +601,7 @@ tx@3DPlotDict begin
     nZfacetteBox dup mul
     add add sqrt def
   NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilit�
+% test de visibilite
   /PSfacetteBox 
     vX nXfacetteBox mul
     vY nYfacetteBox mul add
@@ -657,7 +659,7 @@ tx@3DPlotDict begin
     /V {Z sqrt} bind def
     /TableauxPoints [
       0 1 359 { 
-        /U ED [ U U Z V calculate2DPoint ] % on d�crit le cercle
+        /U ED [ U U Z V calculate2DPoint ] % on decrit le cercle
       } for
     ] def
     newpath
@@ -915,4 +917,4 @@ max 0 ne {
 end } def
 %
 end % tx@3DPlotDict
-
+%
\ No newline at end of file