%!PS-Adobe-2.0
%%Pages: 0 1
%%BoundingBox: 0 0 612 792
%%EndComments
gsave
% First, colors
/DarkBlue {1 1 .3 0 setcmykcolor}def
/VeryDarkBlue {1 1 .6 0 setcmykcolor}def
/LightBlue {0.9 0.9 0 0 setcmykcolor}def
/UltraLightBlue {0.04 0.04 0 0 setcmykcolor}def
/DarkGreen {1 0.3 1 0 setcmykcolor}def
/VeryDarkGreen {1 0.6 1 0 setcmykcolor}def
/LightGreen {0.9 0 0.9 0 setcmykcolor}def  % was 0.9 0 0.9 0
/UltraLightGreen {0.1 0 0.1 0 setcmykcolor}def % was 0.05 0 0.05 0

/inter { % stack x1f y1f x2f y2f u1f v1f u2f v2f, two intersecting lines
   /v2f exch def
   /u2f exch def
   /v1f exch def
   /u1f exch def
   /y2f exch def
   /x2f exch def
   /y1f exch def
   /x1f exch def
   x1f x2f sub abs 0.000001 lt {
      /n v2f v1f sub u2f u1f sub div def
      x1f  % return xInter
      n x1f mul v1f add n u1f mul sub % return yInter
   }  {
         u1f u2f sub abs 0.000001 lt {
            /mf y2f y1f sub x2f x1f sub div def
            u1f  % return xInter
            mf u1f mul y1f add mf x1f mul sub % return yInter
         }  {
            /mf y2f y1f sub x2f x1f sub div def
            /n v2f v1f sub u2f u1f sub div def
            v1f n u1f mul sub y1f sub mf x1f mul add mf n sub div %return xInter
            mf v1f mul mf n mul u1f mul sub n y1f mul sub mf n mul x1f mul add 
                mf n sub div % return yInter
         } ifelse
   } ifelse
} def


/everything{

/space 0.05 def
/m 7 def
/alf 360 m div def
/delta 1 1 space add alf cos mul sub def

/calcxs {
/t 1 delta sub def
/tp 1 space add def
/tq 1 delta sub space sub def
 /x10 tq alf cos mul def
 /y10 tq alf sin mul def
 /x11 tq 3 alf mul cos mul def
 /y11 tq 3 alf mul sin mul def
 /x12 2 alf mul cos def
 /y12 2 alf mul sin def
 /x13 t 2 alf mul cos mul def
 /y13 t 2 alf mul sin mul def
 /x14 t 2 neg alf mul cos mul def
 /y14 t 2 neg alf mul sin mul def
 /x15 2 neg alf mul cos def
 /y15 2 neg alf mul sin def
 /x16 tp alf neg cos mul def
 /y16 tp alf neg sin mul def
 /x17 tp alf cos mul def
 /y17 tp alf sin mul def

 /x1 0 cos def
 /y1 0 sin def
 x10  y10  x11  y11  x1  y1  x12  y12 inter
 /y2 exch def
 /x2 exch def

 /x4 t 0 cos mul def
 /y4 t 0 sin mul def
 x10  y10  x11  y11  x4  y4  x13  y13 inter
 /y3 exch def
 /x3 exch def

 x4  y4  x14  y14  x16  y16  x17  y17 inter
 /y5 exch def
 /x5 exch def

 x1  y1  x15  y15  x16  y16  x17  y17 inter
 /y6 exch def
 /x6 exch def

 %% other delta calculation
 1 0
 2 alf mul cos 2 alf mul sin
 alf cos alf sin
 3 alf mul cos 3 alf mul sin
 inter
 /xSpec exch def
 /ySpec exch def
 /delta2 1 xSpec alf cos div sub space alf sin mul sub def
} def % calcxs

/drawPart {
newpath
   x1 y1 moveto
   x2 y2 lineto
   x3 y3 lineto
   x4 y4 lineto
   x5 y5 lineto
   x6 y6 lineto
   closepath
   fill
} def

/plotPts {
   /Times-Bold findfont .05 scalefont setfont
   0 0 moveto (0) show
   x1 y1 moveto (1) show
   x2 y2 moveto (2) show
   x3 y3 moveto (3) show
   x4 y4 moveto (4) show
   x5 y5 moveto (5) show
   x6 y6 moveto (6) show
   x10 y10 moveto (10) show
   x11 y11 moveto (11) show
   x12 y12 moveto (12) show
   x13 y13 moveto (13) show
   x14 y14 moveto (14) show
   x15 y15 moveto (15) show
   x16 y16 moveto (16) show
   x17 y17 moveto (17) show
   0.1 linewidth
   %0 0 moveto newpath 0 0 1 0 360 arc closepath fill
} def

% DarkBlue
% LightBlue
DarkGreen

calcxs
gsave
  70 675 translate
  50 50 scale
  1 1 m { pop alf rotate drawPart } for
grestore

% UltraLightBlue
UltraLightGreen
/space .04 def
/delta .28 def
calcxs
gsave
  306 325 translate
  200 200 scale
  1 1 m { pop alf rotate drawPart } for
grestore

% DarkBlue
% LightBlue
DarkGreen

/delta .73 def
/space .04 def
calcxs 
gsave
  540 710 translate
  alf 2 div rotate
  50 50 scale
  1 1 m { pop alf rotate drawPart } for
grestore

% Black
% VeryDarkBlue
% DarkBlue
VeryDarkGreen

/Bookman-Demi findfont [19.5 0 0 22.3 0 0] makefont setfont
106 688 moveto (The University of Texas at San Antonio) show

/Bookman-Demi findfont [13.3 0 0 13 0 0] makefont setfont
337 740 moveto (Computer Science Dept) show
/Bookman-Demi findfont [12.7 0 0 13 0 0] makefont setfont
337 727 moveto (San Antonio Texas) show
/Bookman-Demi findfont 11.1 scalefont setfont
  ( 78249) show
/Bookman-Demi findfont [9.2 0 0 11 0 0] makefont setfont
337 715 moveto (210 458 4453 Fax 210 458 4437) show

/Bookman-Demi findfont 13 scalefont setfont
123 664 moveto (Dr Neal R Wagner   ) show
/Bookman-Demi findfont [13.5 0 0 13 0 0] makefont setfont
    (Assoc Prof) show
/Bookman-Demi findfont 13 scalefont setfont
106 651 moveto (wagner@cs.utsa.edu   ) show
/Bookman-Demi findfont [10.4 0 0 11 0 0] makefont setfont
(210 458 5550) show
/Bookman-Demi findfont [12.6 0 0 13 0 0] makefont setfont
106 638 moveto (http://www.cs.utsa.edu/~wagner/) show

} def % everything

1 1 scale
%% -90 -660 translate
everything

grestore