FreeCalypso > hg > gsm-codec-lib
view libtwamr/cbsearch.c @ 384:a8dab7028e4d
libtwamr: integrate lag_wind.c
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Mon, 06 May 2024 05:56:50 +0000 |
parents | 4614f1a97e1a |
children |
line wrap: on
line source
/* ***************************************************************************** * * GSM AMR-NB speech codec R98 Version 7.6.0 December 12, 2001 * R99 Version 3.3.0 * REL-4 Version 4.1.0 * ***************************************************************************** * * File : cbsearch.c * Purpose : Inovative codebook search (find index and gain) * ***************************************************************************** */ /* ***************************************************************************** * MODULE INCLUDE FILE AND VERSION ID ***************************************************************************** */ #include "namespace.h" #include "cbsearch.h" /* ***************************************************************************** * INCLUDE FILES ***************************************************************************** */ #include "tw_amr.h" #include "typedef.h" #include "c2_9pf.h" #include "c2_11pf.h" #include "c3_14pf.h" #include "c4_17pf.h" #include "c8_31pf.h" #include "c1035pf.h" #include "basic_op.h" #include "no_count.h" #include "cnst.h" /* ***************************************************************************** * PUBLIC PROGRAM CODE ***************************************************************************** */ int cbsearch(Word16 x[], /* i : target vector, Q0 */ Word16 h[], /* i : impulse response of weighted synthesis */ /* filter h[-L_subfr..-1] must be set to */ /* zero. Q12 */ Word16 T0, /* i : Pitch lag */ Word16 pitch_sharp, /* i : Last quantized pitch gain, Q14 */ Word16 gain_pit, /* i : Pitch gain, Q14 */ Word16 res2[], /* i : Long term prediction residual, Q0 */ Word16 code[], /* o : Innovative codebook, Q13 */ Word16 y[], /* o : filtered fixed codebook excitation, Q12 */ Word16 **anap, /* o : Signs of the pulses */ enum Mode mode,/* i : coder mode */ Word16 subNr) /* i : subframe number */ { Word16 index; Word16 i, temp, pit_sharpTmp; /* For MR74, the pre and post CB pitch sharpening is included in the * codebook search routine, while for MR122 is it not. */ test (); test (); if ((sub (mode, MR475) == 0) || (sub (mode, MR515) == 0)) { /* MR475, MR515 */ move16 (); *(*anap)++ = code_2i40_9bits(subNr, x, h, T0, pitch_sharp, code, y, &index); *(*anap)++ = index; /* sign index */ move16 (); } else if (sub (mode, MR59) == 0) { /* MR59 */ test (); move16 (); *(*anap)++ = code_2i40_11bits(x, h, T0, pitch_sharp, code, y, &index); *(*anap)++ = index; /* sign index */ move16 (); } else if (sub (mode, MR67) == 0) { /* MR67 */ test (); test (); move16 (); *(*anap)++ = code_3i40_14bits(x, h, T0, pitch_sharp, code, y, &index); *(*anap)++ = index; /* sign index */ move16 (); } else if (sub (mode, MR74) == 0 || sub (mode, MR795) == 0) { /* MR74, MR795 */ test (); test (); test (); move16 (); *(*anap)++ = code_4i40_17bits(x, h, T0, pitch_sharp, code, y, &index); *(*anap)++ = index; /* sign index */ move16 (); } else if (sub (mode, MR102) == 0) { /* MR102 */ test (); test (); test (); /*-------------------------------------------------------------* * - include pitch contribution into impulse resp. h1[] * *-------------------------------------------------------------*/ /* pit_sharpTmp = pit_sharp; */ /* if (pit_sharpTmp > 1.0) pit_sharpTmp = 1.0; */ pit_sharpTmp = shl (pitch_sharp, 1); for (i = T0; i < L_SUBFR; i++) { temp = mult(h[i - T0], pit_sharpTmp); h[i] = add(h[i], temp); move16 (); } /*--------------------------------------------------------------* * - Innovative codebook search (find index and gain) * *--------------------------------------------------------------*/ code_8i40_31bits (x, res2, h, code, y, *anap); *anap += 7; add(0,0); /*-------------------------------------------------------* * - Add the pitch contribution to code[]. * *-------------------------------------------------------*/ for (i = T0; i < L_SUBFR; i++) { temp = mult (code[i - T0], pit_sharpTmp); code[i] = add (code[i], temp); move16 (); } } else { /* MR122 */ /*-------------------------------------------------------------* * - include pitch contribution into impulse resp. h1[] * *-------------------------------------------------------------*/ test (); test (); test (); /* pit_sharpTmp = gain_pit; */ /* if (pit_sharpTmp > 1.0) pit_sharpTmp = 1.0; */ pit_sharpTmp = shl (gain_pit, 1); for (i = T0; i < L_SUBFR; i++) { temp = mult(h[i - T0], pit_sharpTmp); h[i] = add(h[i], temp); move16 (); } /*--------------------------------------------------------------* * - Innovative codebook search (find index and gain) * *--------------------------------------------------------------*/ code_10i40_35bits (x, res2, h, code, y, *anap); *anap += 10; add(0,0); /*-------------------------------------------------------* * - Add the pitch contribution to code[]. * *-------------------------------------------------------*/ for (i = T0; i < L_SUBFR; i++) { temp = mult (code[i - T0], pit_sharpTmp); code[i] = add (code[i], temp); move16 (); } } return 0; }