anchor.diff:          stream.SetDrawBuffers(s.drawBufferCount, s.drawBuffers)
           stream.UseProgram(0)
           stream.BindBuffer(int OpenTK.Graphics.OpenGL4.BufferTarget.DrawIndirectBuffer, 0)
  -        
  +        for i in 0 .. 7 do
  +            stream.Disable(int OpenTK.Graphics.OpenGL4.EnableCap.ClipDistance0 + i)
  +
       override x.EntryState = None
       override x.ExitState = None
   
  
positive.code: [<AutoOpen>]
  module PreparedPipelineStateAssembler =
      
      type ICommandStream with
      
          member x.SetPipelineState(s : CompilerInfo, me : PreparedPipelineState) =
  
negative.code:                 x.Enable(int OpenTK.Graphics.OpenGL4.EnableCap.ProgramPointSize)
              else
                  x.Disable(int OpenTK.Graphics.OpenGL4.EnableCap.ProgramPointSize)
  
              let meUsed = usedClipPlanes me.pProgramInterface
              for i in meUsed do
                  x.Enable(int OpenTK.Graphics.OpenGL4.EnableCap.ClipDistance0 + i)
              
  
              // bind all uniform-buffers (if needed)
  