anchor.diff:  
       member x.System = system
       member x.Compositor = compositor
  -    member x.DesiredSize = desiredSize
  +    member x.DesiredSize = desiredSize.Value
   
       member x.Shutdown() =
           running <- false
   
  -    member x.Info = infos.[0]
  +    member x.Info = infos.Value.[0]
   
       member x.HiddenAreaMesh = hiddenAreaMesh
   
  
positive.code:             //failwithf "[OpenVR] %A: %s" err str
  
      let depthRange = Range1d(0.15, 1000.0) |> Mod.init
  
  
      let projections =
  
negative.code:         |]
  
      let infos =
          lazy (
              hmds |> Array.map (fun hmd ->
                  {
                      framebufferSize = desiredSize.Value
                      viewTrafos = hmd.MotionState.Pose |> Mod.map view  //CameraView.lookAt (V3d(3,4,5)) V3d.Zero V3d.OOI |> CameraView.viewTrafo |> Mod.constant //hmd.MotionState.Pose |> Mod.map Trafo.inverse |> Unhate.register "viewTrafo"
                      projTrafos = projections
                  }
              )
          )
  
      let mutable backgroundColor = C4f.Black
  