summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-tools
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-05-13 23:04:07 +0000
committerKarl Berry <karl@freefriends.org>2017-05-13 23:04:07 +0000
commit55dd4961f5962a5f572edacaf19fddadc6022a52 (patch)
tree401e7459e1b70ce2eebb229967d53347945e9198 /Master/texmf-dist/tex/generic/pst-tools
parentb7fab51d96dd24156ed95ec299a256d752664b5d (diff)
pst-tools (13may17)
git-svn-id: svn://tug.org/texlive/trunk@44320 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.tex21
1 files changed, 12 insertions, 9 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 7303d83c49d..ef84306fd98 100644
--- a/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex
+++ b/Master/texmf-dist/tex/generic/pst-tools/pst-tools.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-tools.tex 599 2011-11-03 19:38:28Z herbert $
+%% $Id: pst-tools.tex 456 2017-05-12 19:35:55Z herbert $
%%
%% This is file `pst-tools.tex',
%%
@@ -26,8 +26,8 @@
% interface to the `xkeyval' package
\pst@addfams{pst-tools}
%
-\def\fileversion{0.05}
-\def\filedate{2014/05/12}
+\def\fileversion{0.06}
+\def\filedate{2017/05/12}
\message{`PST-tools' v\fileversion, \filedate\space (hv)}
%
\define@key[psset]{pst-tools}{decimalSeparator}[.]{\def\psk@decimalSeparator{#1}}%
@@ -49,6 +49,8 @@
\def\txG{ true setglobal globaldict begin }
\def\etxG{ end false setglobal }
%
+\newpsstyle{mmpaper}{subgriddiv=5,gridlabels=0,gridwidth=1pt,gridcolor=orange,subgridwidth=0.1pt,subgridcolor=orange!90}
+%
\def\psPrintValue{\pst@object{psPrintValue}}
\def\psPrintValue@i#1{\expandafter\psPrintValue@ii#1,,\@nil}
\def\psPrintValue@ii#1,#2,#3\@nil{% #1,#2 only for algebraic code
@@ -77,9 +79,10 @@
\define@boolkey[psset]{pst-tools}[Pst@]{science}[true]{%
\ifPst@science\def\psk@Scin{true }\else\def\psk@Scin{false }\fi}
\psset[pst-tools]{science=false,round=false}
+%
\def\psPrintValueNew{\pst@object{psPrintValueNew}}
-\def\psPrintValueNew@i#1{\expandafter\psPrintValueNew@ii#1,,\@nil}
-\def\psPrintValueNew@ii#1,#2,#3\@nil{% #1,#2 only for algebraic code
+\def\psPrintValueNew@i#1{\expandafter\psPrintValueNew@ii#1,,!!}
+\def\psPrintValueNew@ii#1,#2,#3!!{% #1,#2 only for algebraic code
\begin@SpecialObj
\addto@pscode{ % thanks to Buddy Ledger
/mfont { \psk@PSfont findfont \psk@fontscale scalefont setfont } bind def
@@ -90,13 +93,13 @@
/Func (#2) tx@AlgToPs begin AlgToPs end cvx def
Func
\else #1 \fi
- /value ED
+ /value exch def
\psk@Scin {
- value 0 ne { value log floor cvi /expon ED }{ /expon 0 def } ifelse
+ value 0 ne { value log floor cvi /expon exch def }{ /expon 0 def } ifelse
value 10 expon exp div
\psk@decimals -1 gt { 10 \psk@decimals exp dup 3 1 roll mul
\ifPst@round round \else cvi \fi exch div } if
- \psk@decimals 0 eq { cvi } if /numb ED
+ \psk@decimals 0 eq { cvi } if /numb exch def
expon \psk@valuewidth string cvs /expon exch def
numb \psk@valuewidth string cvs
\ifPst@comma dot2comma \fi % do we have to change dot to comma
@@ -116,7 +119,7 @@
show
} ifelse
}%
- \end@SpecialObj%
+ \end@SpecialObj
}
%
\catcode`\@=\PstAtCode\relax