yading@10: /*
yading@10:  * G.722 ADPCM audio encoder/decoder
yading@10:  *
yading@10:  * Copyright (c) CMU 1993 Computer Science, Speech Group
yading@10:  *                        Chengxiang Lu and Alex Hauptmann
yading@10:  * Copyright (c) 2005 Steve Underwood <steveu at coppice.org>
yading@10:  * Copyright (c) 2009 Kenan Gillet
yading@10:  * Copyright (c) 2010 Martin Storsjo
yading@10:  *
yading@10:  * This file is part of FFmpeg.
yading@10:  *
yading@10:  * FFmpeg is free software; you can redistribute it and/or
yading@10:  * modify it under the terms of the GNU Lesser General Public
yading@10:  * License as published by the Free Software Foundation; either
yading@10:  * version 2.1 of the License, or (at your option) any later version.
yading@10:  *
yading@10:  * FFmpeg is distributed in the hope that it will be useful,
yading@10:  * but WITHOUT ANY WARRANTY; without even the implied warranty of
yading@10:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
yading@10:  * Lesser General Public License for more details.
yading@10:  *
yading@10:  * You should have received a copy of the GNU Lesser General Public
yading@10:  * License along with FFmpeg; if not, write to the Free Software
yading@10:  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
yading@10:  */
yading@10: 
yading@10: /**
yading@10:  * @file
yading@10:  * G.722 ADPCM audio codec
yading@10:  *
yading@10:  * This G.722 decoder is a bit-exact implementation of the ITU G.722
yading@10:  * specification for all three specified bitrates - 64000bps, 56000bps
yading@10:  * and 48000bps. It passes the ITU tests.
yading@10:  *
yading@10:  * @note For the 56000bps and 48000bps bitrates, the lowest 1 or 2 bits
yading@10:  *       respectively of each byte are ignored.
yading@10:  */
yading@10: 
yading@10: #include "mathops.h"
yading@10: #include "g722.h"
yading@10: 
yading@10: static const int8_t sign_lookup[2] = { -1, 1 };
yading@10: 
yading@10: static const int16_t inv_log2_table[32] = {
yading@10:     2048, 2093, 2139, 2186, 2233, 2282, 2332, 2383,
yading@10:     2435, 2489, 2543, 2599, 2656, 2714, 2774, 2834,
yading@10:     2896, 2960, 3025, 3091, 3158, 3228, 3298, 3371,
yading@10:     3444, 3520, 3597, 3676, 3756, 3838, 3922, 4008
yading@10: };
yading@10: static const int16_t high_log_factor_step[2] = { 798, -214 };
yading@10: const int16_t ff_g722_high_inv_quant[4] = { -926, -202, 926, 202 };
yading@10: /**
yading@10:  * low_log_factor_step[index] == wl[rl42[index]]
yading@10:  */
yading@10: static const int16_t low_log_factor_step[16] = {
yading@10:      -60, 3042, 1198, 538, 334, 172,  58, -30,
yading@10:     3042, 1198,  538, 334, 172,  58, -30, -60
yading@10: };
yading@10: const int16_t ff_g722_low_inv_quant4[16] = {
yading@10:        0, -2557, -1612, -1121,  -786,  -530,  -323,  -150,
yading@10:     2557,  1612,  1121,   786,   530,   323,   150,     0
yading@10: };
yading@10: const int16_t ff_g722_low_inv_quant6[64] = {
yading@10:      -17,   -17,   -17,   -17, -3101, -2738, -2376, -2088,
yading@10:    -1873, -1689, -1535, -1399, -1279, -1170, -1072,  -982,
yading@10:     -899,  -822,  -750,  -682,  -618,  -558,  -501,  -447,
yading@10:     -396,  -347,  -300,  -254,  -211,  -170,  -130,   -91,
yading@10:     3101,  2738,  2376,  2088,  1873,  1689,  1535,  1399,
yading@10:     1279,  1170,  1072,   982,   899,   822,   750,   682,
yading@10:      618,   558,   501,   447,   396,   347,   300,   254,
yading@10:      211,   170,   130,    91,    54,    17,   -54,   -17
yading@10: };
yading@10: 
yading@10: /**
yading@10:  * quadrature mirror filter (QMF) coefficients
yading@10:  *
yading@10:  * ITU-T G.722 Table 11
yading@10:  */
yading@10: static const int16_t qmf_coeffs[12] = {
yading@10:     3, -11, 12, 32, -210, 951, 3876, -805, 362, -156, 53, -11,
yading@10: };
yading@10: 
yading@10: 
yading@10: /**
yading@10:  * adaptive predictor
yading@10:  *
yading@10:  * @param cur_diff the dequantized and scaled delta calculated from the
yading@10:  *                 current codeword
yading@10:  */
yading@10: static void do_adaptive_prediction(struct G722Band *band, const int cur_diff)
yading@10: {
yading@10:     int sg[2], limit, i, cur_qtzd_reconst;
yading@10: 
yading@10:     const int cur_part_reconst = band->s_zero + cur_diff < 0;
yading@10: 
yading@10:     sg[0] = sign_lookup[cur_part_reconst != band->part_reconst_mem[0]];
yading@10:     sg[1] = sign_lookup[cur_part_reconst == band->part_reconst_mem[1]];
yading@10:     band->part_reconst_mem[1] = band->part_reconst_mem[0];
yading@10:     band->part_reconst_mem[0] = cur_part_reconst;
yading@10: 
yading@10:     band->pole_mem[1] = av_clip((sg[0] * av_clip(band->pole_mem[0], -8191, 8191) >> 5) +
yading@10:                                 (sg[1] << 7) + (band->pole_mem[1] * 127 >> 7), -12288, 12288);
yading@10: 
yading@10:     limit = 15360 - band->pole_mem[1];
yading@10:     band->pole_mem[0] = av_clip(-192 * sg[0] + (band->pole_mem[0] * 255 >> 8), -limit, limit);
yading@10: 
yading@10: 
yading@10:     if (cur_diff) {
yading@10:         for (i = 0; i < 6; i++)
yading@10:             band->zero_mem[i] = ((band->zero_mem[i]*255) >> 8) +
yading@10:                                 ((band->diff_mem[i]^cur_diff) < 0 ? -128 : 128);
yading@10:     } else
yading@10:         for (i = 0; i < 6; i++)
yading@10:             band->zero_mem[i] = (band->zero_mem[i]*255) >> 8;
yading@10: 
yading@10:     for (i = 5; i > 0; i--)
yading@10:         band->diff_mem[i] = band->diff_mem[i-1];
yading@10:     band->diff_mem[0] = av_clip_int16(cur_diff << 1);
yading@10: 
yading@10:     band->s_zero = 0;
yading@10:     for (i = 5; i >= 0; i--)
yading@10:         band->s_zero += (band->zero_mem[i]*band->diff_mem[i]) >> 15;
yading@10: 
yading@10: 
yading@10:     cur_qtzd_reconst = av_clip_int16((band->s_predictor + cur_diff) << 1);
yading@10:     band->s_predictor = av_clip_int16(band->s_zero +
yading@10:                                       (band->pole_mem[0] * cur_qtzd_reconst >> 15) +
yading@10:                                       (band->pole_mem[1] * band->prev_qtzd_reconst >> 15));
yading@10:     band->prev_qtzd_reconst = cur_qtzd_reconst;
yading@10: }
yading@10: 
yading@10: static inline int linear_scale_factor(const int log_factor)
yading@10: {
yading@10:     const int wd1 = inv_log2_table[(log_factor >> 6) & 31];
yading@10:     const int shift = log_factor >> 11;
yading@10:     return shift < 0 ? wd1 >> -shift : wd1 << shift;
yading@10: }
yading@10: 
yading@10: void ff_g722_update_low_predictor(struct G722Band *band, const int ilow)
yading@10: {
yading@10:     do_adaptive_prediction(band,
yading@10:                            band->scale_factor * ff_g722_low_inv_quant4[ilow] >> 10);
yading@10: 
yading@10:     // quantizer adaptation
yading@10:     band->log_factor   = av_clip((band->log_factor * 127 >> 7) +
yading@10:                                  low_log_factor_step[ilow], 0, 18432);
yading@10:     band->scale_factor = linear_scale_factor(band->log_factor - (8 << 11));
yading@10: }
yading@10: 
yading@10: void ff_g722_update_high_predictor(struct G722Band *band, const int dhigh,
yading@10:                                   const int ihigh)
yading@10: {
yading@10:     do_adaptive_prediction(band, dhigh);
yading@10: 
yading@10:     // quantizer adaptation
yading@10:     band->log_factor   = av_clip((band->log_factor * 127 >> 7) +
yading@10:                                  high_log_factor_step[ihigh&1], 0, 22528);
yading@10:     band->scale_factor = linear_scale_factor(band->log_factor - (10 << 11));
yading@10: }
yading@10: 
yading@10: void ff_g722_apply_qmf(const int16_t *prev_samples, int *xout1, int *xout2)
yading@10: {
yading@10:     int i;
yading@10: 
yading@10:     *xout1 = 0;
yading@10:     *xout2 = 0;
yading@10:     for (i = 0; i < 12; i++) {
yading@10:         MAC16(*xout2, prev_samples[2*i  ], qmf_coeffs[i   ]);
yading@10:         MAC16(*xout1, prev_samples[2*i+1], qmf_coeffs[11-i]);
yading@10:     }
yading@10: }