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