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