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( 28e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard Word16 x[], /* (i/o) : signal to scale */ 29e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard Word16 lg, /* (i) : size of x[] */ 30e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard Word16 exp /* (i) : exponent: x = round(x << exp) */ 31e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ) 32e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard{ 33e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard Word32 i; 34e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard Word32 L_tmp; 35e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard if(exp > 0) 36e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard { 37e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard for (i = lg - 1 ; i >= 0; i--) 38e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard { 39b676a05348e4c516fa8b57e33b10548e6142c3f8Mans Rullgard L_tmp = L_shl2(x[i], 16 + exp); 40b676a05348e4c516fa8b57e33b10548e6142c3f8Mans Rullgard x[i] = extract_h(L_add(L_tmp, 0x8000)); 41e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard } 42e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard } 43e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard else 44e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard { 45e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard exp = -exp; 46e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard for (i = lg - 1; i >= 0; i--) 47e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard { 48e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard L_tmp = x[i] << 16; 49b676a05348e4c516fa8b57e33b10548e6142c3f8Mans Rullgard L_tmp >>= exp; 50b676a05348e4c516fa8b57e33b10548e6142c3f8Mans Rullgard x[i] = (L_tmp + 0x8000)>>16; 51e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard } 52e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard } 53e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard return; 54e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard} 55e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 56e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 57e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard 58