pst-3dplot (27mar14)

git-svn-id: svn://tug.org/texlive/trunk@33302 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 17 insertions, 4 deletions

diff --git a/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex b/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex
index f987eca30b6..fde8250d574 100644
--- a/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex
+++ b/Master/texmf-dist/tex/generic/pst-3dplot/pst-3dplot.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-3dplot.tex 881 2014-02-01 11:13:25Z herbert $
+%% $Id: pst-3dplot.tex 899 2014-03-26 08:40:56Z herbert $
 %%
 %% This is file `pst-3dplot.tex',
 %%
@@ -27,8 +27,8 @@
 \ifx\PSTMultidoLoaded\endinput\else \input multido.tex\fi
 \ifx\PSTXKeyLoaded\endinput\else    \input pst-xkey \fi
 %
-\def\fileversion{1.99}
-\def\filedate{2013/02/01}
+\def\fileversion{2.00}
+\def\filedate{2014/03/26}
 \message{`PST-3dplot' v\fileversion, \filedate\space (HV,DL)}
 %
 \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
@@ -900,6 +900,8 @@
         /P1 { #1 #2 #3 } def % x y z or Radius longitude lattitude
         /P2 { #4 #5 #6 } def %
         /P3 { #7 #8 #9 } def %
+        \tx@setTransparency
+        \tx@setStrokeTransparency
         /SphericalCoor \ifPst@SphericalCoor true \else false \fi def %
         /xUnit { \pst@number\psxunit\space mul } def
         /yUnit { \pst@number\psyunit\space mul } def
@@ -1337,7 +1339,12 @@
   \psk@ThreeDplot@increment\space
   /cmyk {} def   % we need only the values
   \psk@ThreeDplot@SegmentColor\space 
-  tx@3DPlotDict begin \IIIDplot@variables MaillageSphere end
+  tx@3DPlotDict begin 
+    \IIIDplot@variables 
+    \tx@setTransparency 
+    \tx@setStrokeTransparency 
+    MaillageSphere 
+  end
 }% fin du code ps
   \showpointsfalse%
   \end@SpecialObj%
@@ -1379,6 +1386,8 @@
       0 360 				% for the future
       \psk@ThreeDplot@increment
       false				% wedge?
+    \tx@setTransparency 
+    \tx@setStrokeTransparency 
       IIIDCylinder 
     end
   }% end of pscode
@@ -1396,6 +1405,8 @@
     translate
     #4 \pst@number\psunit mul dup 0 360 false
     \pst@usecolor{\pslinecolor}
+    \tx@setTransparency 
+    \tx@setStrokeTransparency 
     IIIDEllipse 
     end
   }% end of pscode
@@ -1442,6 +1453,8 @@
   \psk@ThreeDplot@SegmentColor\space 
 %
     \tx@3DPlotDict
+    \tx@setTransparency 
+    \tx@setStrokeTransparency 
     /ConvCyl2d { 	% on stack r phi h
       ConvCylToCartesian 
       CZ add /z ED CY add /y ED CX add /x ED