summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-func
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2009-01-09 02:46:01 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2009-01-09 02:46:01 +0000
commit4b6d56d6a548fb8274ddaf58ada908e069a7ba90 (patch)
treeca245da243f9a346d45d658c6673ac04fe3bd865 /Master/texmf-dist/tex/generic/pst-func
parent79f180b0bb53942fafac31f52a8daf9ceaa77c68 (diff)
pst-func 0.58 2008/12/08
git-svn-id: svn://tug.org/texlive/trunk@11831 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.tex21
1 files changed, 17 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 dd9c71b80e5..4f07a235ddd 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 55 2008-11-14 12:01:12Z herbert $
+%% $Id: pst-func.tex 72 2009-01-08 22:00:47Z herbert $
%%
%% This is file `pst-func.tex',
%%
@@ -29,13 +29,19 @@
% interface to the `xkeyval' package
\pst@addfams{pst-func}
-\def\fileversion{0.57}
-\def\filedate{2008/11/14}
+\def\fileversion{0.58}
+\def\filedate{2008/12/08}
\message{`PST-func' v\fileversion, \filedate\space (hv)}
%
\pstheader{pst-func.pro}
\pstheader{pst-math.pro}% for GAMMALN
%
+% Shortcuts ....
+
+\def\ChebyshevT{ tx@FuncDict begin ChebyshevT end }
+\def\ChebyshevU{ tx@FuncDict begin ChebyshevU end }
+
+%
\define@key[psset]{pst-func}{xShift}[0]{\def\psk@xShift{#1}}
\psset[pst-func]{xShift=0}
%
@@ -322,7 +328,14 @@
\addto@pscode{
gsave \psk@PSfont findfont \psk@fontscale scalefont setfont
#1 \psk@decimals -1 gt { 10 \psk@decimals exp dup 3 1 roll mul cvi exch div } if
- \psk@valuewidth string cvs 0 0 moveto show grestore
+ \psk@valuewidth string cvs /Output exch def % save output
+ \ifPst@comma % do we have to change dot to comma
+ 0 1 Output length 1 sub {
+ /Index exch def
+ Output Index get 46 eq { Output Index 44 put } if
+ } for
+ \fi
+ 0 0 moveto Output show grestore
}%
\end@SpecialObj%
}