🚀 go-pugleaf

In article <3bb589d0.-1@webx.la2eafNXanI>,
 Attila_Kirjak@adobeforums.com wrote:

> Could anyone confirm if this code snippet is working properly or multiple 
> calls of MoveRight might cause a stack overflow?
> 
> %%
> /MoveRight {
> stringwidth pop
> neg 0 rmoveto } def
> %%
> 171 395 moveto
> gsave
> (Some Text Comes Here) MoveRight
> (Some Text Comes Here) show
> grestore
> %%

The procedure doesn't leave anything on the stack, but it's not very 
efficient having to supply the text twice; the "gsave" and "grestore" 
operators are also unnecessary (unless you'll also be temporarily 
changing fonts, colours, co�rdinates, &c. in the code that falls between 
them). Instead you might try something like

%!
/FlushRight {
   dup stringwidth pop
   neg 0 rmoveto show} def
% ...
171 395 moveto
(Some Text) FlushRight

Note that at the end of this sequence the current point will be at 
(171,395) again, because the "show" operator will set it there after 
painting the text.

-- 
Odysseus