summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-3dplot
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-10-08 22:34:13 +0000
committerKarl Berry <karl@freefriends.org>2009-10-08 22:34:13 +0000
commita0e3a6e70703784c4f4917d3a4dff545b91cf487 (patch)
tree5f080880ee9bb192fba1f45239d541a6aba2a941 /Master/texmf-dist/dvips/pst-3dplot
parentb067e180fd68e71d2e6ee26ca3b99bdf411b10b2 (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/pst-3dplot')
-rw-r--r--Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro31
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