Squashed commit of the following:
[opus.git] / src_FLP / SKP_Silk_main_FLP.h
1 /***********************************************************************\r
2 Copyright (c) 2006-2011, Skype Limited. All rights reserved. \r
3 Redistribution and use in source and binary forms, with or without \r
4 modification, (subject to the limitations in the disclaimer below) \r
5 are permitted provided that the following conditions are met:\r
6 - Redistributions of source code must retain the above copyright notice,\r
7 this list of conditions and the following disclaimer.\r
8 - Redistributions in binary form must reproduce the above copyright \r
9 notice, this list of conditions and the following disclaimer in the \r
10 documentation and/or other materials provided with the distribution.\r
11 - Neither the name of Skype Limited, nor the names of specific \r
12 contributors, may be used to endorse or promote products derived from \r
13 this software without specific prior written permission.\r
14 NO EXPRESS OR IMPLIED LICENSES TO ANY PARTY'S PATENT RIGHTS ARE GRANTED \r
15 BY THIS LICENSE. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND \r
16 CONTRIBUTORS ''AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING,\r
17 BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND \r
18 FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE \r
19 COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, \r
20 INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT\r
21 NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF \r
22 USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON \r
23 ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT \r
24 (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE \r
25 OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\r
26 ***********************************************************************/\r
27 \r
28 #ifndef SKP_SILK_MAIN_FLP_H\r
29 #define SKP_SILK_MAIN_FLP_H\r
30 \r
31 #include "SKP_Silk_SigProc_FLP.h"\r
32 #include "SKP_Silk_SigProc_FIX.h"\r
33 #include "SKP_Silk_structs_FLP.h"\r
34 #include "SKP_Silk_main.h"\r
35 #include "SKP_Silk_define.h"\r
36 #include "SKP_debug.h"\r
37 #include "entenc.h"\r
38 \r
39 #ifdef __cplusplus\r
40 extern "C"\r
41 {\r
42 #endif\r
43 \r
44 /*********************/\r
45 /* Encoder Functions */\r
46 /*********************/\r
47 \r
48 /* Encoder main function */\r
49 SKP_int SKP_Silk_encode_frame_FLP( \r
50     SKP_Silk_encoder_state_FLP      *psEnc,             /* I/O  Encoder state FLP                       */\r
51     SKP_int32                       *pnBytesOut,        /*   O  Number of payload bytes;                */\r
52     ec_enc                          *psRangeEnc         /* I/O  compressor data structure                */\r
53 );\r
54 \r
55 /* Low Bitrate Redundancy (LBRR) encoding. Reuse all parameters but encode with lower bitrate           */\r
56 void SKP_Silk_LBRR_encode_FLP(\r
57     SKP_Silk_encoder_state_FLP      *psEnc,             /* I/O  Encoder state FLP                       */\r
58     SKP_Silk_encoder_control_FLP    *psEncCtrl,         /* I/O  Encoder control FLP                     */\r
59     const SKP_float                 xfw[]               /* I    Input signal                            */\r
60 );\r
61 \r
62 /* Initializes the Silk encoder state */\r
63 SKP_int SKP_Silk_init_encoder(\r
64     SKP_Silk_encoder_state_FLP      *psEnc              /* I/O  Encoder state FLP                       */\r
65 );\r
66 \r
67 /* Control the Silk encoder */\r
68 SKP_int SKP_Silk_control_encoder( \r
69     SKP_Silk_encoder_state_FLP      *psEnc,             /* I/O  Pointer to Silk encoder state FLP       */\r
70     SKP_SILK_SDK_EncControlStruct   *encControl,        /* I:   Control structure                       */\r
71     const SKP_int32                 TargetRate_bps      /* I    Target max bitrate (bps)                */\r
72 );\r
73 \r
74 /****************/\r
75 /* Prefiltering */\r
76 /****************/\r
77 void SKP_Silk_prefilter_FLP(\r
78     SKP_Silk_encoder_state_FLP          *psEnc,         /* I/O  Encoder state FLP                       */\r
79     const SKP_Silk_encoder_control_FLP  *psEncCtrl,     /* I    Encoder control FLP                     */\r
80           SKP_float                     xw[],           /* O    Weighted signal                         */\r
81     const SKP_float                     x[]             /* I    Speech signal                           */\r
82 );\r
83 \r
84 /**************************/\r
85 /* Noise shaping analysis */\r
86 /**************************/\r
87 /* Compute noise shaping coefficients and initial gain values */\r
88 void SKP_Silk_noise_shape_analysis_FLP(\r
89     SKP_Silk_encoder_state_FLP      *psEnc,             /* I/O  Encoder state FLP                       */\r
90     SKP_Silk_encoder_control_FLP    *psEncCtrl,         /* I/O  Encoder control FLP                     */\r
91     const SKP_float                 *pitch_res,         /* I    LPC residual from pitch analysis        */\r
92     const SKP_float                 *x                  /* I    Input signal [frame_length + la_shape]  */\r
93 );\r
94 \r
95 /* Autocorrelations for a warped frequency axis */\r
96 void SKP_Silk_warped_autocorrelation_FLP( \r
97           SKP_float                 *corr,              /* O    Result [order + 1]                      */\r
98     const SKP_float                 *input,             /* I    Input data to correlate                 */\r
99     const SKP_float                 warping,            /* I    Warping coefficient                     */\r
100     const SKP_int                   length,             /* I    Length of input                         */\r
101     const SKP_int                   order               /* I    Correlation order (even)                */\r
102 );\r
103 \r
104 /* Calculation of LTP state scaling */\r
105 void SKP_Silk_LTP_scale_ctrl_FLP(\r
106     SKP_Silk_encoder_state_FLP      *psEnc,             /* I/O  Encoder state FLP                       */\r
107     SKP_Silk_encoder_control_FLP    *psEncCtrl          /* I/O  Encoder control FLP                     */\r
108 );\r
109 \r
110 /**********************************************/\r
111 /* Prediction Analysis                        */\r
112 /**********************************************/\r
113 /* Find pitch lags */\r
114 void SKP_Silk_find_pitch_lags_FLP(\r
115     SKP_Silk_encoder_state_FLP      *psEnc,             /* I/O  Encoder state FLP                       */\r
116     SKP_Silk_encoder_control_FLP    *psEncCtrl,         /* I/O  Encoder control FLP                     */\r
117           SKP_float                 res[],              /* O    Residual                                */\r
118     const SKP_float                 x[]                 /* I    Speech signal                           */\r
119 );\r
120 \r
121 /* Find LPC and LTP coefficients */\r
122 void SKP_Silk_find_pred_coefs_FLP(\r
123     SKP_Silk_encoder_state_FLP      *psEnc,             /* I/O  Encoder state FLP                       */\r
124     SKP_Silk_encoder_control_FLP    *psEncCtrl,         /* I/O  Encoder control FLP                     */\r
125     const SKP_float                 res_pitch[],        /* I    Residual from pitch analysis            */\r
126     const SKP_float                 x[]                 /* I    Speech signal                           */\r
127 );\r
128 \r
129 /* LPC analysis */\r
130 void SKP_Silk_find_LPC_FLP(\r
131           SKP_int16                 NLSF_Q15[],             /* O    NLSFs                                   */\r
132           SKP_int8                  *interpIndex,           /* O    NLSF interp. index for NLSF interp.     */\r
133     const SKP_int16                 prev_NLSFq_Q15[],       /* I    Previous NLSFs, for NLSF interpolation  */\r
134     const SKP_int                   useInterpNLSFs,         /* I    Flag                                    */\r
135     const SKP_int                   firstFrameAfterReset,   /* I    Flag                                    */\r
136     const SKP_int                   LPC_order,              /* I    LPC order                               */\r
137     const SKP_float                 x[],                    /* I    Input signal                            */\r
138     const SKP_int                   subfr_length,           /* I    Subframe length incl preceeding samples */\r
139     const SKP_int                   nb_subfr                /* I:   Number of subframes                     */\r
140 );\r
141 \r
142 /* LTP analysis */\r
143 void SKP_Silk_find_LTP_FLP(\r
144           SKP_float b[ MAX_NB_SUBFR * LTP_ORDER ],          /* O    LTP coefs                               */\r
145           SKP_float WLTP[ MAX_NB_SUBFR * LTP_ORDER * LTP_ORDER ], /* O    Weight for LTP quantization       */\r
146           SKP_float *LTPredCodGain,                         /* O    LTP coding gain                         */\r
147     const SKP_float r_lpc[],                                /* I    LPC residual                            */\r
148     const SKP_int   lag[  MAX_NB_SUBFR ],                   /* I    LTP lags                                */\r
149     const SKP_float Wght[ MAX_NB_SUBFR ],                   /* I    Weights                                 */\r
150     const SKP_int   subfr_length,                           /* I    Subframe length                         */\r
151     const SKP_int   nb_subfr,                               /* I    number of subframes                     */\r
152     const SKP_int   mem_offset                              /* I    Number of samples in LTP memory         */\r
153 );\r
154 \r
155 void SKP_Silk_LTP_analysis_filter_FLP(\r
156           SKP_float         *LTP_res,                   /* O    LTP res MAX_NB_SUBFR*(pre_lgth+subfr_lngth) */\r
157     const SKP_float         *x,                         /* I    Input signal, with preceeding samples       */\r
158     const SKP_float         B[ LTP_ORDER * MAX_NB_SUBFR ],  /* I    LTP coefficients for each subframe      */\r
159     const SKP_int           pitchL[   MAX_NB_SUBFR ],   /* I    Pitch lags                                  */\r
160     const SKP_float         invGains[ MAX_NB_SUBFR ],   /* I    Inverse quantization gains                  */\r
161     const SKP_int           subfr_length,               /* I    Length of each subframe                     */\r
162     const SKP_int           nb_subfr,                   /* I    number of subframes                         */\r
163     const SKP_int           pre_length                  /* I    Preceeding samples for each subframe        */\r
164 );\r
165 \r
166 /* Calculates residual energies of input subframes where all subframes have LPC_order   */\r
167 /* of preceeding samples                                                                */\r
168 void SKP_Silk_residual_energy_FLP(  \r
169           SKP_float             nrgs[ MAX_NB_SUBFR ],   /* O    Residual energy per subframe            */\r
170     const SKP_float             x[],                    /* I    Input signal                            */\r
171     const SKP_float             a[ 2 ][ MAX_LPC_ORDER ],/* I    AR coefs for each frame half            */\r
172     const SKP_float             gains[],                /* I    Quantization gains                      */\r
173     const SKP_int               subfr_length,           /* I    Subframe length                         */\r
174     const SKP_int               nb_subfr,               /* I    number of subframes                     */\r
175     const SKP_int               LPC_order               /* I    LPC order                               */\r
176 );\r
177 \r
178 /* 16th order LPC analysis filter */\r
179 void SKP_Silk_LPC_analysis_filter_FLP(\r
180           SKP_float                 r_LPC[],            /* O    LPC residual signal                     */\r
181     const SKP_float                 PredCoef[],         /* I    LPC coefficients                        */\r
182     const SKP_float                 s[],                /* I    Input signal                            */\r
183     const SKP_int                   length,             /* I    Length of input signal                  */\r
184     const SKP_int                   Order               /* I    LPC order                               */\r
185 );\r
186 \r
187 /* LTP tap quantizer */\r
188 void SKP_Silk_quant_LTP_gains_FLP(\r
189           SKP_float B[ MAX_NB_SUBFR * LTP_ORDER ],              /* I/O  (Un-)quantized LTP gains                */\r
190           SKP_int8  cbk_index[ MAX_NB_SUBFR ],                  /* O    Codebook index                          */\r
191           SKP_int8  *periodicity_index,                         /* O    Periodicity index                       */\r
192     const SKP_float W[ MAX_NB_SUBFR * LTP_ORDER * LTP_ORDER ],  /* I    Error weights                           */\r
193     const SKP_int   mu_Q10,                                     /* I    Mu value (R/D tradeoff)                 */\r
194     const SKP_int   lowComplexity,                              /* I    Flag for low complexity                 */\r
195     const SKP_int   nb_subfr                                    /* I    number of subframes                     */\r
196 );\r
197 \r
198 /******************/\r
199 /* NLSF Quantizer */\r
200 /******************/\r
201 /* Limit, stabilize, and quantize NLSFs */\r
202 void SKP_Silk_process_NLSFs_FLP(\r
203     SKP_Silk_encoder_state          *psEncC,                            /* I/O  Encoder state                               */\r
204     SKP_float                       PredCoef[ 2 ][ MAX_LPC_ORDER ],     /* O    Prediction coefficients                     */\r
205     SKP_int16                       NLSF_Q15[      MAX_LPC_ORDER ],     /* I/O  Normalized LSFs (quant out) (0 - (2^15-1))  */\r
206     const SKP_int16                 prev_NLSF_Q15[ MAX_LPC_ORDER ]      /* I    Previous Normalized LSFs (0 - (2^15-1))     */\r
207 );\r
208 \r
209 /* Residual energy: nrg = wxx - 2 * wXx * c + c' * wXX * c */\r
210 SKP_float SKP_Silk_residual_energy_covar_FLP(           /* O    Weighted residual energy                */\r
211     const SKP_float                 *c,                 /* I    Filter coefficients                     */\r
212           SKP_float                 *wXX,               /* I/O  Weighted correlation matrix, reg. out   */\r
213     const SKP_float                 *wXx,               /* I    Weighted correlation vector             */\r
214     const SKP_float                 wxx,                /* I    Weighted correlation value              */\r
215     const SKP_int                   D                   /* I    Dimension                               */\r
216 );\r
217 \r
218 /* Entropy constrained MATRIX-weighted VQ, for a single input data vector */\r
219 void SKP_Silk_VQ_WMat_EC_FLP(\r
220           SKP_int                   *ind,               /* O    Index of best codebook vector           */\r
221           SKP_float                 *rate_dist,         /* O    Best weighted quant. error + mu * rate  */\r
222     const SKP_float                 *in,                /* I    Input vector to be quantized            */\r
223     const SKP_float                 *W,                 /* I    Weighting matrix                        */\r
224     const SKP_int16                 *cb,                /* I    Codebook                                */\r
225     const SKP_int16                 *cl_Q6,             /* I    Code length for each codebook vector    */\r
226     const SKP_float                 mu,                 /* I    Tradeoff between WSSE and rate          */\r
227     const SKP_int                   L                   /* I    Number of vectors in codebook           */\r
228 );\r
229 \r
230 /* Processing of gains */\r
231 void SKP_Silk_process_gains_FLP(\r
232     SKP_Silk_encoder_state_FLP      *psEnc,             /* I/O  Encoder state FLP                       */\r
233     SKP_Silk_encoder_control_FLP    *psEncCtrl          /* I/O  Encoder control FLP                     */\r
234 );\r
235 \r
236 /******************/\r
237 /* Linear Algebra */\r
238 /******************/\r
239 /* Calculates correlation matrix X'*X */\r
240 void SKP_Silk_corrMatrix_FLP(\r
241     const SKP_float                 *x,                 /* I    x vector [ L+order-1 ] used to create X */\r
242     const SKP_int                   L,                  /* I    Length of vectors                       */\r
243     const SKP_int                   Order,              /* I    Max lag for correlation                 */\r
244           SKP_float                 *XX                 /* O    X'*X correlation matrix [order x order] */\r
245 );\r
246 \r
247 /* Calculates correlation vector X'*t */\r
248 void SKP_Silk_corrVector_FLP(\r
249     const SKP_float                 *x,                 /* I    x vector [L+order-1] used to create X   */\r
250     const SKP_float                 *t,                 /* I    Target vector [L]                       */\r
251     const SKP_int                   L,                  /* I    Length of vecors                        */\r
252     const SKP_int                   Order,              /* I    Max lag for correlation                 */\r
253           SKP_float                 *Xt                 /* O    X'*t correlation vector [order]         */\r
254 );\r
255 \r
256 /* Add noise to matrix diagonal */\r
257 void SKP_Silk_regularize_correlations_FLP(\r
258           SKP_float                 *XX,                /* I/O  Correlation matrices                    */\r
259           SKP_float                 *xx,                /* I/O  Correlation values                      */\r
260     const SKP_float                 noise,              /* I    Noise energy to add                     */\r
261     const SKP_int                   D                   /* I    Dimension of XX                         */\r
262 );\r
263 \r
264 /* Function to solve linear equation Ax = b, where A is an MxM symmetric matrix */\r
265 void SKP_Silk_solve_LDL_FLP(\r
266           SKP_float                 *A,                 /* I/O  Symmetric square matrix, out: reg.      */\r
267     const SKP_int                   M,                  /* I    Size of matrix                          */\r
268     const SKP_float                 *b,                 /* I    Pointer to b vector                     */\r
269           SKP_float                 *x                  /* O    Pointer to x solution vector            */\r
270 );\r
271 \r
272 /* Apply sine window to signal vector.                                                                  */\r
273 /* Window types:                                                                                        */\r
274 /*  1 -> sine window from 0 to pi/2                                                                     */\r
275 /*  2 -> sine window from pi/2 to pi                                                                    */\r
276 void SKP_Silk_apply_sine_window_FLP(\r
277           SKP_float                 px_win[],           /* O    Pointer to windowed signal              */\r
278     const SKP_float                 px[],               /* I    Pointer to input signal                 */\r
279     const SKP_int                   win_type,           /* I    Selects a window type                   */\r
280     const SKP_int                   length              /* I    Window length, multiple of 4            */\r
281 );\r
282 \r
283 /* Wrappers. Calls flp / fix code */\r
284 \r
285 /* Convert AR filter coefficients to NLSF parameters */\r
286 void SKP_Silk_A2NLSF_FLP( \r
287           SKP_int16                 *NLSF_Q15,          /* O    NLSF vector      [ LPC_order ]          */\r
288     const SKP_float                 *pAR,               /* I    LPC coefficients [ LPC_order ]          */\r
289     const SKP_int                   LPC_order           /* I    LPC order                               */\r
290 );\r
291 \r
292 /* Convert NLSF parameters to AR prediction filter coefficients */\r
293 void SKP_Silk_NLSF2A_stable_FLP( \r
294           SKP_float                 *pAR,               /* O    LPC coefficients [ LPC_order ]          */\r
295     const SKP_int16                 *NLSF_Q15,          /* I    NLSF vector      [ LPC_order ]          */\r
296     const SKP_int                   LPC_order           /* I    LPC order                               */\r
297 );\r
298 \r
299 /****************************************/\r
300 /* Floating-point Silk NSQ wrapper      */\r
301 /****************************************/\r
302 void SKP_Silk_NSQ_wrapper_FLP(\r
303     SKP_Silk_encoder_state_FLP      *psEnc,         /* I/O  Encoder state FLP                           */\r
304     SKP_Silk_encoder_control_FLP    *psEncCtrl,     /* I/O  Encoder control FLP                         */\r
305     SideInfoIndices                 *psIndices,     /* I/O  Quantization indices                        */\r
306     SKP_Silk_nsq_state              *psNSQ,         /* I/O  Noise Shaping Quantzation state             */\r
307           SKP_int8                  pulses[],       /* O    Quantized pulse signal                      */\r
308     const SKP_float                 x[]             /* I    Prefiltered input signal                    */\r
309 );\r
310 \r
311 /* using log2() helps the fixed-point conversion */\r
312 SKP_INLINE SKP_float SKP_Silk_log2( double x ) { return ( SKP_float )( 3.32192809488736 * log10( x ) ); }\r
313 \r
314 #ifdef __cplusplus\r
315 }\r
316 #endif\r
317 \r
318 #endif\r