anchor.diff:                          ) 
                       |> Seq.toArray
                   
  -            let textureSlots = 
  -                textureBindings 
  -                |> Array.toSeq 
  -                |> Seq.collect (fun (slotRange, tb) ->
  -                                seq {
  -                                    match tb with
  -                                    | SingleBinding (tex, sam) -> yield (slotRange.Min, SingleBinding (tex, sam))
  -                                    | ArrayBinding ta -> 
  -                                        for i in slotRange.Min..slotRange.Max do 
  -                                            yield (i, ArrayBinding ta)
  -                                }
  -                    ) |> Map.ofSeq
  -
  -            (textureBindings, textureSlots)
  +            //let textureSlots = 
  +            //    textureBindings 
  +            //    |> Array.toSeq 
  +            //    |> Seq.collect (fun (slotRange, tb) ->
  +            //                    seq {
  +            //                        match tb with
  +            //                        | SingleBinding (tex, sam) -> yield (slotRange.Min, SingleBinding (tex, sam))
  +            //                        | ArrayBinding ta -> 
  +            //                            for i in slotRange.Min..slotRange.Max do 
  +            //                                yield (i, ArrayBinding ta)
  +            //                    }
  +            //        ) |> Map.ofSeq
  +
  +            (textureBindings, None)
   
           member x.CreateColorMasks(fboSignature : IFramebufferSignature, writeBuffers) = 
               let attachments = fboSignature.ColorAttachments |> Map.toList
  
positive.code:                 )
  
              // bind all textures/samplers (if needed)
              for (slotRange, binding) in me.pTextureBindings do
                  let old = Map.tryFind (slotRange.Min) prev.pTextureSlots
                  match old with
                  | Some old when old = binding -> ()
                  | _ -> 
                      match binding with 
                      | SingleBinding (tex, sam) ->
  
negative.code:             pStorageBuffers = storageBuffers
              pUniformBuffers = uniformBuffers
              pUniforms = Map.empty
              //pTextureSlots = textureSlots
              pTextureBindings = textureBindings
              pColorAttachmentCount = attachmentCount
              pDrawBuffers = drawBuffers
  