pst-func 0.49 (25jun07

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

1 files changed, 24 insertions, 2 deletions

diff --git a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
index ce583f7fc77..ab399eb9ec9 100644
--- a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
+++ b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
@@ -28,8 +28,8 @@
 % interface to the `xkeyval' package
 \pst@addfams{pst-func}
 
-\def\fileversion{0.48}
-\def\filedate{2006/11/20}
+\def\fileversion{0.49}
+\def\filedate{2007/12/23}
 \message{`PST-func' v\fileversion, \filedate\space (hv)}
 %
 \pstheader{pst-func.pro}
@@ -587,6 +587,28 @@
   \ignorespaces
 }
 %
+\def\psVolume{\pst@object{psVolume}}% 2007-06-23
+\def\psVolume@i(#1,#2)#3#4{{%
+  \begin@SpecialObj
+  \psplot[fillstyle=none]{#1}{#2}{#4}\psplot[fillstyle=none]{#1}{#2}{#4 neg}
+  \multido{\iA=1+1}{#3}{%
+    \pscustom{%
+      \code{
+        /dX #2 #1 sub #3 div def 
+        /Start dX \iA\space 1 sub mul #1 add def 
+        /End Start dX add def 
+        /Height End Start add 2 div /x ED #4 def } 
+      \psellipticarc(!Start 0)(! Height 8 div Height){90}{270}
+      \rlineto(! dX 0)
+      \psellipticarc(!End 0)(! Height 8 div Height){270}{90}
+      \rlineto(!dX neg 0)}}
+  \psset{fillstyle=none}
+  \psellipse(#2,0)(!#2 dup #1 sub #3 div 2 div sub /x ED #4 dup 8 div exch)
+  \psset{plotstyle=line,linestyle=dashed,plotpoints=40,dotstyle=*,dotsize=0.5pt}
+  \psplot{#1}{#2}{#4}\psplot{#1}{#2}{#4 neg}%
+  \end@SpecialObj
+}\ignorespaces}
+%
 \catcode`\@=\PstAtCode\relax
 %
 %% END: pst-func.tex