%!PS-Adobe-2.0
save
   15 -525 moveto
   38 rotate
   /Times-Bold findfont 210 scalefont setfont
   .90 setgray
   (UTSA) show
restore

gsave
/pathtextdict 26 dict def

/pathtext
 {pathtextdict begin
  /offset exch def
  /str exch def
  
  /pathdist 0 def
  /setdist offset def
  /charcount 0 def
  gsave
   flattenpath
   {movetoproc} {linetoproc}
    {curvetoproc} {closepathproc}
    pathforall
  grestore
  newpath
  end
 } def
pathtextdict begin
/movetoproc
 {/newy exch def /newx exch def
  /firstx newx def /firsty newy def
  /ovr 0 def
  newx newy transform
  /cpy exch def /cpx exch def
 } def

/linetoproc
 {/oldx newx def /oldy newy def
  /newy exch def /newx exch def
  /dx newx oldx sub def
  /dy newy oldy sub def
  /dist dx dup mul dy dup mul add sqrt def
  dist 0 ne
   {/dsx dx dist div ovr mul def
    /dsy dy dist div ovr mul def
    oldx dsx add oldy dsy add transform
    /cpy exch def /cpx exch def
    /pathdist pathdist dist add def
    {setdist pathdist le
     {charcount str length lt
      {setchar} {exit} ifelse}
     {/ovr setdist pathdist sub def
      exit}
     ifelse
    } loop
   } if
 } def
/curvetoproc
 {(ERROR: No curveto's after flattenpath!) print
 } def

/closepathproc
 {firstx firsty linetoproc
  firstx firsty movetoproc
 } def

/setchar
 {/char str charcount 1 getinterval def
  /charcount charcount 1 add def
  /charwidth char stringwidth pop def
  gsave
   cpx cpy itransform translate
   dy dx atan rotate
   0 0 moveto char show
   currentpoint transform
   /cpy exch def /cpx exch def
  grestore
  /setdist setdist charwidth add def
 } def
end

/lower
 {
  newpath
  /Helvetica-Bold findfont 14 scalefont setfont
  -10 50 moveto
  -10 0 lineto
  100 0 110 180 270 arc
 350 0 110 270 0 arc
 460 50 lineto
 (University of Texas at San Antonio, \
San Antonio, Texas 78285  \267  Tel: (512)691-4452\
 \267 Fax: (512)691-4439) 0 pathtext
 } def
/upper
{
  /Helvetica-Bold findfont 14 scalefont setfont
  newpath
  0 -50 moveto
  0 0 lineto
  100 0 100 180 90 arcn
  350 0 100 90 0 arcn
  450 -50 lineto
  ( Division of Mathematics, Computer Science, \
and Statistics  \267  College of Sciences and Engineering)
  0 pathtext
} def
/uppery { 650 } def
/doborder {
gsave
50 200 translate
lower
grestore
gsave
50 uppery translate
upper
grestore
1.5 setlinewidth
50 206 50 add moveto
50 uppery 53 sub lineto
40 uppery 53 sub lineto
40 206 50 add lineto
closepath stroke
510 203 50 add moveto
510 uppery 53 sub lineto
500 uppery 53 sub lineto
500 203 50 add lineto
closepath stroke
} def % end of doborder
gsave
  23 -5 translate %  -80 -680 translate
  doborder
grestore
/printitall {
 /Helvetica findfont 43 scalefont setfont
/printAnn
{
  newpath 90 600 moveto (ANNOUNCEMENT) false charpath
  fill
} def
gsave
1 1 13
{ pop .25 -.25 translate printAnn} for
grestore
1 setgray
  newpath 90 600 moveto (ANNOUNCEMENT) false charpath
  fill
} def % of printitall
gsave
   23 -5 translate% -80 -630 translate
  printitall
grestore
%0 setgray 0.5 setlinewidth
%  newpath 90 600 moveto (ANNOUNCEMENT) false charpath
%  stroke
grestore