anchor.diff:              viewportSize.Value <- newViewport.Size
           )
       ) |> ignore
  +
  +
  +
  +
   //
   //    w.Mouse.Events.Values.Subscribe(fun e ->
   //        match e with
  
positive.code: open System.Web
  open System.Globalization
  open Aardvark.SceneGraph.Semantics
  
  let app = new OpenGlApplication()
  let source = KnownTileSources.Create(KnownTileSource.BingHybrid)
  
negative.code: 
      //let sg = Sg.group' [sg]
  
      let mode = Mod.init FillMode.Fill
  
      w.Keyboard.KeyDown(Aardvark.Application.Keys.X).Values.Subscribe(fun () ->
          transact (fun () ->
              match mode.Value with
                  | FillMode.Fill -> Mod.change mode FillMode.Line
                  | FillMode.Line -> Mod.change mode FillMode.Point
                  | _ -> Mod.change mode FillMode.Fill
          )
      ) |> ignore
  
      let sg = sg |> Sg.fillMode mode
  
      // compile the rendertask and pass it to the window
      w.RenderTask <- app.Runtime.CompileRender(ExecutionEngine.Unmanaged ||| ExecutionEngine.RuntimeOptimized, sg.RenderJobs())
  
      // a very sketch controller for changing the viewport
      let lastPos = ref V2d.Zero
  