%!PS-Adobe-2.0
%%Pages: 0 1
%%BoundingBox: 0 0 612 792
%%EndComments
/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 findfont 12.6 scalefont setfont
  100 0 110 180 270 arc
 350 0 110 270 0 arc
 (University of Texas at San Antonio, \
San Antonio, Texas 78249  \267  Tel: (210)691-4452\
 \267 Fax: (210)691-4439) 0 pathtext
 } def
/upper
{
  /Helvetica findfont 13 scalefont setfont
  newpath
  100 0 102 180 90 arcn
  350 0 102 90 0 arcn
  (Division of Mathematics, Computer Science, \
and Statistics  \267  College of Sciences and Engineering)
  0 pathtext
} def
/uppery { 650 } def
/lowery {200} def
/blackout
{ newpath
  -50 -50 moveto
  612 50 add -50 lineto
  612 50 add 792 50 add lineto
  -50 792 50 add lineto
  closepath
} def
/doit {
blackout
0 setgray
fill

1 setgray
150 lowery 99 180 270 arc
400 lowery 99 270 0 arc 
400 lowery 113 0 270 arcn
150 lowery 113 270 180 arcn
closepath fill
gsave
50 lowery translate
0 setgray % was 1
lower
1 setgray % was 0
grestore
150 uppery 99 180 90 arcn
400 uppery 99 90 0 arcn 
400 uppery 113 0 90 arc
150 uppery 113 90 180 arc
closepath fill
gsave
50 uppery translate
0 setgray % was 1
upper
1 setgray % was 0
grestore
51 lowery moveto
51 uppery lineto
37 uppery lineto
37 lowery lineto
closepath fill
513 lowery moveto
513 uppery lineto
499 uppery lineto
499 lowery lineto
closepath fill

0 setgray % was 1
44 10 lowery add 2 180 0 arc
44 uppery 10 sub 2 0 180 arc
closepath fill
506 10 lowery add 2 180 0 arc
506 uppery 10 sub 2 0 180 arc
closepath fill
1 setgray % was 0
 /Times-Bold findfont 47 scalefont setfont
  %newpath 100 630 moveto (COLLOQUIUM) false charpath
  %fill
  %newpath 100 630 moveto (COLLOQUIUM) false charpath
  %2 setlinewidth stroke
  %newpath 100 630 moveto 0 setgray % was 1
  %(COLLOQUIUM) false charpath
  %1 setlinewidth stroke
  %1 setgray % was 0
  newpath 170 600 moveto (SEMINAR) false charpath
  fill
  newpath 170 600 moveto (SEMINAR) false charpath
  2 setlinewidth stroke
  newpath 170 600 moveto 0 setgray % was 1
  (SEMINAR) false charpath
  1 setlinewidth stroke
} def   %doit
33 -27 translate % -50 -33 add -685 translate
doit
showpage