/FDDict 10 dict def
FDDict begin

 /M /moveto load def
 /L /lineto load def
 /B /curveto load def

 /BC {
  exch begin
   FDDict begin
    Encoding exch get
    dup CharWidths exch get 0
    3 -1 roll CharDefs exch get
    dup gsave newpath exec flattenpath pathbbox grestore
    5 -1 roll 7 1 roll setcachedevice
    newpath exec eofill
   end
  end
 }bind def

 /IF false def

 /I {
  IF
  {pop pop pop}
  { 2 copy translate
    CharDefs 4 -1 roll get
    /IF true def
    exec
    /IF false def
    exch neg exch neg translate
  }
  ifelse
 }bind def

end

