lettering akin to BBC's computer literacy project

computer_literacy_helvetica_outline.ps

%!PS-Adobe-2.0
%%BoundingBox: 36 400 286 550
%%HiResBoundingBox: 35.999999 399.995988 286.001991 550.007983
%%Title: modified from Blue Book Program 16, on page 203
%%EndComments

% scruss, 2022-05
% see https://stardot.org.uk/forums/viewtopic.php?f=3&t=24845

/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

/Helvetica-Bold /Helvetica-Outline1 1000 54 div 

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


  0 setgray
  36 400 250 150 rectfill
  0.6 setgray
/Helvetica-Outline1 findfont 36 scalefont setfont 
  72 504 moveto (computer) show
  72 504 36 sub moveto (literacy) show
  72 504 36 sub 36 sub moveto (project) show

showpage