anchor.diff:  
           let renderJobs = nodes |> List.choose (fun n -> makeRenderJob n)
   
  -        match this.program with
  -        | BlinnShaderProgram b -> b.MorphK.set this.morph
  -        | _ -> ()
  -
           let frustum = CjClutter.OpenGl.Camera.FrustumPlaneExtractor.ExtractRowMajor(lodCamera)
           
           let blinnMaterial = vm.BlinnMaterial
  
positive.code:     [<DefaultValue>] val mutable program : ShaderProgram
      [<DefaultValue>] val mutable program2 : ShaderProgram
      [<DefaultValue>] val mutable cdlodMesh : RenderableCDLodMesh
      [<DefaultValue>] val mutable morph : float32
      let defaultBlinnMaterial = { 
          AmbientColor = new Vector3(0.1f, 0.1f, 0.1f); 
          DiffuseColor = new Vector3(0.4f, 0.7f, 0.4f); 
  
negative.code:         match e.Key with
          | Key.N -> synchronizeCameras <- false
          | Key.M -> synchronizeCameras <- true
          | _ -> ()
          match convertKeyEvent e with
          | Some keys -> 
  