summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-tools
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-10-26 21:42:03 +0000
committerKarl Berry <karl@freefriends.org>2013-10-26 21:42:03 +0000
commit8fd740a32619f187dd09484ff3ee7efc8c80d044 (patch)
tree10eae9424c316849a7f29ab872f346ca46f28e35 /Master/texmf-dist/tex/generic/pst-tools
parentc6b08c07fcd3b89fa78aae8d84283366454b0d9a (diff)
pst-tools (26oct13)
git-svn-id: svn://tug.org/texlive/trunk@32002 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.tex14
1 files changed, 10 insertions, 4 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 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%