anchor.diff:  
   
           
  -    let scene = Aardvark.SceneGraph.IO.Loader.Assimp.load @"C:\Users\Schorsch\Desktop\3d\lara\lara.dae"
  +    let scene = Aardvark.SceneGraph.IO.Loader.Assimp.load @"C:\Users\Schorsch\Desktop\3d\witcher\Geralt.obj"
       let sg = Sg.AdapterNode(scene) |> normalizeTo (Box3d(-V3d.III, V3d.III))
   
   
  
positive.code: 
                  | Leaf values ->
                      for (p,v) in values do
                          if V3d.Distance(p, point) <= r then
                              res.Add v
  
                  | Node children ->
                      let center = n.Center
  
  //                    let indices = HashSet.ofList [0..7]
  //
  //                    if point.X > center.X + r then
  //                        indices.IntersectWith [4; 5; 6; 7]
  //                    elif point.X < center.X - r then
  //                        indices.IntersectWith [0; 1; 2; 3]
  //                        
  //                    if point.Y > center.Y + r then
  //                        indices.IntersectWith [2; 3; 6; 7]
  //                    elif point.Y < center.Y - r then
  //                        indices.IntersectWith [0; 1; 4; 5]
  //
  //                    if point.Z > center.Z + r then
  //                        indices.IntersectWith [1; 3; 5; 7]
  //                    elif point.Z < center.Z - r then
  //                        indices.IntersectWith [0; 2; 4; 6]
  //
  //                    if indices.Count > 1 then
  //                        Log.warn "did it"
  
                      let child =
                          (if point.X > center.X then 4 else 0) +
                          (if point.Y > center.Y then 2 else 0) +
                          (if point.Z > center.Z then 1 else 0)
  
                      query point r (cell.GetChild child) children.[child] res
  
  
      type SpatialDict<'a>(pointsPerLeaf : int) =
  
negative.code:         let rec addContained (info : OctNodeInfo) (cell : GridCell) (values : array<V3d * 'a>) (n : byref<OctNode<'a>>) =
              match n with
                  | Empty ->
                      n <- build info cell values
  
                  | Leaf content ->
                      if content.Count + values.Length <= info.pointsPerLeaf || cell.ChildVolume < info.minLeafVolume then
  