diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pst-3dplot')
-rw-r--r-- | Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro | 20 |
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 |