From a0e3a6e70703784c4f4917d3a4dff545b91cf487 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 8 Oct 2009 22:34:13 +0000 Subject: pst-3dplot 1.86 (6oct09) git-svn-id: svn://tug.org/texlive/trunk@15703 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro | 31 +++++++++++++++-------- 1 file changed, 20 insertions(+), 11 deletions(-) (limited to 'Master/texmf-dist/dvips/pst-3dplot') 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 +%% version 0.29 / 2009-10-06 Herbert Voss %% with contributions of Darrell Lamm 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 -- cgit v1.2.3