%% Printing with Small Caps
%%                PostScript Language Tutorial and Cookbook

/scdict 3 dict def
/scshow {
  scdict begin
    gsave
      currentfont [.9 0 0 findscscale 0 0] makefont setfont
      show currentpoint
      grestore
    moveto
    end
  } bind def

scdict begin
  /findscscale {
    gsave
      newpath 0 0 moveto(X)true charpath flattenpath pathbbox
      /capheight exch def pop pop pop
      newpath 0 0 moveto(x)true charpath flattenpath pathbbox
      /xheight exch def pop pop pop
      grestore
    xheight dup capheight exch sub 3 div add capheight div
    } bind def
  end

/Times-Roman findfont 18 scalefont setfont

72 500 moveto
  (To read means to obtain meaning from words, and)show
72 500 20 sub moveto
  (legibility is )show
  (THAT QUALITY WHICH)scshow
  ( enables words)show
72 500 40 sub moveto
  (to be read easily, quickly, and accurately.)show
72 500 70 sub moveto
  (JOHN C. TARR)scshow
showpage
