summaryrefslogtreecommitdiff
path: root/graphics/pstricks/contrib/pst-tools/dvips/pst-tools.pro
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/pstricks/contrib/pst-tools/dvips/pst-tools.pro')
-rw-r--r--graphics/pstricks/contrib/pst-tools/dvips/pst-tools.pro8
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