summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-tools
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-05-16 21:12:50 +0000
committerKarl Berry <karl@freefriends.org>2014-05-16 21:12:50 +0000
commit1c26998ba324331b711efc275ccf9768955b03da (patch)
tree84faa894e1be71b207d297620973e14dd4ef6b18 /Master/texmf-dist/tex/generic/pst-tools
parent94365af0a08973d86dbc35062e45d224cf74f5f5 (diff)
pst-tools (16may14)
git-svn-id: svn://tug.org/texlive/trunk@34067 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-tools')
-rw-r--r--Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex17
1 files changed, 10 insertions, 7 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex b/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex
index 1d30cb3d8b0..7303d83c49d 100644
--- a/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex
+++ b/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex
@@ -26,11 +26,13 @@
% interface to the `xkeyval' package
\pst@addfams{pst-tools}
%
-\def\fileversion{0.04}
-\def\filedate{2013/07/08}
+\def\fileversion{0.05}
+\def\filedate{2014/05/12}
\message{`PST-tools' v\fileversion, \filedate\space (hv)}
%
-\define@boolkey[psset]{pst-tools}[Pst@]{dot}[true]{}
+\define@key[psset]{pst-tools}{decimalSeparator}[.]{\def\psk@decimalSeparator{#1}}%
+\define@boolkey[psset]{pst-tools}[Pst@]{comma}[true]{%
+ \ifPst@comma\def\psk@decimalSeparator{,}\else\def\psk@decimalSeparator{.}\fi}
\define@boolkey[psset]{pst-tools}[Pst@]{trimSpaces}[true]{}
\define@key[psset]{pst-tools}{xShift}[0]{\def\psk@xShift{#1}}
\define@key[psset]{pst-tools}{yShift}[0]{\def\psk@yShift{#1}}
@@ -41,7 +43,8 @@
\define@key[psset]{pst-tools}{fontscale}[10]{\pst@checknum{#1}\psk@fontscale }
\define@key[psset]{pst-tools}{decimals}[-1]{\pst@getint{#1}\psk@decimals }
\psset[pst-tools]{PSfont=Times-Roman,fontscale=10,valuewidth=10,decimals=-1,
- xShift=0,yShift=0,dot,trimSpaces=false,postString={},VarName={}}
+ xShift=0,yShift=0,trimSpaces=false,postString={},VarName={},
+ comma=false,decimalSeparator=.}
%
\def\txG{ true setglobal globaldict begin }
\def\etxG{ end false setglobal }
@@ -63,7 +66,7 @@
%/concatstringarray{ % [(a) (b) ... (z)] --> (ab...z) 20100422
\ifx\relax\psk@postString\relax\else [ exch (\psk@postString) ] concatstringarray \fi
\ifPst@trimSpaces rightTrim \fi
- \ifPst@dot dot2comma \fi % do we have to change dot to comma
+ \ifPst@comma dot2comma \fi % do we have to change dot to comma
\psk@xShift\space \psk@yShift\space moveto %Output
show grestore
}%
@@ -96,7 +99,7 @@
\psk@decimals 0 eq { cvi } if /numb ED
expon \psk@valuewidth string cvs /expon exch def
numb \psk@valuewidth string cvs
- \ifPst@dot dot2comma \fi % do we have to change dot to comma
+ \ifPst@comma dot2comma \fi % do we have to change dot to comma
/Output exch def
/txspc \psk@fontscale 4 div def
\psk@xShift\space 0 moveto mfont Output show
@@ -108,7 +111,7 @@
\ifPst@round round \else cvi \fi exch div } if
\psk@decimals 0 eq { cvi } if %inserted to handle decimals=0
\psk@valuewidth string cvs
- \ifPst@dot dot2comma \fi % do we have to change dot to comma
+ \ifPst@comma dot2comma \fi % do we have to change dot to comma
\psk@xShift\space 0 moveto mfont %Output
show
} ifelse