From 02a4fc71679895429385a94acdbd1f9f37a23b13 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 2 Feb 2014 21:54:34 +0000 Subject: pst-func (2feb14) git-svn-id: svn://tug.org/texlive/trunk@32849 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/pst-func/pst-func.tex | 23 +++++++++++++++++++--- 1 file changed, 20 insertions(+), 3 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pst-func') 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} -- cgit v1.2.3