From 8fd740a32619f187dd09484ff3ee7efc8c80d044 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 26 Oct 2013 21:42:03 +0000 Subject: pst-tools (26oct13) git-svn-id: svn://tug.org/texlive/trunk@32002 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pst-tools') 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 81885f0fea8..1d30cb3d8b0 100644 --- a/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex +++ b/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex @@ -26,20 +26,25 @@ % interface to the `xkeyval' package \pst@addfams{pst-tools} % -\def\fileversion{0.02} -\def\filedate{2012/10/16} +\def\fileversion{0.04} +\def\filedate{2013/07/08} \message{`PST-tools' v\fileversion, \filedate\space (hv)} % \define@boolkey[psset]{pst-tools}[Pst@]{dot}[true]{} \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}} \define@key[psset]{pst-tools}{postString}[]{\def\psk@postString{#1}} +\define@key[psset]{pst-tools}{VarName}[]{\def\psk@VarName{#1 }} \define@key[psset]{pst-tools}{PSfont}[Times-Roman]{\def\psk@PSfont{/#1 }} \define@key[psset]{pst-tools}{valuewidth}[10]{\pst@getint{#1}\psk@valuewidth } \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,dot,trimSpaces=false,postString={}} + xShift=0,yShift=0,dot,trimSpaces=false,postString={},VarName={}} +% +\def\txG{ true setglobal globaldict begin } +\def\etxG{ end false setglobal } % \def\psPrintValue{\pst@object{psPrintValue}} \def\psPrintValue@i#1{\expandafter\psPrintValue@ii#1,,\@nil} @@ -52,13 +57,14 @@ /Func (#2) tx@AlgToPs begin AlgToPs end cvx def Func \else #1 \fi + \ifx\relax\psk@VarName\relax\else dup \txG 10 string cvs /\psk@VarName\space exch def \etxG \fi \psk@decimals -1 gt { 10 \psk@decimals exp dup 3 1 roll mul cvi exch div } if \psk@valuewidth string cvs %/Output exch def % save output %/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 - \psk@xShift\space 0 moveto %Output + \psk@xShift\space \psk@yShift\space moveto %Output show grestore }% \end@SpecialObj% -- cgit v1.2.3