1219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard/*
2219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard ** Copyright 2003-2010, VisualOn, Inc.
3219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard **
4219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard ** Licensed under the Apache License, Version 2.0 (the "License");
5219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard ** you may not use this file except in compliance with the License.
6219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard ** You may obtain a copy of the License at
7219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard **
8219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard **     http://www.apache.org/licenses/LICENSE-2.0
9219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard **
10219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard ** Unless required by applicable law or agreed to in writing, software
11219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard ** distributed under the License is distributed on an "AS IS" BASIS,
12219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard ** WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard ** See the License for the specific language governing permissions and
14219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard ** limitations under the License.
15219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard */
16219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard
17219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard/***********************************************************************
18219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard*      File: pit_shrp.c                                                *
19219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard*                                                                      *
20219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard*      Description: Performs Pitch sharpening routine                  *
21219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard*                                                                      *
22219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard************************************************************************/
23219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard
24219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard#include "typedef.h"
25219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard#include "basic_op.h"
26219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard
27219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgardvoid Pit_shrp(
28219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard		Word16 * x,                           /* in/out: impulse response (or algebraic code) */
29219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard		Word16 pit_lag,                       /* input : pitch lag                            */
30219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard		Word16 sharp,                         /* input : pitch sharpening factor (Q15)        */
31219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard		Word16 L_subfr                        /* input : subframe size                        */
32219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard	     )
33219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard{
34219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard	Word32 i;
35219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard	Word32 L_tmp;
36219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard	Word16 *x_ptr = x + pit_lag;
37219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard
38219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard	for (i = pit_lag; i < L_subfr; i++)
39219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard	{
40219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard		L_tmp = (*x_ptr << 15);
41219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard		L_tmp += *x++ * sharp;
42219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard		*x_ptr++ = ((L_tmp + 0x4000)>>15);
43219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard	}
44219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard
45219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard	return;
46219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard}
47219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard
48219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard
49219e2627f1e062c10645664b0d2470d4dfaf5083Mans Rullgard
50