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.pro24
1 files changed, 15 insertions, 9 deletions
diff --git a/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro b/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro
index 4c432b54f13..867363aee98 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 50 2008-11-12 13:44:21Z herbert $
+%% $Id: pst-3dplot.pro 113 2009-04-20 16:07:36Z 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.26 / 2008-01-03 Herbert Voss <voss _at_ PSTricks.de>
+%% version 0.28 / 2009-04-20 Herbert Voss <voss _at_ PSTricks.de>
%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
%%
%
@@ -50,6 +50,10 @@ tx@3DPlotDict begin
/x2D y x -0.5 mul sub def
/y2D z x -0.5 mul sub def
exit } if
+ coorType 4 le { % Normalbild in Trimetrie Skalierung so, dass coorType2
+ /x2D x -0.5 mul y 1 mul add def
+ /y2D x -0.5 mul y -0.25 mul add z 1 mul add def
+ exit } if
} repeat
} def
%
@@ -405,7 +409,7 @@ tx@3DPlotDict begin
Cyan cosV mul Magenta cosV mul Yellow cosV mul K cosV mul setcmykcolor fill
grestore
% 0 setgray
- facetteSphere stroke
+ showgrid { facetteSphere stroke } if
} if
} for
% /StartTheta StartTheta increment 2 div add def
@@ -475,9 +479,10 @@ tx@3DPlotDict begin
cosV mul 4 1 roll cosV mul 4 1 roll
cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
setcmykcolor fill
- 0 setgray
- facetteCylinder % drawing the segments
- stroke
+ showgrid {
+ 0 setgray
+ facetteCylinder % drawing the segments
+ stroke } if
} if
} for
} for
@@ -718,9 +723,10 @@ tx@3DPlotDict begin
Cyan Magenta Yellow K
cosV mul 4 1 roll cosV mul 4 1 roll cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
setcmykcolor fill
- 0 setgray
- facetteParaboloid
- stroke
+ showgrid {
+ 0 setgray
+ facetteParaboloid
+ stroke } if
} if
} for
} for