%!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 10 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. Can try darker blues % or redder orange /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) 5 0 nextchar (S) (UT) 10 0 nextchar (A) (UTS) 15 0 nextchar /xstart xstart Coff2 sub def /ystart ystart Coff add def (C) (UT) 10 0 nextchar /xstart xstart Coff2 add def /ystart ystart Coff sub def % Blue and Orange /xstart xstart depth sub def /ystart ystart depth add def (U) () 0 1 nextchar (T) (U) 5 1 nextchar (S) (UT) 10 2 nextchar (A) (UTS) 15 1 nextchar /xstart xstart Coff2 sub def /ystart ystart Coff add def (C) (UT) 10 2 nextchar /xstart xstart Coff2 add def /ystart ystart Coff sub def showpage