🚀 go-pugleaf

In article <1992Jul21.020653.22903@news.eng.convex.com> datri@convex.com
(Anthony A. Datri) writes:
>
>Oops.  Here's the code:

I modified the code just a tad to make it more general.
Now you can substitute for the first and second words and the underlying
text directly.  It makes a nice sign to put on your door...

%!PS
% Anthony A. Datri datri@convex.com wrote the orignial code;
% 1992 July 20
% modified by:
%  Tom Schneider
%  National Cancer Institute
%  Laboratory of Mathematical Biology
%  Frederick, Maryland  21702-1201
%  toms@ncifcrf.gov

% Generate filled words

/firstword (Tom) def
/secondword (Schneider) def
/underlie (Laboratory of Mathematical Biology) def

/RM 780 def
/TM 612 def
/LM 0 def
/BM -12 def

/newline { currentpoint 13 sub
           exch pop LM
           exch moveto } def
/nllfNec {currentpoint pop RM gt
         {newline} if } def
/done? {currentpoint exch pop
        BM lt } def
/fillpage {
/strg exch def
            { { pop pop nllfNec} strg kshow
               done? {exit} if
            } loop
          } def

clippath stroke
-90 rotate -780 0 translate
/ZapfChancery-MediumItalic findfont
%/Times-Roman findfont
200 scalefont setfont
RM firstword stringwidth pop sub
2 div
TM 2 div 50 add moveto
firstword true charpath
RM secondword stringwidth pop sub
2 div
TM 2 div 150 sub moveto
secondword true charpath
%/Times-Roman findfont 20 scalefont setfont
stroke newpath
RM firstword stringwidth pop sub
2 div
TM 2 div 50 add moveto
firstword true charpath
RM secondword stringwidth pop sub
2 div
TM 2 div 150 sub moveto
secondword true charpath
clip
%LM TM moveto .5 setgray
newpath
LM TM moveto
/Helvetica findfont 10 scalefont setfont
underlie fillpage
/Courier findfont pop
showpage