anchor.diff:  
           let fillMode = Mod.init Aardvark.Base.Rendering.FillMode.Fill
           let aa = Mod.init true
  -        let text = Mod.init "b"
  -
  -
  -        let outline =
  -            IndexedGeometry(
  -                Mode = IndexedGeometryMode.LineStrip,
  -                IndexedAttributes =
  -                    SymDict.ofList [
  -                        DefaultSemantic.Positions, [| V3f(0.32666f,0.46582f, 0.0f); V3f(0.474609f,0.39209f, 0.0f); V3f(0.631836f,0.464111f, 0.0f); V3f(0.6875f,0.658691f, 0.0f); V3f(0.625244f,0.860107f, 0.0f); V3f(0.468262f,0.934082f, 0.0f); V3f(0.32666f,0.881836f, 0.0f); V3f(0.32666f,0.921875f, 0.0f); V3f(0.234375f,0.921875f, 0.0f); V3f(0.234375f,0.206055f, 0.0f); V3f(0.32666f,0.206055f, 0.0f); V3f(0.32666f,0.46582f, 0.0f); V3f(0.368652f,0.49349f, 0.0f); V3f(0.32666f,0.552734f, 0.0f); V3f(0.32666f,0.798828f, 0.0f); V3f(0.366048f,0.84082f, 0.0f); V3f(0.411296f,0.861816f, 0.0f); V3f(0.462402f,0.861816f, 0.0f); V3f(0.502116f,0.861816f, 0.0f); V3f(0.533691f,0.844808f, 0.0f); V3f(0.557129f,0.810791f, 0.0f); V3f(0.580566f,0.776774f, 0.0f); V3f(0.592285f,0.726074f, 0.0f); V3f(0.592285f,0.658691f, 0.0f); V3f(0.592285f,0.594889f, 0.0f); V3f(0.581217f,0.546468f, 0.0f); V3f(0.559082f,0.513428f, 0.0f); V3f(0.536947f,0.480387f, 0.0f); V3f(0.506022f,0.463867f, 0.0f); V3f(0.466309f,0.463867f, 0.0f); V3f(0.415202f,0.463867f, 0.0f); V3f(0.368652f,0.49349f, 0.0f); V3f(0.32666f,0.46582f, 0.0f) |] :> Array
  -
  -                    ]
  -            )
  -
  -
  -        let osg = 
  -            outline
  -                |> Sg.ofIndexedGeometry
  -                |> Sg.effect [DefaultSurfaces.constantColor C4f.Green |> toEffect]
  +        let text = Mod.init "A"
   
   
   
  
positive.code:                         run rest
  
                      | Bezier2(p0, p1, p2) :: rest ->
                          start p0
                          add p0
  
                          let p1Inside = p1.PosLeftOfLineValue(p0, p2) > 0.0
                          if p1Inside then add p1
  
                          boundaryTriangles.AddRange [p0; p1; p2]
                          boundaryCoords.AddRange [V3d(0,0,0); V3d(0.5, 0.0, 0.5); V3d(1,1,1)]
  
                          add p2
                          current <- p2
                          run rest
  
                      | (Bezier3(p0, p1, p2, p3) as s) :: rest ->
                          
  
negative.code: //        let font = new Font(c.Families.[0], 1.0f)
  
  
          let test = Rewrite.Font("Times New Roman", FontStyle.Regular)
  //        let str = Mod.init "hi."
  //        let chars =
  //            str |> Mod.map (fun str ->
  