From 8704eddd45c69d9cca614273c6e2d6829ef3f669 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 16 Jul 2007 16:52:01 +0000 Subject: pst-func 0.49 (25jun07 git-svn-id: svn://tug.org/texlive/trunk@4629 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/pst-func/pst-func.tex | 26 ++++++++++++++++++++-- 1 file changed, 24 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pst-func') 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 -- cgit v1.2.3