diff options
author | Karl Berry <karl@freefriends.org> | 2009-10-08 22:34:13 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-10-08 22:34:13 +0000 |
commit | a0e3a6e70703784c4f4917d3a4dff545b91cf487 (patch) | |
tree | 5f080880ee9bb192fba1f45239d541a6aba2a941 /Master/texmf-dist/dvips | |
parent | b067e180fd68e71d2e6ee26ca3b99bdf411b10b2 (diff) |
pst-3dplot 1.86 (6oct09)
git-svn-id: svn://tug.org/texlive/trunk@15703 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r-- | Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro | 31 |
1 files changed, 20 insertions, 11 deletions
diff --git a/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro b/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro index e347fde46cf..4260d7ed25e 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 123 2009-08-27 06:53:23Z herbert $ +%% $Id: pst-3dplot.pro 136 2009-10-06 21:37: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.28 / 2009-04-20 Herbert Voss <voss _at_ PSTricks.de> +%% version 0.29 / 2009-10-06 Herbert Voss <voss _at_ PSTricks.de> %% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu< %% % @@ -63,9 +63,18 @@ tx@3DPlotDict begin /latitude exch def /longitude exch def /Radius exch def - /z { Radius latitude sin mul } def - /x { Radius longitude cos mul latitude cos mul } def - /y { Radius longitude sin mul latitude cos mul } def + 1 { % dummy loop, will run only 1 time, allows exit + SphericalCoorType 0 le { % the default | + /z { Radius latitude sin mul } def + /x { Radius longitude cos mul latitude cos mul } def + /y { Radius longitude sin mul latitude cos mul } def + exit } if + SphericalCoorType 2 le { + /z { Radius longitude cos mul } def + /x { Radius longitude sin mul latitude cos mul} def + /y { Radius longitude sin mul latitude sin mul } def + exit } if + } repeat } def % /ConvCylToCartesian { % r phi h -> x y z @@ -320,7 +329,7 @@ tx@3DPlotDict begin exch } def % /setColorLight { % expects 7 values on stack C M Y K xL yL zL -% les rayons de lumière +% les rayons de lumi�re xLight dup mul yLight dup mul zLight dup mul add add sqrt /NormeLight ED % the color values /K ED @@ -384,11 +393,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 � la facette /nXfacette Xpoint CX sub def /nYfacette Ypoint CY sub def /nZfacette Zpoint CZ sub def - % test de visibilité + % test de visibilit� /PSfacetteSphere vX nXfacette mul vY nYfacette mul add @@ -599,7 +608,7 @@ tx@3DPlotDict begin nZfacetteBox dup mul add add sqrt def NormeN 0 eq { /NormeN 1e-10 def } if -% test de visibilité +% test de visibilit� /PSfacetteBox vX nXfacetteBox mul vY nYfacetteBox mul add @@ -657,7 +666,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 d�crit le cercle } for ] def newpath @@ -716,7 +725,7 @@ tx@3DPlotDict begin nZfacetteParaboloid dup mul add add sqrt} bind def NormeN 0 eq {/NormeN 1e-10 def} if -% test de visibilité +% test de visibilit� /PSfacetteParaboloid vX nXfacetteParaboloid mul vY nYfacetteParaboloid mul add vZ nZfacetteParaboloid mul add def |