%!PS-Adobe-2.0
/border 
{  newpath
   0 0 moveto 550 0 rlineto 0 300 rlineto -550 0 rlineto
   closepath
   0.5 setlinewidth stroke
} def
/innerrect
{  newpath
   5 5 moveto 540 0 rlineto 0 290 rlineto -540 0 rlineto
   closepath
   0.5 setlinewidth stroke
} def
/preUTSA
{  /Times-Bold findfont 180 scalefont setfont
   (UTSA) stringwidth pop
   550 exch sub 2 div 0 rmoveto 0 80 rmoveto
   (UTSA) 
} def
/UTSA
{  0 0 moveto
   preUTSA true charpath
   gsave .95 setgray fill grestore
   stroke
} def
/NRW
{  /Times-Bold findfont 46 scalefont setfont
   5 0 moveto
   (Dr. Neal R. Wagner) stringwidth pop
   550 exch sub 2 div 0 rmoveto 0 135 rmoveto
   (Dr. Neal R. Wagner) show
} def
/NRWback
{  0 0 moveto
   preUTSA true charpath clip
   NRW
} def
/AP
{  /Times-Roman findfont 30 scalefont setfont
   0 0 moveto
   (Associate Professor of Computer Science) stringwidth pop
   550 exch sub 2 div 0 rmoveto 0 105 rmoveto
   (Associate Professor of Computer Science) show
} def
/APback
{  0 0 moveto
   preUTSA true charpath clip
   AP
} def
/upperleft
{  /Times-Roman findfont 17 scalefont setfont
   15 270 moveto
   (The University of Texas at San Antonio) show
   15 252 moveto
   (Computer Science Department) show
   15 234 moveto
   (San Antonio, Texas  78249) show
} def
/lowerright
{  /Times-Roman findfont 17 scalefont setfont
   (Tel: (210) 458-5550, Fax: (210) 458-4437) stringwidth pop
   535 exch sub 54 moveto
   (Tel: (210) 458-5550, Fax: (210) 458-4437) show
   (E-mail: wagner@cs.utsa.edu) stringwidth pop
   535 exch sub 34 moveto
   (E-mail: wagner@cs.utsa.edu) show
   (Web:  www.cs.utsa.edu/~wagner) stringwidth pop
   535 exch sub 14 moveto
   (Web:  www.cs.utsa.edu/~wagner) show
} def
/printcard
{  border innerrect UTSA
   0 setgray NRW
   gsave .5 setgray NRWback grestore
   0 setgray AP
   gsave .5 setgray APback grestore
   0 0 moveto
   preUTSA true charpath stroke
   upperleft lowerright
} def

30 300 translate
printcard 

showpage