%!PS-Adobe-2.0
/length 130 def
/PrintLine { 0 0 moveto length 0 rlineto } def

/FadeBG
{ 0 .01 1 { newpath setgray PrintLine stroke 0 -1 translate } for
} def

/PrintTypeDepth
{ 0 setgray
  0 .125 1 { setgray 0 0 moveto (UTSA) show -.25 -.25 translate } for
} def

/Sheen
{ 2 2 moveto -2 -2 rmoveto
  (UTSA) true charpath clip
  0 -4 translate
  0 .03 1 { newpath setgray PrintLine stroke 0 1 translate } for
} def

/Helvetica-Oblique findfont 48 scalefont setfont
3 3 scale
20 50 translate
1.5 setlinewidth
gsave
   0 70 translate 0 setgray FadeBG
grestore

PrintTypeDepth Sheen
showpage