%!PS-Adobe-2.0

% really ratty PS code below; I was in a hurry
/s 50 def % font size is s*85/50
/t 70 def
/e 5 def

/DarkBlue {1 1 .2 0 setcmykcolor}def
/LightBlue {0.5 0.5 0 0 setcmykcolor}def
/Orange{0 0.61 0.87 0 setcmykcolor}def
/LightOrange{0 0.3 0.45 0 setcmykcolor}def
/Black{0 0 0 1 setcmykcolor}def
/Helvetica-Bold findfont s 85 mul 50 div scalefont setfont
/logo {  % stack: col
   /col exch def % save color value
   col 0 gt { LightBlue } { DarkBlue } ifelse
   e e moveto
   (U) show
   e s add e  moveto
   (T) show
   e 3 s mul add e  moveto
   (A) show
   e 2 s mul add e  moveto
   col 0 gt { LightOrange } { Orange } ifelse
   (S) show
   e 2 s mul add e t add  moveto
   (C) show

} def

/doublelogo {
   0 logo
   gsave
      400 140 translate  % 390 160
      180 rotate
      1 logo
   grestore
} def

/multilogo{
   -45 1 16 {
      /ind exch def
      -10 1 26 {
         /ind2 exch def
         gsave
            ind 200 mul 450 ind2 mul add % x coord
               ind 70 mul neg 70 ind2 mul add % y coord
               translate
            doublelogo
         grestore
      } for
   } for
} def

/reputsa {
   /repdist exch def
   /yval exch def
   /Helvetica-Bold findfont 25 scalefont setfont
   0 1 10 {
      /ind3 exch def
      ind3 repdist mul yval moveto
      DarkBlue
      (UT) show
      Orange
      (S) show
      DarkBlue
      (A) show
      ind3 repdist mul  (UT) stringwidth pop add yval 20 add moveto
      Orange
      (C) show
   } for
} def

/repparty {
   /repdist2 exch def
   /yval2 exch def
   /Helvetica-Bold findfont 40 scalefont setfont
   0 1 10 {
      /ind4 exch def
      ind4 repdist2 mul yval2 moveto
      /yval3 yval2 def
      (P) show
      /yval3 yval3 35 sub def
      ind4 repdist2 mul yval3 moveto
      (A) show
      /yval3 yval3 35 sub def
      ind4 repdist2 mul yval3 moveto
      (R) show
      /yval3 yval3 35 sub def
      ind4 repdist2 mul yval3 moveto
      (T) show
      /yval3 yval3 35 sub def
      ind4 repdist2 mul yval3 moveto
      (Y) show
   } for
} def

/repparty2 {
   /repdist2 exch def
   /yval2 exch def
   /Helvetica-Bold findfont 40 scalefont setfont
   0 1 10 {
      /ind4 exch def
      ind4 repdist2 mul repdist2 2 div add yval2 moveto
      /yval3 yval2 def
      (P) show
      /yval3 yval3 35 sub def
      ind4 repdist2 mul repdist2 2 div add yval3 moveto
      (A) show
      /yval3 yval3 35 sub def
      ind4 repdist2 mul repdist2 2 div add yval3 moveto
      (R) show
      /yval3 yval3 35 sub def
      ind4 repdist2 mul repdist2 2 div add yval3 moveto
      (T) show
      /yval3 yval3 35 sub def
      ind4 repdist2 mul repdist2 2 div add yval3 moveto
      (Y) show
   } for
} def

gsave
newpath
25 765 moveto
562 0 rlineto
0 -335 rlineto
-562 0  rlineto
closepath
clip

gsave
0 150 translate
0.15 0.15 scale
multilogo
grestore

      DarkBlue
590 84 repparty
      Orange
590 84 repparty2
650 87 reputsa
710 90 reputsa
grestore

DarkBlue
3 setlinewidth
newpath
25 765 moveto
562 0 rlineto
0 -335 rlineto
-562 0  rlineto
closepath
stroke

showpage