anchor.diff:                          Transforms = ResizeArray ()
                           Positions = ResizeArray ()
                           Uvs = ResizeArray ()
  +                        Colors = ResizeArray ()
                       }
   
                   textureLookup.Add (textureId, (texture, bucket))
  
positive.code: let materialQueue =
      componentAddedQueue (fun ent (materialComp: MaterialComponent) deltaTime em ->
  
          match em.TryGet<MeshComponent> ent with
          | Some meshComp ->
  
              let programId =
                  match materialComp.ShaderProgramState with
                  | ShaderProgramState.ReadyToLoad (vertex, fragment) ->
  
                      match shaderCache.TryGetValue ((vertex, fragment)) with
                      | true, programId ->
                          materialComp.ShaderProgramState <- ShaderProgramState.Loaded programId
                          programId
  
                      | _ ->
                          let mutable vertexFile = ([|0uy|]) |> Array.append (File.ReadAllBytes (vertex))
                          let mutable fragmentFile = ([|0uy|]) |> Array.append (File.ReadAllBytes (fragment))
  
                          let programId = Renderer.loadShaders vertexFile fragmentFile
                          materialComp.ShaderProgramState <- ShaderProgramState.Loaded programId
                          shaderCache.Add ((vertex, fragment), programId)
                          programId
  
                  | ShaderProgramState.Loaded programId -> programId
  
           
              match materialComp.Texture with
              | Some texture ->
                  texture.TryBufferData () |> ignore
              | _ -> ()        
  
  
          | _ -> ()
  
      )
  
negative.code:         Lookup: Dictionary<int, Dictionary<int, Texture2DBuffer option * RenderBucket>>
      }
  
      member this.Add (programId, textureId, texture, transformComp, position, uv, color) =
          let textureLookup =
              match this.Lookup.TryGetValue (programId) with
              | true, lookup -> lookup
  