🚀 go-pugleaf

In article <DAVIS.90Oct31164243@pacific.mps.ohio-state.edu> davis@pacific.mps.ohio-state.edu  (John E. Davis) writes:
>Hi,
>
>   What is the easies way I can concatenate two strings of different fonts to
>produce a third string?  I don't care if the two original strings are lost in
>the process-- I only need the result.  An example would be greatly appreciated.

Here's an example string-concatenating procedure that is in my new book,
"Thinking in PostScript" (which I just saw lots of copies of in our local
bookstore!); I'll leave out the error checking code that raises a typecheck
if it isn't passed two strings.

There are lots of ways to do it, naturally, but here's one approach:

/concatenate
{ %def
	dup length 2 index length add string
	dup 0 4 index putinterval
	dup 4 -1 roll length 4 -1 roll putinterval
} bind def


% Glenn

-- 
 Glenn Reid				RightBrain Software
 glenn@heaven.woodside.ca.us		PostScript/NeXT developers
 ..{adobe,next}!heaven!glenn		415-851-1785