summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-02-02 21:54:34 +0000
committerKarl Berry <karl@freefriends.org>2014-02-02 21:54:34 +0000
commit02a4fc71679895429385a94acdbd1f9f37a23b13 (patch)
treeb837ad5edc38aafc0bc832178a015eb3e9c522c9 /Master/texmf-dist/tex
parent72e8e6ddb9402812e9f0bf1920bba7dd00bd2a36 (diff)
pst-func (2feb14)
git-svn-id: svn://tug.org/texlive/trunk@32849 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r--Master/texmf-dist/tex/generic/pst-func/pst-func.tex23
1 files changed, 20 insertions, 3 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 61a731c32bc..3ced97eacaf 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 625 2012-01-15 20:56:13Z herbert $
+%% $Id: pst-func.tex 883 2014-02-01 16:47:25Z herbert $
%%
%% This is file `pst-func.tex',
%%
@@ -30,8 +30,8 @@
% interface to the `xkeyval' package
\pst@addfams{pst-func}
%
-\def\fileversion{0.76}
-\def\filedate{2012/01/13}
+\def\fileversion{0.77}
+\def\filedate{2014/02/01}
\message{`PST-func' v\fileversion, \filedate\space (hv)}
%
\pstheader{pst-func.pro}
@@ -944,6 +944,23 @@
t 180 gt { neg } if }
\endgroup\ignorespaces}
%
+\def\psWeierstrass{\pst@object{psWeierstrass}}
+\def\psWeierstrass@i(#1,#2)#3{%
+ \addbefore@par{plotpoints=500}%
+ \begin@SpecialObj
+ \psplot{#1}{#2}{
+ /ps@a #3 def
+ /ps@k 1 def
+ /ps@WS 0 def
+ {
+ ps@k ps@a exp Pi mul dup x mul RadtoDeg sin exch div
+ dup abs 1e-8 gt { ps@WS add /ps@WS ED }{ ps@WS add exit } ifelse
+ ps@k 1 add /ps@k ED
+ } loop
+ }
+ \end@SpecialObj
+}
+%
% For polar plots
%\define@boolkey[psset]{pst-func}[PstAdd@]{polarplot}[true]{}
%\psset[pst-func]{polarplot=false}