anchor.diff:  
   
       let objectCount = 1000000
  -    let parallelLoads = 50
  -    let objectSize = 10
  -    let minLoadTimeinMS = 0
  -    let maxLoadTimeInMS = 500
  +    let parallelLoads = 20
  +    let objectSize = 100
  +    let minLoadTimeinMS = 1
  +    let maxLoadTimeInMS = 1
   
       let leafs = CSet.ofList [newPoints 100]
  -
  -    let submit = obj()
   
   
       let start (f : unit -> unit) =
  
positive.code:     let fac = TaskFactory(TaskCreationOptions.LongRunning,TaskContinuationOptions.AttachedToParent)
  
      let startTask (f : unit -> unit) =
          Task.Factory.StartNew(f)//, TaskCreationOptions.LongRunning)
  
      let pfor (s : seq<'a>) (f : 'a -> unit) =
          s |> Seq.toList
            |> List.map (fun v -> startTask (fun () -> f v))
            |> List.iter (fun t -> t.Wait())
  
      let start() =
          Task.Factory.StartNew(fun () ->
              for _ in 0..(objectCount / parallelLoads) do
                  pfor [1..parallelLoads] (fun _ ->
                      let points = newPoints objectSize
  
                      // simulate something long-running
                      Thread.Sleep(random.Next(minLoadTimeinMS, maxLoadTimeInMS))
  
                      Log.startTimed "adding"
                      // submit the new point-set
                      transact (fun () ->
                          lock submit (fun () -> leafs.Add points |> ignore)
                      )
                      Log.stop()
                  )
          ) |> ignore
  
      let initialView = CameraView.LookAt(V3d(3,3,3), V3d.Zero)
      let view = DefaultCameraController.control win.Mouse win.Keyboard win.Time initialView
  
negative.code:     let task = app.Runtime.CompileRender(BackendConfiguration.UnmanagedOptimized, sg)
  
      win.Keyboard.Down.Values.Subscribe (fun k ->
          if k = Keys.Enter then
              if running.IsSet then 
                  printfn "stopping"
                  running.Reset()
              else 
                  printfn "starting"
                  running.Set()
  
      ) |> ignore
  
      win.RenderTask <- task |> DefaultOverlays.withStatistics
  