%!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
% change depth below to make shadow deaper or shallower
/depth 35 def % depth of shadow
% replace orange, blue, and white below with other colors
/orange { Orange } def
/blue { DarkBlue } def
/white { White } def
% 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
/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

/xstart 100 def % start of text, x coord
/ystart 100 def % start of text, y coord

/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
   gsave % first fat outline
      col 0 eq { blue }  if
      col 1 eq { white } if
      col 2 eq { orange } if
      7.8 setlinewidth % fat line
      stroke
   grestore % then filled in
   col 0 eq { blue }  if
   col 1 eq { white } 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
% loop depth (50) many times to give 3-d effect
0 1 depth {
   pop
   (U) () 0  0 nextchar
   (T) (U) 17 0 nextchar
   (A) (UTS) 77 0 nextchar
    /ystart ystart 2 add def
   (S) (UT) 46 0 nextchar
   /xstart xstart Coff2 sub def
   /ystart ystart Coff add def
   (C) (UT) 46  0 nextchar
   /xstart xstart Coff2 add def
   /ystart ystart Coff sub def
   % on to next shadow slice
   /xstart xstart 0.2 sub def
   /ystart ystart 0.2 add def
   /ystart ystart 2 sub def
} for
% keep faint trace away
/xstart xstart 0.2 sub def
/ystart ystart 0.2 add def

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

showpage