%!PS-Adobe-2.0
%%Title: Blue Book Program 7, on page 157
%%Creator: Adobe Systems Incorporated 
%%CreationDate: Thu Dec 28 13:23:13 PST 1989
%%EndComments

/scdict 3 dict def
/scshow
	{ scdict begin
	  
	  gsave 
	    currentfont [.9 0 0 findscscale 0 0] makefont
	    setfont
	    show
	    currentpoint
	  grestore
	  moveto
	  end
	} 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 capheight xheight sub 3 div add 
 		  capheight div
 		} def
end

/Times-Roman findfont 18 scalefont setfont
72 500 moveto
(To read means to obtain meaning from) show
( words, and) show

72 500 20 sub moveto
(legibility is ) show
(THAT QUALITY WHICH) scshow
( enables words) show

72 500 20 2 mul sub moveto
(to be read easily, quickly, and accurately.) show

72 500 70 sub moveto
(JOHN C. TARR) scshow

showpage
	
	
% But what does it do?