anchor.diff:                  Log.stop()
   
           Log.stop()
  -
  +        
  +        
  +        Log.start "CPU"
           let encoded = ref.Encode(gpuData)
  +        printBits encoded
           let data = ref.ToImageData(pi.Size, Quantization.photoshop80, encoded)
           File.writeAllBytes @"C:\Users\Schorsch\Desktop\wtf.jpg" data
  -
  -
  -        
  -        let image = device.CreateImage(PixTexture2d(PixImageMipMap [| pi :> PixImage |], TextureParams.empty))
  -        let data = comp.Compress(image, Quantization.photoshop80)
  -
  -        printfn "%A" data
  +        Log.stop()
  +
  +        Log.start "GPU"
  +        let encoded = comp.Compress(pi, Quantization.photoshop80)
  +        printBits encoded
  +        let data = ref.ToImageData(pi.Size, Quantization.photoshop80, encoded)
  +        File.writeAllBytes @"C:\Users\Schorsch\Desktop\wtf2.jpg" data
  +        Log.stop()
  +
   
           ()
   
  
positive.code:                     if ci = 0 then Kernels.encoder.acLuminance.table.[0]
                      else Kernels.encoder.acChroma.table.[0]
  
                  bs.Write(eob)
  
          bs.ToArray()
  
  
negative.code:                     // oo = 0 => word <<< (32 - bitLength)
                      // oo = 16 => word <<< (16 - bitLength)
                      // oo = 24 => word <<< (8 - bitLength)
                      let a = word <<< (space - bitLength)
                      //let a = FShade.Primitives.Bitwise.BitFieldInsert(0u, word, oo, bitLength)
                      Ballot.AtomicOr(temp.[oi], a)
  
                  else
                      let rest = bitLength - space
                      let a = (word >>> rest) &&& ((1u <<< space) - 1u)
                      //let a = FShade.Primitives.Bitwise.BitFieldInsert(0u, word >>> rest, oo, space)
                      Ballot.AtomicOr(temp.[oi], a)
                      
                      let b = (word &&& ((1u <<< rest) - 1u)) <<< (32 - rest)
                      //let b = FShade.Primitives.Bitwise.BitFieldInsert(0u, word, 0, rest)
                      Ballot.AtomicOr(temp.[oi+1], b)
  
  
  