efr-experiments: src/cod

author	Mychaela Falconia <falcon@freecalypso.org>
date	Wed, 03 Apr 2024 05:31:37 +0000
parents
children	6119d2c1e7d9

rev	line source
0 56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /***************************************************************************
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 * FILE NAME: cod_12k2.c
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 * FUNCTIONS DEFINED IN THIS FILE:
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 * Coder_12k2 and Init_Coder_12k2
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 * Init_Coder_12k2(void):
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 * Initialization of variables for the coder section.
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 * Coder_12k2(Word16 ana[], Word16 synth[]):
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 * Speech encoder routine operating on a frame basis.
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 ***************************************************************************/
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 #include "typedef.h"
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 #include "basic_op.h"
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20 #include "sig_proc.h"
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 #include "count.h"
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 #include "codec.h"
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 #include "cnst.h"
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 #include "window2.tab"
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27 #include "vad.h"
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 #include "dtx.h"
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 /-----------------------------------------------------------
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 * Coder constant parameters (defined in "cnst.h") *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 -----------------------------------------------------------
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 * L_WINDOW : LPC analysis window size *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 * L_FRAME : Frame size *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 * L_FRAME_BY2 : Half the frame size *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 * L_SUBFR : Sub-frame size *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 * M : LPC order *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 * MP1 : LPC order+1 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 * L_TOTAL : Total size of speech buffer *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 * PIT_MIN : Minimum pitch lag *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 * PIT_MAX : Maximum pitch lag *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 * L_INTERPOL : Length of filter for interpolation *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 -----------------------------------------------------------/
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 /--------------------------------------------------------
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 * Static memory allocation. *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 --------------------------------------------------------/
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 /* Speech vector */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 static Word16 old_speech[L_TOTAL];
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 static Word16 speech, p_window, *p_window_mid;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 Word16 new_speech; / Global variable */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 /* Weight speech vector */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 static Word16 old_wsp[L_FRAME + PIT_MAX];
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 static Word16 *wsp;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 /* Excitation vector */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 static Word16 old_exc[L_FRAME + PIT_MAX + L_INTERPOL];
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 static Word16 *exc;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 /* Zero vector */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 static Word16 ai_zero[L_SUBFR + MP1];
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 static Word16 *zero;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 /* Impulse response vector */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 static Word16 *h1;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 static Word16 hvec[L_SUBFR * 2];
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 /* Spectral expansion factors */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 static const Word16 F_gamma1[M] =
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 29491, 26542, 23888, 21499, 19349,
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 17414, 15672, 14105, 12694, 11425
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 };
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 static const Word16 F_gamma2[M] =
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 19661, 11797, 7078, 4247, 2548,
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 1529, 917, 550, 330, 198
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 };
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 /* Lsp (Line spectral pairs) */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 static Word16 lsp_old[M];
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 static Word16 lsp_old_q[M];
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 /* Filter's memory */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 static Word16 mem_syn[M], mem_w0[M], mem_w[M];
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 static Word16 mem_err[M + L_SUBFR], *error;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 /***************************************************************************
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 * FUNCTION: Init_Coder_12k2
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 * PURPOSE: Initialization of variables for the coder section.
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 * DESCRIPTION:
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 * - initilize pointers to speech buffer
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 * - initialize static pointers
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 * - set static vectors to zero
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 ***************************************************************************/
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 void Init_Coder_12k2 (void)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 /--------------------------------------------------------------------------
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 * Initialize pointers to speech vector. *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 --------------------------------------------------------------------------/
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 new_speech = old_speech + L_TOTAL - L_FRAME;/* New speech */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 speech = new_speech; /* Present frame */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 p_window = old_speech + L_TOTAL - L_WINDOW; /* For LPC window */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 p_window_mid = p_window; /* For LPC window */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 /* Initialize static pointers */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 wsp = old_wsp + PIT_MAX;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 exc = old_exc + PIT_MAX + L_INTERPOL;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 zero = ai_zero + MP1;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 error = mem_err + M;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 h1 = &hvec[L_SUBFR];
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 /* Static vectors to zero */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 Set_zero (old_speech, L_TOTAL);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 Set_zero (old_exc, PIT_MAX + L_INTERPOL);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 Set_zero (old_wsp, PIT_MAX);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 Set_zero (mem_syn, M);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 Set_zero (mem_w, M);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 Set_zero (mem_w0, M);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 Set_zero (mem_err, M);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 Set_zero (zero, L_SUBFR);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 Set_zero (hvec, L_SUBFR); /* set to zero "h1[-L_SUBFR..-1]" */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 /* Initialize lsp_old [] */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 lsp_old[0] = 30000;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 lsp_old[1] = 26000;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 lsp_old[2] = 21000;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 lsp_old[3] = 15000;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 lsp_old[4] = 8000;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 lsp_old[5] = 0;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 lsp_old[6] = -8000;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 lsp_old[7] = -15000;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 lsp_old[8] = -21000;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 lsp_old[9] = -26000;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 /* Initialize lsp_old_q[] */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 Copy (lsp_old, lsp_old_q, M);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 return;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 }
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 /***************************************************************************
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 * FUNCTION: Coder_12k2
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 * PURPOSE: Principle encoder routine.
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 * DESCRIPTION: This function is called every 20 ms speech frame,
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 * operating on the newly read 160 speech samples. It performs the
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 * principle encoding functions to produce the set of encoded parameters
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 * which include the LSP, adaptive codebook, and fixed codebook
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 * quantization indices (addresses and gains).
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 * INPUTS:
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 * No input arguments are passed to this function. However, before
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 * calling this function, 160 new speech data samples should be copied to
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 * the vector new_speech[]. This is a global pointer which is declared in
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 * this file (it points to the end of speech buffer minus 160).
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 * OUTPUTS:
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 * ana[]: vector of analysis parameters.
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 * synth[]: Local synthesis speech (for debugging purposes)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 ***************************************************************************/
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 void Coder_12k2 (
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 Word16 ana[], /* output : Analysis parameters */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 Word16 synth[] /* output : Local synthesis */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 )
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 /* LPC coefficients */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 Word16 r_l[MP1], r_h[MP1]; /* Autocorrelations lo and hi */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 Word16 A_t[(MP1) * 4]; /* A(z) unquantized for the 4 subframes */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 Word16 Aq_t[(MP1) * 4]; /* A(z) quantized for the 4 subframes */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 Word16 Ap1[MP1]; /* A(z) with spectral expansion */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 Word16 Ap2[MP1]; /* A(z) with spectral expansion */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 Word16 A, Aq; /* Pointer on A_t and Aq_t */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 Word16 lsp_new[M], lsp_new_q[M];/* LSPs at 4th subframe */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 Word16 lsp_mid[M], lsp_mid_q[M];/* LSPs at 2nd subframe */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 /* Other vectors */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 Word16 xn[L_SUBFR]; /* Target vector for pitch search */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 Word16 xn2[L_SUBFR]; /* Target vector for codebook search */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 Word16 res2[L_SUBFR]; /* Long term prediction residual */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 Word16 code[L_SUBFR]; /* Fixed codebook excitation */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 Word16 y1[L_SUBFR]; /* Filtered adaptive excitation */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 Word16 y2[L_SUBFR]; /* Filtered fixed codebook excitation */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 /* Scalars */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 Word16 i, j, k, i_subfr;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214 Word16 T_op, T0, T0_min, T0_max, T0_frac;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 Word16 gain_pit, gain_code, pit_flag, pit_sharp;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 Word16 temp;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 Word32 L_temp;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 Word16 scal_acf, VAD_flag, lags[2], rc[4];
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 extern Word16 ptch;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 extern Word16 txdtx_ctrl, CN_excitation_gain;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 extern Word32 L_pn_seed_tx;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 extern Word16 dtx_mode;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 /----------------------------------------------------------------------
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 * - Perform LPC analysis: (twice per frame) *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 * * autocorrelation + lag windowing *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 * * Levinson-Durbin algorithm to find a[] *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 * * convert a[] to lsp[] *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 * * quantize and code the LSPs *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 * * find the interpolated LSPs and convert to a[] for all *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 * subframes (both quantized and unquantized) *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 ----------------------------------------------------------------------/
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 /* LP analysis centered at 2nd subframe */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 scal_acf = Autocorr (p_window_mid, M, r_h, r_l, window_160_80);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 /* Autocorrelations */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 Lag_window (M, r_h, r_l); /* Lag windowing */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 Levinson (r_h, r_l, &A_t[MP1], rc); /* Levinson-Durbin */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 Az_lsp (&A_t[MP1], lsp_mid, lsp_old); /* From A(z) to lsp */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 /* LP analysis centered at 4th subframe */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 /* Autocorrelations */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 scal_acf = Autocorr (p_window, M, r_h, r_l, window_232_8);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 Lag_window (M, r_h, r_l); /* Lag windowing */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 Levinson (r_h, r_l, &A_t[MP1 * 3], rc); /* Levinson-Durbin */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 Az_lsp (&A_t[MP1 * 3], lsp_new, lsp_mid); /* From A(z) to lsp */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 if (dtx_mode == 1)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 /* DTX enabled, make voice activity decision */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 VAD_flag = vad_computation (r_h, r_l, scal_acf, rc, ptch);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 tx_dtx (VAD_flag, &txdtx_ctrl); /* TX DTX handler */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 }
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 else
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 /* DTX disabled, active speech in every frame */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 VAD_flag = 1;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 txdtx_ctrl = TX_VAD_FLAG \| TX_SP_FLAG;
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 }
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 /* LSP quantization (lsp_mid[] and lsp_new[] jointly quantized) */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 Q_plsf_5 (lsp_mid, lsp_new, lsp_mid_q, lsp_new_q, ana, txdtx_ctrl);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 ana += 5; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 /--------------------------------------------------------------------
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 * Find interpolated LPC parameters in all subframes (both quantized *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 * and unquantized). *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 * The interpolated parameters are in array A_t[] of size (M+1)4
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 * and the quantized interpolated parameters are in array Aq_t[] *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 --------------------------------------------------------------------/
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 Int_lpc2 (lsp_old, lsp_mid, lsp_new, A_t);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 test (); logic16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 if ((txdtx_ctrl & TX_SP_FLAG) != 0)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 Int_lpc (lsp_old_q, lsp_mid_q, lsp_new_q, Aq_t);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 /* update the LSPs for the next frame */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 for (i = 0; i < M; i++)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 lsp_old[i] = lsp_new[i]; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 lsp_old_q[i] = lsp_new_q[i]; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 }
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 }
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 else
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 /* Use unquantized LPC parameters in case of no speech activity */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 for (i = 0; i < MP1; i++)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 Aq_t[i] = A_t[i]; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 Aq_t[i + MP1] = A_t[i + MP1]; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 Aq_t[i + MP1 * 2] = A_t[i + MP1 * 2]; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 Aq_t[i + MP1 * 3] = A_t[i + MP1 * 3]; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 }
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 /* update the LSPs for the next frame */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 for (i = 0; i < M; i++)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 lsp_old[i] = lsp_new[i]; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 lsp_old_q[i] = lsp_new[i]; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 }
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 }
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 /----------------------------------------------------------------------
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 * - Find the weighted input speech wsp[] for the whole speech frame *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 * - Find the open-loop pitch delay for first 2 subframes *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 * - Set the range for searching closed-loop pitch in 1st subframe *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 * - Find the open-loop pitch delay for last 2 subframes *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 ----------------------------------------------------------------------/
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 A = A_t; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 for (i = 0; i < L_FRAME; i += L_SUBFR)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 Weight_Ai (A, F_gamma1, Ap1);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 Weight_Ai (A, F_gamma2, Ap2);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 Residu (Ap1, &speech[i], &wsp[i], L_SUBFR);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 Syn_filt (Ap2, &wsp[i], &wsp[i], L_SUBFR, mem_w, 1);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 A += MP1; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 }
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 /* Find open loop pitch lag for first two subframes */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 T_op = Pitch_ol (wsp, PIT_MIN, PIT_MAX, L_FRAME_BY2); move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 lags[0] = T_op; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 test (); logic16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 if ((txdtx_ctrl & TX_SP_FLAG) != 0)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 /* Range for closed loop pitch search in 1st subframe */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 T0_min = sub (T_op, 3);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 test ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 if (sub (T0_min, PIT_MIN) < 0)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 T0_min = PIT_MIN; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 }
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 T0_max = add (T0_min, 6);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 test ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 if (sub (T0_max, PIT_MAX) > 0)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425 T0_max = PIT_MAX; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 T0_min = sub (T0_max, 6);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 }
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 }
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 /* Find open loop pitch lag for last two subframes */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 T_op = Pitch_ol (&wsp[L_FRAME_BY2], PIT_MIN, PIT_MAX, L_FRAME_BY2);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 if (dtx_mode == 1)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 lags[1] = T_op; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 periodicity_update (lags, &ptch);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 }
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 /----------------------------------------------------------------------
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 * Loop for every subframe in the analysis frame *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 ----------------------------------------------------------------------
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 * To find the pitch and innovation parameters. The subframe size is *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 * L_SUBFR and the loop is repeated L_FRAME/L_SUBFR times. *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 * - find the weighted LPC coefficients *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 * - find the LPC residual signal res[] *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 * - compute the target signal for pitch search *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 * - compute impulse response of weighted synthesis filter (h1[]) *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 * - find the closed-loop pitch parameters *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 * - encode the pitch delay *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 * - update the impulse response h1[] by including pitch *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 * - find target vector for codebook search *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 * - codebook search *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 * - encode codebook address *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 * - VQ of pitch and codebook gains *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 * - find synthesis speech *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 * - update states of weighting filter *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 ----------------------------------------------------------------------/
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 /* pointer to interpolated LPC parameters */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 A = A_t; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 /* pointer to interpolated quantized LPC parameters */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 Aq = Aq_t; move16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 for (i_subfr = 0; i_subfr < L_FRAME; i_subfr += L_SUBFR)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 test (); logic16 ();
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 if ((txdtx_ctrl & TX_SP_FLAG) != 0)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 /---------------------------------------------------------------
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 * Find the weighted LPC coefficients for the weighting filter. *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 ---------------------------------------------------------------/
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 Weight_Ai (A, F_gamma1, Ap1);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 Weight_Ai (A, F_gamma2, Ap2);
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 #if (WMOPS)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 fwc (); /* function worst case */
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 #endif
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 /---------------------------------------------------------------
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 * Compute impulse response, h1[], of weighted synthesis filter *
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496 ---------------------------------------------------------------/
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 for (i = 0; i <= M; i++)
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 {
56410792419a src: original EFR source from ETSI Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 ai_zero[i] = Ap1[i]; move16 ();

0

56410792419a src: original EFR source from ETSI