anchor.diff:              pStorageBuffers = storageBuffers
               pUniformBuffers = uniformBuffers
               pUniforms = Map.empty
  -            pTextureSlots = textureSlots
  +            //pTextureSlots = textureSlots
               pTextureBindings = textureBindings
               pColorAttachmentCount = attachmentCount
               pDrawBuffers = drawBuffers
  
positive.code:                         ) 
                      |> 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)
  
          member x.CreateColorMasks(fboSignature : IFramebufferSignature, writeBuffers) = 
              let attachments = fboSignature.ColorAttachments |> Map.toList
  
negative.code:             pStorageBuffers = storageBuffers
              pUniformBuffers = uniformBuffers
              pUniforms = Map.empty
              //pTextureSlots = textureSlots
              pTextureBindings = textureBindings
              pColorAttachmentCount = attachmentCount
              pDrawBuffers = drawBuffers
  