12 lines
208 B
PostScript
12 lines
208 B
PostScript
/reverse{
|
|
/str exch def
|
|
/temp str 0 get def
|
|
/i 0 def
|
|
str length 2 idiv{
|
|
/temp str i get def
|
|
str i str str length i sub 1 sub get put
|
|
str str length i sub 1 sub temp put
|
|
/i i 1 add def
|
|
}repeat
|
|
str pstack
|
|
}def
|