diff options
| author | Karl Berry <karl@freefriends.org> | 2021-09-14 20:24:50 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2021-09-14 20:24:50 +0000 |
| commit | 76b7312019d63997d093e1f87e178d656b68a4fb (patch) | |
| tree | 907f7befbdc6dbbba28d5dc09adf0abfe480e996 /Master/texmf-dist/dvips/pst-tools | |
| parent | f751fc4bd5f7fb3267af8e42e41ff23d61e79d9c (diff) | |
pst-tools (14sep21)
git-svn-id: svn://tug.org/texlive/trunk@60507 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-tools')
| -rw-r--r-- | Master/texmf-dist/dvips/pst-tools/pst-tools.pro | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/texmf-dist/dvips/pst-tools/pst-tools.pro b/Master/texmf-dist/dvips/pst-tools/pst-tools.pro index 4b7ba7a8fd3..bc059faafad 100644 --- a/Master/texmf-dist/dvips/pst-tools/pst-tools.pro +++ b/Master/texmf-dist/dvips/pst-tools/pst-tools.pro @@ -174,7 +174,7 @@ %% code de Bill Casselman %% http://www.math.ubc.ca/people/faculty/cass/graphics/text/www/ /bubblesort { % on stack must be an array [ ... ] -4 dict begin + 4 dict begin /a exch def /n a length 1 sub def n 0 gt { @@ -199,7 +199,7 @@ } repeat } if a % return the sorted array -end + end } def % /concatstringarray{ % [(a) (b) ... (z)] --> (ab...z) 20100422 @@ -211,12 +211,10 @@ end } 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) @@ -254,6 +252,7 @@ end } def % /rightTrim { % on stack the string and the character number to be stripped + 1 dict begin /charNo exch def dup length 1 sub -1 0 { @@ -261,6 +260,7 @@ end } for 0 i 1 add getinterval dup length string copy + end } bind def % leaves the stripped string on the stack /psStringwidth /stringwidth load def |