diff options
| author | Karl Berry <karl@freefriends.org> | 2017-12-03 22:19:10 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2017-12-03 22:19:10 +0000 |
| commit | 3864d9407972dec949ebd588a084249aa5855380 (patch) | |
| tree | 5caa9a27429180aa26c3e153c8672db359d715ca /Master/texmf-dist/dvips | |
| parent | e72d523402a19a7e892e5bb851b7ef858956aff3 (diff) | |
pst-tools (3dec17)
git-svn-id: svn://tug.org/texlive/trunk@45978 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
| -rw-r--r-- | Master/texmf-dist/dvips/pst-tools/pst-tools.pro | 39 |
1 files changed, 32 insertions, 7 deletions
diff --git a/Master/texmf-dist/dvips/pst-tools/pst-tools.pro b/Master/texmf-dist/dvips/pst-tools/pst-tools.pro index 9386a166064..4b7ba7a8fd3 100644 --- a/Master/texmf-dist/dvips/pst-tools/pst-tools.pro +++ b/Master/texmf-dist/dvips/pst-tools/pst-tools.pro @@ -1,7 +1,7 @@ % $Id: pst-tools.pro 842 2013-10-26 10:25:41Z herbert $ % %% PostScript tools prologue for pstricks.tex. -%% Version 0.05, 2017/11/29 +%% Version 0.06, 2017/12/03 %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN archives @@ -210,12 +210,37 @@ end pop } bind def % -/concatstrings % (a) (b) -> (ab) - { exch dup length - 2 index length add string - dup dup 4 2 roll copy length - 4 -1 roll putinterval - } bind def +/concatstrings{ % (a) (b) -> (ab) + 1 dict begin + exch dup length + 2 index length add string + dup dup 4 2 roll copy length + 4 -1 roll putinterval + end +} def +% +/reversestring { % (aBC) -> (CBa) + 5 dict begin + /str exch def + /L str length def + /strTemp L string def + /i 0 def + L { + /I L 1 sub i sub def + strTemp i str I 1 getinterval putinterval + /i i 1 add def + } repeat + strTemp + end +} def +% +/concatarray{ % [a c] [b d] -> [a c b d] + 2 dict begin + /a2 exch def + /a1 exch def + [ a1 aload pop a2 aload pop ] + end +} def % /dot2comma {% on stack a string (...) 2 dict begin |