1e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard/* 2e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** Copyright 2003-2010, VisualOn, Inc. 3e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** 4e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** Licensed under the Apache License, Version 2.0 (the "License"); 5e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** you may not use this file except in compliance with the License. 6e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** You may obtain a copy of the License at 7e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** 8e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** http://www.apache.org/licenses/LICENSE-2.0 9e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** 10e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** Unless required by applicable law or agreed to in writing, software 11e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** distributed under the License is distributed on an "AS IS" BASIS, 12e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 13e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** See the License for the specific language governing permissions and 14e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** limitations under the License. 15e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard */ 16e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 17e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard/*********************************************************************** 18e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard* File: decim54.c * 19e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard* * 205d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen* Description:Decimation of 16kHz signal to 12.8kHz * 21e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard* * 22e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard************************************************************************/ 23e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 24e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "typedef.h" 25e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "basic_op.h" 26e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "acelp.h" 27e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "cnst.h" 28e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 29e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#define FAC5 5 30e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#define DOWN_FAC 26215 /* 4/5 in Q15 */ 31e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 32e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#define NB_COEF_DOWN 15 33e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 34e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard/* Local functions */ 35e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgardstatic void Down_samp( 365d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 * sig, /* input: signal to downsampling */ 375d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 * sig_d, /* output: downsampled signal */ 385d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 L_frame_d /* input: length of output */ 395d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen ); 40e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 41e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard/* 1/5 resolution interpolation filter (in Q14) */ 42e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard/* -1.5dB @ 6kHz, -6dB @ 6.4kHz, -10dB @ 6.6kHz, -20dB @ 6.9kHz, -25dB @ 7kHz, -55dB @ 8kHz */ 43e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 44e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgardstatic Word16 fir_down1[4][30] = 45e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard{ 465d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen {-5, 24, -50, 54, 0, -128, 294, -408, 344, 0, -647, 1505, -2379, 3034, 13107, 3034, -2379, 1505, -647, 0, 344, -408, 475d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen 294, -128, 0, 54, -50, 24, -5, 0}, 48e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 495d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen {-6, 19, -26, 0, 77, -188, 270, -233, 0, 434, -964, 1366, -1293, 0, 12254, 6575, -2746, 1030, 0, -507, 601, -441, 505d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen 198, 0, -95, 99, -58, 18, 0, -1}, 51e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 525d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen {-3, 9, 0, -41, 111, -170, 153, 0, -295, 649, -888, 770, 0, -1997, 9894, 9894, -1997, 0, 770, -888, 649, -295, 0, 535d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen 153, -170, 111, -41, 0, 9, -3}, 54e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 555d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen {-1, 0, 18, -58, 99, -95, 0, 198, -441, 601, -507, 0, 1030, -2746, 6575, 12254, 0, -1293, 1366, -964, 434, 0, 565d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen -233, 270, -188, 77, 0, -26, 19, -6} 57e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard}; 58e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 59e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgardvoid Init_Decim_12k8( 605d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 mem[] /* output: memory (2*NB_COEF_DOWN) set to zeros */ 615d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen ) 62e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard{ 635d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Set_zero(mem, 2 * NB_COEF_DOWN); 645d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen return; 65e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard} 66e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 67e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgardvoid Decim_12k8( 685d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 sig16k[], /* input: signal to downsampling */ 695d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 lg, /* input: length of input */ 705d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 sig12k8[], /* output: decimated signal */ 715d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 mem[] /* in/out: memory (2*NB_COEF_DOWN) */ 725d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen ) 73e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard{ 745d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 lg_down; 755d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 signal[L_FRAME16k + (2 * NB_COEF_DOWN)]; 76e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 775d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Copy(mem, signal, 2 * NB_COEF_DOWN); 78e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 795d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Copy(sig16k, signal + (2 * NB_COEF_DOWN), lg); 80e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 815d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen lg_down = (lg * DOWN_FAC)>>15; 82e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 835d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Down_samp(signal + NB_COEF_DOWN, sig12k8, lg_down); 84e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 855d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Copy(signal + lg, mem, 2 * NB_COEF_DOWN); 86e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 875d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen return; 88e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard} 89e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 90e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgardstatic void Down_samp( 915d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 * sig, /* input: signal to downsampling */ 925d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 * sig_d, /* output: downsampled signal */ 935d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 L_frame_d /* input: length of output */ 945d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen ) 95e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard{ 965d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word32 i, j, frac, pos; 975d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 *x, *y; 985d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word32 L_sum; 995d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen 1005d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen pos = 0; /* position is in Q2 -> 1/4 resolution */ 1015d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen for (j = 0; j < L_frame_d; j++) 1025d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen { 1035d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen i = (pos >> 2); /* integer part */ 1045d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen frac = pos & 3; /* fractional part */ 1055d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen x = sig + i - NB_COEF_DOWN + 1; 1065d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen y = (Word16 *)(fir_down1 + frac); 1075d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen 1085d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum = vo_mult32((*x++),(*y++)); 1095d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1105d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1115d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1125d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1135d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1145d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1155d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1165d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1175d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1185d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1195d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1205d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1215d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1225d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1235d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1245d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1255d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1265d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1275d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1285d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1295d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1305d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1315d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1325d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1335d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1345d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1355d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1365d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x++),(*y++)); 1375d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum += vo_mult32((*x),(*y)); 1385d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen 1395d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_sum = L_shl2(L_sum, 2); 1405d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen sig_d[j] = extract_h(L_add(L_sum, 0x8000)); 1415d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen pos += FAC5; /* pos + 5/4 */ 1425d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen } 1435d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen return; 144e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard} 145e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 146e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 147