pst-func (2feb14)

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

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}