summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro')
-rw-r--r--Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro23
1 files changed, 7 insertions, 16 deletions
diff --git a/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro b/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro
index 4260d7ed25e..335b8ad8d66 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 136 2009-10-06 21:37:53Z herbert $
+%% $Id: pst-3dplot.pro 236 2009-12-31 08:59:43Z 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.29 / 2009-10-06 Herbert Voss <voss _at_ PSTricks.de>
+%% version 0.30 / 2010-01-01 Herbert Voss <voss _at_ PSTricks.de>
%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
%%
%
@@ -319,15 +319,6 @@ tx@3DPlotDict begin
/factor ED { factor mul } forall 3 array astore } def
%
%
-% 3D objects
-/tx@ProjThreeD {% adopted from pst-3d
- /z ED /y ED /x ED
- Matrix3D aload pop
- z mul exch y mul add exch x mul add
- 4 1 roll
- z mul exch y mul add exch x mul add
- exch } def
-%
/setColorLight { % expects 7 values on stack C M Y K xL yL zL
% les rayons de lumi�re
xLight dup mul yLight dup mul zLight dup mul add add sqrt /NormeLight ED
@@ -343,34 +334,34 @@ tx@3DPlotDict begin
/Xpoint Rsphere theta cos mul phi cos mul CX add def
/Ypoint Rsphere theta sin mul phi cos mul CY add def
/Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@ProjThreeD moveto
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end moveto
theta 1 theta increment add {%
/theta1 ED
/Xpoint Rsphere theta1 cos mul phi cos mul CX add def
/Ypoint Rsphere theta1 sin mul phi cos mul CY add def
/Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@ProjThreeD lineto
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
} for
phi 1 phi increment add {
/phi1 ED
/Xpoint Rsphere theta increment add cos mul phi1 cos mul CX add def
/Ypoint Rsphere theta increment add sin mul phi1 cos mul CY add def
/Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@ProjThreeD lineto
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
} for
theta increment add -1 theta {%
/theta1 ED
/Xpoint Rsphere theta1 cos mul phi increment add cos mul CX add def
/Ypoint Rsphere theta1 sin mul phi increment add cos mul CY add def
/Zpoint Rsphere phi increment add sin mul CZ add def
- Xpoint Ypoint Zpoint tx@ProjThreeD lineto
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
} for
phi increment add -1 phi {
/phi1 ED
/Xpoint Rsphere theta cos mul phi1 cos mul CX add def
/Ypoint Rsphere theta sin mul phi1 cos mul CY add def
/Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@ProjThreeD lineto
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
} for
closepath
} def