/*
  * Common stuff for some Microsoft Screen codecs
  * Copyright (C) 2012 Konstantin Shishkov
  *

  * This file is part of FFmpeg.

  *

  * FFmpeg is free software; you can redistribute it and/or

  * modify it under the terms of the GNU Lesser General Public
  * License as published by the Free Software Foundation; either
  * version 2.1 of the License, or (at your option) any later version.
  *

  * FFmpeg is distributed in the hope that it will be useful,

  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * Lesser General Public License for more details.
  *
  * You should have received a copy of the GNU Lesser General Public

  * License along with FFmpeg; if not, write to the Free Software

  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  */
 
 #include <stdint.h>
 #include "libavutil/common.h"
 #include "mss34dsp.h"
 
 static const uint8_t luma_quant[64] = {
     16,  11,  10,  16,  24,  40,  51,  61,
     12,  12,  14,  19,  26,  58,  60,  55,
     14,  13,  16,  24,  40,  57,  69,  56,
     14,  17,  22,  29,  51,  87,  80,  62,
     18,  22,  37,  56,  68, 109, 103,  77,
     24,  35,  55,  64,  81, 104, 113,  92,
     49,  64,  78,  87, 103, 121, 120, 101,
     72,  92,  95,  98, 112, 100, 103,  99
 };
 
 static const uint8_t chroma_quant[64] = {
     17, 18, 24, 47, 99, 99, 99, 99,
     18, 21, 26, 66, 99, 99, 99, 99,
     24, 26, 56, 99, 99, 99, 99, 99,
     47, 66, 99, 99, 99, 99, 99, 99,
     99, 99, 99, 99, 99, 99, 99, 99,
     99, 99, 99, 99, 99, 99, 99, 99,
     99, 99, 99, 99, 99, 99, 99, 99,
     99, 99, 99, 99, 99, 99, 99, 99
 };
 
 void ff_mss34_gen_quant_mat(uint16_t *qmat, int quality, int luma)
 {
     int i;
     const uint8_t *qsrc = luma ? luma_quant : chroma_quant;
 
     if (quality >= 50) {
         int scale = 200 - 2 * quality;
 
         for (i = 0; i < 64; i++)
             qmat[i] = (qsrc[i] * scale + 50) / 100;
     } else {
         for (i = 0; i < 64; i++)
             qmat[i] = (5000 * qsrc[i] / quality + 50) / 100;
     }
 }
 
 #define DCT_TEMPLATE(blk, step, SOP, shift)                         \
     const int t0 = -39409 * blk[7 * step] -  58980 * blk[1 * step]; \
     const int t1 =  39410 * blk[1 * step] -  58980 * blk[7 * step]; \
     const int t2 = -33410 * blk[5 * step] - 167963 * blk[3 * step]; \
     const int t3 =  33410 * blk[3 * step] - 167963 * blk[5 * step]; \
     const int t4 =          blk[3 * step] +          blk[7 * step]; \
     const int t5 =          blk[1 * step] +          blk[5 * step]; \
     const int t6 =  77062 * t4            +  51491 * t5;            \
     const int t7 =  77062 * t5            -  51491 * t4;            \
     const int t8 =  35470 * blk[2 * step] -  85623 * blk[6 * step]; \
     const int t9 =  35470 * blk[6 * step] +  85623 * blk[2 * step]; \
     const int tA = SOP(blk[0 * step] - blk[4 * step]);              \
     const int tB = SOP(blk[0 * step] + blk[4 * step]);              \
                                                                     \
     blk[0 * step] = (  t1 + t6  + t9 + tB) >> shift;                \
     blk[1 * step] = (  t3 + t7  + t8 + tA) >> shift;                \
     blk[2 * step] = (  t2 + t6  - t8 + tA) >> shift;                \
     blk[3 * step] = (  t0 + t7  - t9 + tB) >> shift;                \
     blk[4 * step] = (-(t0 + t7) - t9 + tB) >> shift;                \
     blk[5 * step] = (-(t2 + t6) - t8 + tA) >> shift;                \
     blk[6 * step] = (-(t3 + t7) + t8 + tA) >> shift;                \
     blk[7 * step] = (-(t1 + t6) + t9 + tB) >> shift;                \
 

 #define SOP_ROW(a) (((a) << 16) + 0x2000)
 #define SOP_COL(a) (((a) + 32) << 16)

 
 void ff_mss34_dct_put(uint8_t *dst, int stride, int *block)
 {
     int i, j;
     int *ptr;
 
     ptr = block;
     for (i = 0; i < 8; i++) {
         DCT_TEMPLATE(ptr, 1, SOP_ROW, 13);
         ptr += 8;
     }
 
     ptr = block;
     for (i = 0; i < 8; i++) {
         DCT_TEMPLATE(ptr, 8, SOP_COL, 22);
         ptr++;
     }
 
     ptr = block;
     for (j = 0; j < 8; j++) {
         for (i = 0; i < 8; i++)
             dst[i] = av_clip_uint8(ptr[i] + 128);
         dst += stride;
         ptr += 8;
     }
 }