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