%!PS-Adobe-2.0
% CS-UTSA logo, by N Wagner, 2008-03-08
% coords in points.  72 pts = 1 in
% origin = lower left corner of page
/depth 4 def % depth of shadow
  % (change to make shadow deaper or shallower)
/xstart 100 def % start of text, x coord
/ystart 100 def % start of text, y coord
% here are some colors.  Try lighter blues, redder orange
/Orange2 {1.0 0.7 0.0 setrgbcolor} def
/RedishOrange2 {1.0 0.6 0.0 setrgbcolor} def
/RedOrange2 {1.0 0.5 0.0 setrgbcolor} def
/Blue2 {0 0 1 setrgbcolor} def
/Green2 {0 1 0 setrgbcolor} def
/LightBlue2 {0.3 0.3 1 setrgbcolor} def
/DarkerBlue2 {0 0 0.8 setrgbcolor} def
/DarkBlue2 {0 0 0.6 setrgbcolor} def
% other color model
/Yellow{0 0 1 0 setcmykcolor}def
/RedOrange{0 0.77 0.87 0 setcmykcolor}def
/Orange{0 0.61 0.87 0 setcmykcolor}def
/Black{0 0 0 1 setcmykcolor}def
/White{0 0 0 0 setcmykcolor}def
/LBlue {0.8 0.8 0 0 setcmykcolor}def
/VLBlue {0.6 0.6 0 0 setcmykcolor}def
/Blue {1 1 0 0 setcmykcolor}def
/DarkBlue {1 1 .2 0 setcmykcolor}def
/DarkerBlue {1 1 .4 0 setcmykcolor}def
/VeryDarkBlue {1 1 .6 0 setcmykcolor}def
/Helvetica-Bold findfont 100 scalefont setfont

/nextchar {  % stack: color kern str1 str2
   /col exch def % save color value
   /kern exch def % save kern amount
   /startstr exch def % save first string
   /nextchr exch def % save string = next char
   startstr stringwidth pop % distance along string
   xstart add kern sub ystart moveto % starting point
   nextchr false charpath % make a path
   % put in fattened character
   gsave % first fat outline
      col 0 eq { Black }  if
      col 1 eq { VLBlue } if
      col 2 eq { Orange } if
      7.8 setlinewidth % fat line
      stroke
   grestore % then filled in
   col 0 eq { Black }  if
   col 1 eq { VLBlue } if
   col 2 eq { Orange } if
   fill
} def

/Coff 84 def % how far up to move C
/Coff2 3 def % how far left to move C

% put in Black
(U) () 0  0 nextchar
(T) (U) 17 0 nextchar
(A) (UTS) 77 0 nextchar
/ystart ystart 2 add def 
(S) (UT) 45 0 nextchar
/xstart xstart Coff2 sub def
/ystart ystart Coff add def 
(C) (UT) 45  0 nextchar
/xstart xstart Coff2 add def
/ystart ystart Coff sub def
/ystart ystart 2 sub def

% Blue and Orange
/xstart xstart depth sub def 
/ystart ystart depth add def 
(U) () 0  1 nextchar
(T) (U) 17 1 nextchar
(A) (UTS) 77 1 nextchar
/ystart ystart 2 add def
(S) (UT) 45 2 nextchar
/xstart xstart Coff2 sub def
/ystart ystart Coff add def 
(C) (UT) 45  2 nextchar
/xstart xstart Coff2 add def
/ystart ystart Coff sub def
/ystart ystart 2 sub def

showpage