summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-01-19 22:47:29 +0000
committerKarl Berry <karl@freefriends.org>2012-01-19 22:47:29 +0000
commitbf9553f10ccf89db30bcaff668b6c6df9c7fbe12 (patch)
treed24ca453b4a82368f146c9dbfb04e5aa24572e17 /Master/texmf-dist/tex/generic/pst-func/pst-func.tex
parent664aaa5af02335fefe5b420cbffd20f403dafe95 (diff)
pstfunc (19jan12)
git-svn-id: svn://tug.org/texlive/trunk@25154 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-func/pst-func.tex')
-rw-r--r--Master/texmf-dist/tex/generic/pst-func/pst-func.tex22
1 files changed, 18 insertions, 4 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 63763aab9fd..61a731c32bc 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 621 2012-01-01 15:26:33Z herbert $
+%% $Id: pst-func.tex 625 2012-01-15 20:56:13Z herbert $
%%
%% This is file `pst-func.tex',
%%
@@ -19,7 +19,7 @@
%%
\csname PSTfuncLoaded\endcsname
\let\PSTfuncLoaded\endinput
-% Requires PSTricks, pst-node, pst-xkey
+% Requires some PSTricks packages
\ifx\PSTricksLoaded\endinput\else \input pstricks.tex\fi
\ifx\PSTnodesLoaded\endinput\else \input pst-plot.tex\fi
\ifx\PSTmathLoaded\endinput \else \input pst-math.tex\fi
@@ -30,8 +30,8 @@
% interface to the `xkeyval' package
\pst@addfams{pst-func}
%
-\def\fileversion{0.75}
-\def\filedate{2012/01/01}
+\def\fileversion{0.76}
+\def\filedate{2012/01/13}
\message{`PST-func' v\fileversion, \filedate\space (hv)}
%
\pstheader{pst-func.pro}
@@ -1009,6 +1009,20 @@
} for
\ifPst@saveData Pst@data (]\string\n) writestring \fi
} for
+%% the same for the other way round without saving the data
+ /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
+ yMin dy \psk@stepFactor\space mul yMax {
+ /y exch def
+ \ifPst@saveData Pst@data ([\string\n) writestring \fi
+ xMin dx \psk@stepFactor\space mul xMax {
+ /x exch def
+ Func 0 lt
+ { VZ { x y setpixel /VZ false def} if }
+ { VZ {}{ x y setpixel /VZ true def } ifelse } ifelse
+ } for
+ \ifPst@saveData Pst@data (]\string\n) writestring \fi
+ } for
%
\iffalse
/x xMin def /y yMin def Func 0.0 lt { /VZ false def } if % erster Wert