[comp.lang.postscript] character outlines or printing DRAFT in outline

apollo@ecf.toronto.edu (Vince Pugliese) (04/11/89)

%% have fun with this guys

%% outline font program 
%% Postscript Language Tutorial and Cookbook
%% page 203

/makeoutlinedict 7 dict def
/MakeOutlineFont
 {makeoutlinedict begin
  /uniqueid exch def
  /strokewidth exch def
  /newfontname exch def
  /basefontname exch def

  /basefontdict basefontname findfont def

  /numentries basefontdict maxlength 1 add def

  basefontdict /UniqueID known not
   { /numentries numentries 1 add def } if

     /outfontdict numentries dict def
  
   basefontdict
    { exch dup /FID ne
     { exch outfontdict 3 1 roll put }
     { pop pop }
    ifelse
    } forall
 
  outfontdict /FontName newfontname put
  outfontdict /PaintType 2 put
  outfontdict /StrokeWidth strokewidth put
  outfontdict /UniqueID uniqueid put
  
  newfontname outfontdict definefont pop
  end

} def

% 120 seems to give light enough lettering

/Helvetica-Bold /Helvetica-Outline1 1000 120 div

/Helvetica-Bold findfont dup /UniqueID known
 { /UniqueID get 1 add }
 { pop 1 }
 ifelse

MakeOutlineFont 

% borrowed from usenet
% andy malis posting

gsave
initmatrix 72 dup scale
/Helvetica-Outline1 findfont 1 scalefont setfont
(DRAFT) dup
stringwidth pop
4.5   5.5  translate
45 rotate 2 div neg 0 moveto
show
grestore

showpage
  
 

of course you are embedding this in another postscript file then delete the
showpage 
                             hope this helps