diff options
author | Norbert Preining <norbert@preining.info> | 2021-09-14 03:03:34 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-09-14 03:03:34 +0000 |
commit | 1666f2f182d9f9fb45ef8aa275b477d3264ef1cb (patch) | |
tree | 1f0104d5a5a8d31e9bc6671f2c1e72ed27a36ad7 /graphics/pstricks/contrib/pst-tools/dvips | |
parent | e403b5892f209477e44b123a10b5b35cc425d8e9 (diff) |
CTAN sync 202109140303
Diffstat (limited to 'graphics/pstricks/contrib/pst-tools/dvips')
-rw-r--r-- | graphics/pstricks/contrib/pst-tools/dvips/pst-tools.pro | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/graphics/pstricks/contrib/pst-tools/dvips/pst-tools.pro b/graphics/pstricks/contrib/pst-tools/dvips/pst-tools.pro index 4b7ba7a8fd..bc059faafa 100644 --- a/graphics/pstricks/contrib/pst-tools/dvips/pst-tools.pro +++ b/graphics/pstricks/contrib/pst-tools/dvips/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 |