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: scale.c * 19e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard* * 20e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard* Description: Scale signal to get maximum of dynamic * 21e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard* * 22e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard************************************************************************/ 23e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 24e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "typedef.h" 25e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "basic_op.h" 26e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 27e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgardvoid Scale_sig( 285d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 x[], /* (i/o) : signal to scale */ 295d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 lg, /* (i) : size of x[] */ 305d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word16 exp /* (i) : exponent: x = round(x << exp) */ 315d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen ) 32e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard{ 335d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word32 i; 345d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen Word32 L_tmp; 355d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen if(exp > 0) 365d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen { 375d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen for (i = lg - 1 ; i >= 0; i--) 385d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen { 395d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_tmp = L_shl2(x[i], 16 + exp); 405d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen x[i] = extract_h(L_add(L_tmp, 0x8000)); 415d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen } 425d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen } 435d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen else 445d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen { 455d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen exp = -exp; 465d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen for (i = lg - 1; i >= 0; i--) 475d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen { 485d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_tmp = x[i] << 16; 495d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen L_tmp >>= exp; 505d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen x[i] = (L_tmp + 0x8000)>>16; 515d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen } 525d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen } 535d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen return; 54e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard} 55e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 56e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 57e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 58