anchor.diff:  //        
   
           let filled = Mod.init true
  -        let text = Mod.init "hi"
  -
  +        let text = Mod.init """font"""
  +
  +        let size = 0.15
           let sg =
               Rewrite.Sg.Text(test, text)
   //            char 
  
positive.code:         member x.GetGlyph(c : char) =
              getGlyph c
  
          member x.GetSize(c : char) =
              getGlyphSize c 
  
          member x.Dispose() =
              cache.Values |> Seq.toList |> List.iter (fun c -> c.Dispose())
  
negative.code:             p.outline |> Array.copy
  
          let append (l : Path) (r : Path) =
              { outline = Array.append l.outline r.outline }
  
          let concat (l : seq<Path>) =
              { outline = l |> Seq.toArray |> Array.collect toArray }
  
          let reverse (p : Path) =
              { outline = p.outline |> Array.map PathSegment.reverse |> Array.rev }
  
          let bounds (p : Path) =
              p.outline |> Seq.map PathSegment.bounds |> Box2d
  