summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-func
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-11-17 01:24:33 +0000
committerKarl Berry <karl@freefriends.org>2008-11-17 01:24:33 +0000
commit7bd53a20b9a4f0c2696bbe01fda5d72677181f04 (patch)
tree8b1c6cc50c27fb05128ce8b175087fa8324b3f0c /Master/texmf-dist/tex/generic/pst-func
parent4a5b7eaf919cce085598cf22a5715b1f1ce9f8f7 (diff)
pst-func update (14nov08)
git-svn-id: svn://tug.org/texlive/trunk@11314 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.tex70
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 }