summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-3dplot
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-03-03 00:38:36 +0000
committerKarl Berry <karl@freefriends.org>2011-03-03 00:38:36 +0000
commit3f55149c237c656f91c7f1e2facd7a1d558b5c63 (patch)
treea2f8b514e5b938e4d93a194fd905a08b8f3e0c35 /Master/texmf-dist/dvips/pst-3dplot
parentd1089e94735a1af2d0b65b38f181f1f53b84bafc (diff)
pst-3dplot (2mar11)
git-svn-id: svn://tug.org/texlive/trunk@21588 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.pro20
1 files changed, 11 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 335b8ad8d66..781251deea2 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 236 2009-12-31 08:59:43Z herbert $
+%% $Id: pst-3dplot.pro 298 2010-03-13 08:46: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.30 / 2010-01-01 Herbert Voss <voss _at_ PSTricks.de>
+%% version 0.31 / 2010-02-20 Herbert Voss <hvoss _at_ tug.org>
%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
%%
%
@@ -31,8 +31,8 @@ tx@3DPlotDict begin
dxUnit mul /x ED
} def
%
-/ConvertTo2D {
- RotatePoint
+/3Dto2D { % true or false on stack
+ { RotatePoint } if
1 { % dummy loop, will run only 1 time, allows exit
coorType 0 le { % the default |
/x2D x leftHanded not { neg } if Alpha cos mul y Alpha sin mul add def % /\ co system
@@ -56,6 +56,8 @@ tx@3DPlotDict begin
exit } if
} repeat
} def
+/ConvertTo2D { true 3Dto2D } def
+/ConvertTo2DWithoutRotating { false 3Dto2D } def
%
/Conv3D2D { /z ED /y ED /x ED ConvertTo2D x2D y2D } def
%
@@ -384,11 +386,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 a la facette
/nXfacette Xpoint CX sub def
/nYfacette Ypoint CY sub def
/nZfacette Zpoint CZ sub def
- % test de visibilit�
+ % test de visibilite
/PSfacetteSphere
vX nXfacette mul
vY nYfacette mul add
@@ -599,7 +601,7 @@ tx@3DPlotDict begin
nZfacetteBox dup mul
add add sqrt def
NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilit�
+% test de visibilite
/PSfacetteBox
vX nXfacetteBox mul
vY nYfacetteBox mul add
@@ -657,7 +659,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 decrit le cercle
} for
] def
newpath
@@ -915,4 +917,4 @@ max 0 ne {
end } def
%
end % tx@3DPlotDict
-
+% \ No newline at end of file