%! % This was taken from pages 89,90 of the "Tutorial and Cookbook" % ----- Variables and Procedures ----- /RM 780 def % Top Margin /BM -12 def % Bottom /LM 0 def % Left /TM 612 def % Right /newline { currentpoint 43 sub exch pop LM exch moveto } def /nlIfNec { currentpoint pop RM gt % beyond RM? {newline} if } def % yes: next line /done? % stack: --- bool { currentpoint exch pop % below BM? BM lt } def /fillpage % stack: str { /strg exch def { {pop pop nlIfNec} strg kshow done? {exit} if } loop } def % ------ Begin Program ----- TM 0 translate 90 rotate /TEXT (8) def /NewCenturySchlbk-Bold findfont [1000 0 0 570 0 0] makefont setfont 100 100 moveto TEXT true charpath gsave 0.33 setgray fill % Big number, medium dark /Times-Bold findfont 30 scalefont setfont LM TM moveto 0.66 setgray % background text, medium light ( Joe+Sally Chris+John ) fillpage grestore 0 setgray % Outline of number, black 20 setlinewidth stroke showpage