@@ -58,7 +58,7 @@ module Builder =
58
58
59
59
invariantm ( rootCell.Exponent < requiredRootCellSplitLimit)
60
60
( fun () -> sprintf " Expected root cell exponent %d to be smaller than requiredRootCellSplitLimit %d ." rootCell.Exponent requiredRootCellSplitLimit)
61
- " 4911adf3-7b87-4234-9bcc-bc3076df846e "
61
+ " 7c86e0cc-950f-470f-a1c5-7cbcff1173d4 "
62
62
63
63
if config.Verbose then
64
64
printfn " [build'] must adjust root cell %A exponent to %d " rootCell requiredRootCellSplitLimit
@@ -331,7 +331,7 @@ type Builder () =
331
331
332
332
if isEmpty then
333
333
layerCount <- patch.Layers.Length
334
- isEmpty <- true
334
+ isEmpty <- false
335
335
336
336
invariantm
337
337
( patch.Layers.Length = layerCount)
@@ -374,12 +374,12 @@ type Builder () =
374
374
/// Add multiple patches.
375
375
member this.AddRange ( patches : seq < LayerSet >) : unit =
376
376
for patch in patches do this.Add( patch)
377
-
377
+
378
378
/// Build a quadtree from all the patches that have been added to this builder.
379
379
member this.Build ( config : BuildConfig ) : QNodeRef option =
380
380
381
381
let mutable mergesCount = 0
382
-
382
+
383
383
patches
384
384
// (1) sort per-resolution patch lists from coarse to fine resolution ...
385
385
|> Seq.sortByDescending ( fun kv -> kv.Key) |> Seq.map ( fun kv -> kv.Value)
@@ -395,7 +395,7 @@ type Builder () =
395
395
Quadtree.Merge Dominance.SecondDominates state item |> Some
396
396
)
397
397
None // initial state
398
-
398
+
399
399
/// Build a quadtree from all the patches that have been added to this builder.
400
400
member this.Build2 ( config : BuildConfig ) : QNodeRef option =
401
401
let allPatches = this.GetPatches()
0 commit comments