%!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
   /Times-Roman findfont 17 scalefont setfont
   15 252 moveto
   (Computer Science Department) show
   15 234 moveto
   (San Antonio, Texas  78249) show
} def
/lowerright
{  /Times-Roman findfont 17 scalefont setfont
   (210.458.5550, Fax: 210.458.4437) stringwidth pop
   535 exch sub 54 moveto
   (210.458.5550, Fax: 210.458.4437) show
   /Times-Roman findfont 17 scalefont setfont
   (E-mail: neal.wagner@gmail.com) stringwidth pop
   535 exch sub 34 moveto
   (E-mail: neal.wagner@gmail.com) show
   /Times-Roman findfont 17 scalefont setfont
   (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 .8 setgray NRWback grestore
   0 setgray AP
   gsave .8 setgray APback grestore
   0 0 moveto
   preUTSA true charpath stroke
   upperleft lowerright
} def

30 300 translate
printcard 

showpage