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 | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro b/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro index 867363aee98..e347fde46cf 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 113 2009-04-20 16:07:36Z herbert $ +%% $Id: pst-3dplot.pro 123 2009-08-27 06:53:23Z herbert $ %% %% This is file `pst-3dplot.pro', %% @@ -626,13 +626,21 @@ tx@3DPlotDict begin { setColorLight % expects 4 values on stack C M Y K /Depth ED /Height ED /Width ED /CZ ED /CY ED /CX ED } if -% -% Normal vector of the center +% +% Normal vector of the box center /PlaneSet [ - [ Width 2 div CX add CY Height 2 div CZ add ] % normal back - [ CX Depth 2 div CY add Height 2 div CZ add ] % normal right - [ Width CX add Depth 2 div CY add Height 2 div CZ add ] % normal left - [ Width 2 div CX add Depth CY add Height 2 div CZ add ] % normal front + [ Width 2 div CX add + CY + Height 2 div CZ add ] % normal back + [ CX + Depth 2 div CY add + Height 2 div CZ add ] % normal right + [ Width CX add + Depth 2 div CY add + Height 2 div CZ add ] % normal left + [ Width 2 div CX add + Depth CY add + Height 2 div CZ add ] % normal front ] def PlaneSequence length 0 eq { % user defined? Alpha abs cvi 360 mod /iAlpha ED |