diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex | 17 |
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 |