summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-func
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-07-16 16:52:01 +0000
committerKarl Berry <karl@freefriends.org>2007-07-16 16:52:01 +0000
commit8704eddd45c69d9cca614273c6e2d6829ef3f669 (patch)
tree8c726712f42d78e93de65e77defd26f28d668818 /Master/texmf-dist/tex/generic/pst-func
parentb4195e08ebb104533785f8dd305b7f23e4a51719 (diff)
pst-func 0.49 (25jun07
git-svn-id: svn://tug.org/texlive/trunk@4629 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-func')
-rw-r--r--Master/texmf-dist/tex/generic/pst-func/pst-func.tex26
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