anchor.diff:              ASet.single (o :> IRenderObject)
   
   
  -[<EntryPoint>]
  +[<EntryPoint; STAThread>]
   let main argv = 
       Ag.initialize()
       Aardvark.Init()
   
   
       use app = new OpenGlApplication(true)
  -    use win = app.CreateSimpleRenderWindow(16)
  +    let win = app.CreateSimpleRenderWindow(1)
       
   
       let cam = CameraViewWithSky(Location = V3d.III * 2.0, Forward = -V3d.III.Normalized)
  -    let proj = CameraProjectionPerspective(60.0, 0.1, 1000.0, float win.Width / float win.Height)
  +    let proj = CameraProjectionPerspective(60.0, 0.1, 1000.0, float 1024 / float 768)
   
       let geometry = 
           IndexedGeometry(
  
positive.code:                 do! DefaultSurfaces.trafo
                  do! DefaultSurfaces.constantColor C4f.White
              }
              |> Sg.viewTrafo (cam |> Mod.map CameraView.viewTrafo)
              |> Sg.projTrafo (win.Sizes |> Mod.map (fun s -> Frustum.perspective 60.0 0.1 100.0 (float s.X / float s.Y) |> Frustum.projTrafo))
  
  
negative.code:         let rand = RandomSystem()
          Array.init 1000 (ignore >> rand.UniformV3d >> V3f)
  
      let trafo = win.Time |> Mod.map (fun t -> Trafo3d.RotationZ (float t.Ticks / float TimeSpan.TicksPerSecond))
  
      let blasg = 
          BlaNode(calls, IndexedGeometryMode.PointList)
              |> Sg.vertexAttribute' DefaultSemantic.Positions pos
  