fix Sample.PositionsWithBounds/InMemoryMerge

Author: stefanmaierhofer

src/Aardvark.Geometry.Quadtree/Query.fs

@@ -698,8 +698,12 @@ module Sample =
                                 for i = 0 to r.Positions.Length - 1 do
                                     let p = r.Positions.[i]
                                     let c = r.Cells.[i]
-                                    let (found, (n0, c0)) = result.TryGetValue(p)
-                                    if found then
+                                    
+                                    
+                                    //let (found, (n0, c0)) = result.TryGetValue(p)  // this somehow throws a nullreferenceexception when key does not exist 
+                                    //if found then                                  // (probably the compiler generates some code which accesses the out param tuple which is not initialized ...)
+                                    if (result.ContainsKey(p)) then
+                                        let (n0, c0) = result[p]
                                         if c.Exponent < c0.Exponent then result.[p] <- (r.Node, c)
                                     else
                                         result.[p] <- (r.Node, c)

src/Scratch/Program.fs

@@ -1430,12 +1430,48 @@ let test_20240208 () =
     check 0 1 -1   10.0f
     check 1 1 -1   10.0f
 
+let cp_20240219_quadtreetest () =
+
+    let path = Path.GetFullPath(@"W:\Datasets\Vgm\Quadtree\20240219_quadtree.sample.error\quad\20240219_samplePoint")
+    
+    printfn "path = %s" path
+
+    let options = SerializationOptions.NewInMemoryStore(verbose = false)
+   
+    let idFile = Guid(File.ReadAllText(@"W:\Datasets\Vgm\Quadtree\20240219_quadtree.sample.error\quad\20240219_samplePoint\builder.20240219143640.638439502006524432.key.txt"))
+    let builderReloadedFile = Builder.Import(path, idFile)
+    match builderReloadedFile with
+    | None   -> printfn "reloaded from file = None"
+    | Some x ->
+        printfn "reloaded from file, %d patches" (x.GetPatches() |> Seq.length)
+
+        let sw = Stopwatch.StartNew()
+        let buildConfig = { BuildConfig.Default with Verbose = false; SplitLimitPowerOfTwo = 8 }
+        let maybeQuadtree = x.Build2 buildConfig
+        sw.Stop()
+        printfn "[TIMING] build: %A" sw.Elapsed
+
+        match maybeQuadtree with
+        | None -> failwith ""
+        | Some qtree ->
+            
+            let pos = V2d(66077.6476628291, 270082.243676802)
+            match Sample.Position Query.Config.Default pos qtree with
+            | None -> failwith "foo"
+            | Some x -> printfn "sample is: %A" x
+
+            ()
+       
+    ()
+
 [<EntryPoint>]
 let main argv =
 
+    cp_20240219_quadtreetest ()
+
     //test_20240208 ()
 
-    cp_20240202_quadtreetest ()
+    //cp_20240202_quadtreetest ()
 
     //buildSerializationTest_20240202 ()