File tree Expand file tree Collapse file tree 1 file changed +37
-1
lines changed Expand file tree Collapse file tree 1 file changed +37
-1
lines changed Original file line number Diff line number Diff line change @@ -1464,10 +1464,46 @@ let cp_20240219_quadtreetest () =
1464
1464
1465
1465
()
1466
1466
1467
+ let cp_20240311_quadtree_exception () =
1468
+
1469
+ let path = @" W:\Datasets\Vgm\Quadtree\20240311_exception" ;
1470
+
1471
+ printfn " path = %s " path
1472
+
1473
+ let options = SerializationOptions.NewInMemoryStore( verbose = false )
1474
+
1475
+ let idFile = Guid( File.ReadAllText( @" W:\Datasets\Vgm\Quadtree\20240311_exception\builder.20240311093003.638457462036830406.key.txt" ))
1476
+ let builderReloadedFile = Builder.Import( path, idFile)
1477
+ match builderReloadedFile with
1478
+ | None -> printfn " reloaded from file = None"
1479
+ | Some x ->
1480
+ printfn " reloaded from file, %d patches" ( x.GetPatches() |> Seq.length)
1481
+
1482
+ let sw = Stopwatch.StartNew()
1483
+ let buildConfig = { BuildConfig.Default with Verbose = false ; SplitLimitPowerOfTwo = 8 }
1484
+ let maybeQuadtree = x.Build2 buildConfig
1485
+ sw.Stop()
1486
+ printfn " [TIMING] build: %A " sw.Elapsed
1487
+
1488
+ match maybeQuadtree with
1489
+ | None -> failwith " "
1490
+ | Some qtree ->
1491
+
1492
+ let pos = V2d( 66077.6476628291 , 270082.243676802 )
1493
+ match Sample.Position Query.Config.Default pos qtree with
1494
+ | None -> failwith " foo"
1495
+ | Some x -> printfn " sample is: %A " x
1496
+
1497
+ ()
1498
+
1499
+ ()
1500
+
1467
1501
[<EntryPoint>]
1468
1502
let main argv =
1469
1503
1470
- cp_ 20240219_ quadtreetest ()
1504
+ cp_ 20240311_ quadtree_ exception ()
1505
+
1506
+ //cp_20240219_quadtreetest ()
1471
1507
1472
1508
//test_20240208 ()
1473
1509
You can’t perform that action at this time.
0 commit comments