pst-func update (14nov08)

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

1 files changed, 36 insertions, 34 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 4b2e5a47beb..dd9c71b80e5 100644
--- a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
+++ b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-func.tex 16 2008-03-02 16:51:07Z herbert $
+%% $Id: pst-func.tex 55 2008-11-14 12:01:12Z herbert $
 %%
 %% This is file `pst-func.tex',
 %%
@@ -29,18 +29,18 @@
 % interface to the `xkeyval' package
 \pst@addfams{pst-func}
 
-\def\fileversion{0.56}
-\def\filedate{2008/10/31}
+\def\fileversion{0.57}
+\def\filedate{2008/11/14}
 \message{`PST-func' v\fileversion, \filedate\space (hv)}
 %
 \pstheader{pst-func.pro}
 \pstheader{pst-math.pro}% for GAMMALN
 %
-\define@key[psset]{pst-func}{xShift}{\def\psk@xShift{#1}}
+\define@key[psset]{pst-func}{xShift}[0]{\def\psk@xShift{#1}}
 \psset[pst-func]{xShift=0}
 %
-\define@key[psset]{pst-func}{cosCoeff}{\def\psk@cosCoeff{#1}}
-\define@key[psset]{pst-func}{sinCoeff}{\def\psk@sinCoeff{#1}}
+\define@key[psset]{pst-func}{cosCoeff}[0]{\def\psk@cosCoeff{#1}}
+\define@key[psset]{pst-func}{sinCoeff}[1]{\def\psk@sinCoeff{#1}}
 \psset[pst-func]{cosCoeff=0,sinCoeff=1} % coeff=a0 a1 a2 a3 ...
 %
 \def\psFourier{\@ifnextchar[{\psFourier@i}{\psFourier@i[]}}
@@ -66,17 +66,16 @@
     }%
 }\ignorespaces}
 %
-\define@key[psset]{pst-func}{coeff}{\def\psk@coeff{#1}}
-\define@key[psset]{pst-func}{Abbreviation}{\def\psk@Deriviation{#1}}% compatibility
-\define@key[psset]{pst-func}{Derivation}{\def\psk@Derivation{#1}}
+\define@key[psset]{pst-func}{coeff}[0 1]{\def\psk@coeff{#1}}
+\define@key[psset]{pst-func}{Derivation}[0]{\def\psk@Derivation{#1}}
 \define@boolkey[psset]{pst-func}[Pst@]{markZeros}[true]{}
-\define@key[psset]{pst-func}{epsZero}{\def\psk@epsZero{#1}}
-\define@key[psset]{pst-func}{dZero}{\def\psk@dZero{#1}}
-\define@key[psset]{pst-func}{zeroLineTo}{\def\psk@zeroLineTo{#1}}
-\define@key[psset]{pst-func}{zeroLineColor}{\pst@getcolor{#1}\psk@zeroLineColor}
+\define@key[psset]{pst-func}{epsZero}[0.1]{\def\psk@epsZero{#1}}
+\define@key[psset]{pst-func}{dZero}[0.1]{\def\psk@dZero{#1}}
+\define@key[psset]{pst-func}{zeroLineTo}[-1]{\def\psk@zeroLineTo{#1}}
+\define@key[psset]{pst-func}{zeroLineColor}[black]{\pst@getcolor{#1}\psk@zeroLineColor}
 \newdimen\psk@zeroLineWidth
-\define@key[psset]{pst-func}{zeroLineWidth}{\pssetlength\psk@zeroLineWidth{#1}}
-\define@key[psset]{pst-func}{zeroLineStyle}{%
+\define@key[psset]{pst-func}{zeroLineWidth}[0.5\pslinewidth]{\pssetlength\psk@zeroLineWidth{#1}}
+\define@key[psset]{pst-func}{zeroLineStyle}[dashed]{%
   \@ifundefined{psls@#1}%
     {\@pstrickserr{Line style `#1' not defined}\@eha}%
     {\edef\psk@zeroLineStyle{#1}}%
@@ -173,8 +172,8 @@
 % Manuel Luque, Herbert Voss
 % Look at the end for some more documentation about the algorithm
 %
-\define@key[psset]{pst-func}{constI}{\def\psk@constI{#1 }}
-\define@key[psset]{pst-func}{constII}{\def\psk@constII{#1 }}
+\define@key[psset]{pst-func}{constI}[1]{\def\psk@constI{#1 }}
+\define@key[psset]{pst-func}{constII}[0]{\def\psk@constII{#1 }}
 \psset{constI=1,constII=0}
 %
 \def\psBessel{\@ifnextchar[{\psBessel@i}{\psBessel@i[]}}
@@ -195,9 +194,9 @@
   }%
 }\ignorespaces}
 %
-\define@key[psset]{pst-func}{sigma}{\def\psk@sigma{#1 }}
-\define@key[psset]{pst-func}{mue}{\def\psk@mue{#1 }}
-\define@key[psset]{pst-func}{nue}{\def\psk@nue{#1 }}
+\define@key[psset]{pst-func}{sigma}[0.5]{\def\psk@sigma{#1 }}
+\define@key[psset]{pst-func}{mue}[0]{\def\psk@mue{#1 }}
+\define@key[psset]{pst-func}{nue}[1]{\def\psk@nue{#1 }}
 \psset[pst-func]{sigma=0.5,mue=0,nue=1}
 %
 \def\psGauss{\@ifnextchar[{\psGauss@i}{\psGauss@i[]}}
@@ -211,7 +210,7 @@
     }%
 }\ignorespaces}
 %
-\define@key[psset]{pst-func}{Simpson}{\def\psk@Simpson{#1 }}
+\define@key[psset]{pst-func}{Simpson}[5]{\def\psk@Simpson{#1 }}
 \psset[pst-func]{Simpson=5}
 %
 \def\psGaussI{\pst@object{psGaussI}}
@@ -311,10 +310,10 @@
   \end@OpenObj%
 }
 %
-\define@key[psset]{pst-func}{PSfont}{\def\psk@PSfont{/#1 }}
-\define@key[psset]{pst-func}{valuewidth}{\pst@getint{#1}\psk@valuewidth }
-\define@key[psset]{pst-func}{fontscale}{\pst@checknum{#1}\psk@fontscale }
-\define@key[psset]{pst-func}{decimals}{\pst@getint{#1}\psk@decimals }
+\define@key[psset]{pst-func}{PSfont}[Times-Roman]{\def\psk@PSfont{/#1 }}
+\define@key[psset]{pst-func}{valuewidth}[10]{\pst@getint{#1}\psk@valuewidth }
+\define@key[psset]{pst-func}{fontscale}[10]{\pst@checknum{#1}\psk@fontscale }
+\define@key[psset]{pst-func}{decimals}[-1]{\pst@getint{#1}\psk@decimals }
 \psset[pst-func]{PSfont=Times-Roman,fontscale=10,valuewidth=10,decimals=-1}
 %
 \def\psPrintValue{\pst@object{psPrintValue}}
@@ -391,7 +390,7 @@
 }%
 %
 \define@boolkey[psset]{pst-func}[Pst@]{printValue}[true]{}
-\define@key[psset]{pst-func}{barwidth}{\def\psFunc@barwidth{#1 }}% a factor, not a dimen
+\define@key[psset]{pst-func}{barwidth}[1]{\def\psFunc@barwidth{#1 }}% a factor, not a dimen
 \psset[pst-func]{printValue=false,barwidth=1}
 %
 \def\psBinomial{\pst@object{psBinomial}}
@@ -552,8 +551,8 @@
   \end@OpenObj%
 }
 %
-\define@key[psset]{pst-func}{alpha}{\pst@checknum{#1}\psk@alpha } % gamma
-\define@key[psset]{pst-func}{beta}{\pst@checknum{#1}\psk@beta } % gamma
+\define@key[psset]{pst-func}{alpha}[0.5]{\pst@checknum{#1}\psk@alpha }
+\define@key[psset]{pst-func}{beta}[0.5]{\pst@checknum{#1}\psk@beta }
 \psset[pst-func]{alpha=0.5,beta=0.5}
 %
 \def\psGammaDist{\pst@object{psGammaDist}}
@@ -639,8 +638,8 @@
 
 %
 % Superellipese / Lamefunction
-\define@key[psset]{pst-func}{radiusA}{\pst@getlength{#1}\pst@radiusA}
-\define@key[psset]{pst-func}{radiusB}{\pst@getlength{#1}\pst@radiusB}
+\define@key[psset]{pst-func}{radiusA}[1]{\pst@getlength{#1}\pst@radiusA}
+\define@key[psset]{pst-func}{radiusB}[1]{\pst@getlength{#1}\pst@radiusB}
 \psset[pst-func]{radiusA=1,radiusB=1}
 %
 \def\psLame{\pst@object{psLame}}
@@ -662,6 +661,9 @@
 %\define@boolkey[psset]{pst-func}[PstAdd@]{algebraic}[true]{}
 %\psset[pst-func]{polarplot=false,algebraic=false}
 %
+\define@key[psset]{pst-func}{stepFactor}[0.67]{\pst@checknum{#1}\psk@stepFactor }
+\psset[pst-func]{stepFactor=0.67}
+%
 \def\psplotImp{\pst@object{psplotImp}}% 20060420
 \def\psplotImp@i(#1,#2)(#3,#4)#5{%
   \begin@OpenObj%
@@ -690,9 +692,9 @@
 %
     /VZ true def % suppose that F(x,y)>=0
     /x xMin def /y yMin def Func 0.0 lt { /VZ false def } if % erster Wert
-    xMin dx 1.5 div xMax {
+    xMin dx \psk@stepFactor\space mul xMax {
       /x exch def
-      yMin dy 1.5 div yMax {
+      yMin dy \psk@stepFactor\space mul yMax {
 	/y exch def
 	Func 0 lt 
 	    { VZ { x y setpixel /VZ false def} if }
@@ -701,9 +703,9 @@
     } for
 %
     /x xMin def /y yMin def Func 0.0 lt { /VZ false def } if % erster Wert
-    yMin dy 1.5 div yMax {
+    yMin dy \psk@stepFactor\space mul yMax {
       /y exch def
-      xMin dx 1.5 div xMax {
+      xMin dx \psk@stepFactor\space mul xMax {
 	/x exch def
 	Func 0 lt 
 	    { VZ { x y setpixel /VZ false def} if }