/Rshow {GS 90 rotate show GR}                        BD
   /CS    {dup stringwidth pop 2 div neg 0 RM}          BD
   /RS    {dup stringwidth pop       neg 0 RM}          BD
   /wosh  {/c2 exch def /c1 exch def /stx exch def
           GS      c1 SRGB stx true charpath fill   GR
           GS 0 SL c2 SRGB stx true charpath stroke GR} BD
   /Wosh  { {currentrgbcolor} {0 0 0} wosh}             BD