/FDDict 20 dict def
FDDict begin

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

 /String () def

 /DC {
  /String exch def
  {
   G dup 3 gt {pop exit} {DA exch get exec} ifelse
   String () eq {exit} if
  }loop
 }bind def

 /DA [
 {GC moveto}bind
 {GC lineto}bind
 {GC GC GC curveto}bind
 {Encoding G get GC I}bind
 ]def

 /GC {
  G 16 mul G dup -4 bitshift 3 -1 roll add
  dup 2048 ge {4096 sub} if
  G 3 -1 roll 15 and 256 mul add
  dup 2048 ge {4096 sub} if
  exch
 }bind def

 /G {
  String 0 get
  /String String dup length 1 sub 1 exch getinterval def
 }bind def

 /IF false def

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

end

