anchor.diff:      [<DefaultValue>] val mutable program : ShaderProgram
       [<DefaultValue>] val mutable program2 : ShaderProgram
       [<DefaultValue>] val mutable blinn : System.IObservable<BlinnMaterial>
  -    [<DefaultValue>] val mutable elementBuffer : int
  -    [<DefaultValue>] val mutable elements : int
  -    [<DefaultValue>] val mutable nodeCache : LODCache
  -    [<DefaultValue>] val mutable mesh : AllocatedMesh
       let defaultBlinnMaterial = { 
           AmbientColor = new Vector3(0.1f, 0.1f, 0.1f); 
           DiffuseColor = new Vector3(0.4f, 0.7f, 0.4f); 
           SpecularColor = new Vector3(1.0f, 1.0f, 1.0f); 
           SpecularExp = 150.0 }
       let defaultVm = { IntegrationSpeed = 1.0; BlinnMaterial = defaultBlinnMaterial }
  -    let tree = makeTerrainLodTree
       let mutable vm : ViewModel = defaultVm
  -    let terrain = new CjClutter.OpenGl.Terrain(new LOD.ChunkedLod())
       let camera = new CjClutter.OpenGl.Camera.LookAtCamera()
       let lodCamera = new CjClutter.OpenGl.Camera.LookAtCamera()
       let factory = new CjClutter.OpenGl.TerrainChunkFactory()
       let keyboard = new CjClutter.OpenGl.Input.Keboard.KeyboardInputProcessor()
       let mutable synchronizeCameras = true
  -    let mutable nodesInCache = 0
  -    let mutable cacheSize = 10000
  -    let node = new  CjClutter.OpenGl.ChunkedLodTreeFactory.ChunkedLodTreeNode(new CjClutter.OpenGl.EntityComponent.Bounds2D(new Vector2d(-128.0, -128.0 + 100.0), new Vector2d(128.0, 128.0 + 100.0)), null, 0.0)
   
       override this.OnLoad(e) =
           this.program <- BlinnShaderProgram BlinnShaderProgram.makeBlinnShaderProgram
  
positive.code: 
  let drawMesh (m:Rendering.AllocatedMesh) (primitiveType:PrimitiveType) =
      m.bind()
  
      GL.DrawElements(BeginMode.Triangles, m.faces * 3, DrawElementsType.UnsignedInt, 0);
  
  type ShaderProgram =
  
negative.code:         match e.Key with
          | Key.N -> synchronizeCameras <- false
          | Key.M -> synchronizeCameras <- true
          | _ -> ()
          match convertKeyEvent e with
          | Some keys -> 
  