anchor.diff:                          let p2Inside = p2.PosLeftOfLineValue(p0, p3) > 0.0
   
                           let overlapping = allSplines |> Seq.exists (overlap q)
  -                        if overlapping && not (p1Inside || p2Inside) then
  +                        if overlapping then
   
                               let m0 = 0.5 * (p1 + p0)
                               let m1 = 0.5 * (p1 + p2)
  
positive.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 ->
  
negative.code: 
          let fillMode = Mod.init Aardvark.Base.Rendering.FillMode.Fill
          let aa = Mod.init true
          
          let all = "abcdefghijklmnopqrstuvwxyz\r\nABCDEFGHIJKLMNOPQRSTUVWXYZ\r\n1234567890 ?ß\\\r\n^°!\"§$%&/()=?´`@+*~#'<>|,;.:-_€"
          
          let text = Mod.init all
  
          let osg =
              let outline = 
                  [| 
                      V2d(0.34326171875, 0.51708984375); V2d(0.26220703125, 0.4599609375); V2d(0.23583984375, 0.37109375); V2d(0.2919921875, 0.23974609375); V2d(0.44140625, 0.1865234375); V2d(0.59228515625, 0.240966796875); V2d(0.6494140625, 0.37353515625); V2d(0.623291015625, 0.460205078125); V2d(0.5439453125, 0.51708984375); V2d(0.644287109375, 0.58642578125); V2d(0.6787109375, 0.70068359375); V2d(0.61376953125, 0.85498046875); V2d(0.44287109375, 0.91748046875); V2d(0.27197265625, 0.854736328125); V2d(0.20703125, 0.6982421875); V2d(0.242431640625, 0.581298828125); V2d(0.34326171875, 0.51708984375); V2d(0.391113251447678, 0.483398482203484); V2d(0.443359375, 0.4833984375); V2d(0.494140602648258, 0.483398489654064); V2d(0.526611328125, 0.451416015625); V2d(0.559081956744194, 0.419433623552322); V2d(0.55908203125, 0.373046875); V2d(0.559081971645355, 0.32470703125); V2d(0.525634765625, 0.291748046875); V2d(0.492187470197678, 0.2587890625); V2d(0.4423828125, 0.2587890625); V2d(0.392089828848839, 0.2587890625); V2d(0.35888671875, 0.291015625); V2d(0.325683578848839, 0.323242217302322); V2d(0.32568359375, 0.3681640625); V2d(0.325683586299419, 0.418945349752903); V2d(0.3583984375, 0.451171875); V2d(0.391113251447678, 0.483398482203484); V2d(0.34326171875, 0.51708984375); V2d(0.378906227648258, 0.55517578125); V2d(0.338134765625, 0.59619140625); V2d(0.297363273799419, 0.63720703125); V2d(0.29736328125, 0.69873046875); V2d(0.297363266348839, 0.736328095197678); V2d(0.315185546875, 0.771484375); V2d(0.333007805049419, 0.806640610098839); V2d(0.3681640625, 0.825927734375); V2d(0.403320297598839, 0.845214813947678); V2d(0.44384765625, 0.84521484375); V2d(0.5068359375, 0.845214813947678); V2d(0.5478515625, 0.8046875); V2d(0.5888671875, 0.764160111546516); V2d(0.5888671875, 0.70166015625); V2d(0.588867172598839, 0.638183549046516); V2d(0.546630859375, 0.5966796875); V2d(0.504394486546516, 0.555175796151161); V2d(0.44091796875, 0.55517578125); V2d(0.378906227648258, 0.55517578125)
                  |]
  
              let p = Polygon2d outline
  
              let rand = Random()
              let lines = 
                  p.ComputeNonConcaveSubPolygons(1.0E-6)
                      |> Seq.toArray
                      |> Array.map (fun idx ->
                          let arr = idx |> Array.map (fun i -> p.[i])
                          let positions = arr.PairChainWrap() |> Seq.toArray |> Array.collect (fun p -> [|p.E0; p.E1|])
                          let colors = Array.create positions.Length (C4b(rand.Next(255), rand.Next(255), rand.Next(255), 255))
                          positions, colors
                      )
  
              IndexedGeometry(
                  Mode = IndexedGeometryMode.LineList,
                  IndexedAttributes = 
                      SymDict.ofList [
                          DefaultSemantic.Positions, lines |> Array.collect (fst >> Array.map V2f.op_Explicit) :> Array
                          DefaultSemantic.Colors, lines |> Array.collect snd :> Array
                      ]
              )
              |> Sg.ofIndexedGeometry
              |> Sg.effect [DefaultSurfaces.vertexColor |> toEffect]
  
          let size = 0.5
          let sg =
  