1 /* -----------------------------------------------------------------------------
2 Software License for The Fraunhofer FDK AAC Codec Library for Android
3 
4 © Copyright  1995 - 2018 Fraunhofer-Gesellschaft zur Förderung der angewandten
5 Forschung e.V. All rights reserved.
6 
7  1.    INTRODUCTION
8 The Fraunhofer FDK AAC Codec Library for Android ("FDK AAC Codec") is software
9 that implements the MPEG Advanced Audio Coding ("AAC") encoding and decoding
10 scheme for digital audio. This FDK AAC Codec software is intended to be used on
11 a wide variety of Android devices.
12 
13 AAC's HE-AAC and HE-AAC v2 versions are regarded as today's most efficient
14 general perceptual audio codecs. AAC-ELD is considered the best-performing
15 full-bandwidth communications codec by independent studies and is widely
16 deployed. AAC has been standardized by ISO and IEC as part of the MPEG
17 specifications.
18 
19 Patent licenses for necessary patent claims for the FDK AAC Codec (including
20 those of Fraunhofer) may be obtained through Via Licensing
21 (www.vialicensing.com) or through the respective patent owners individually for
22 the purpose of encoding or decoding bit streams in products that are compliant
23 with the ISO/IEC MPEG audio standards. Please note that most manufacturers of
24 Android devices already license these patent claims through Via Licensing or
25 directly from the patent owners, and therefore FDK AAC Codec software may
26 already be covered under those patent licenses when it is used for those
27 licensed purposes only.
28 
29 Commercially-licensed AAC software libraries, including floating-point versions
30 with enhanced sound quality, are also available from Fraunhofer. Users are
31 encouraged to check the Fraunhofer website for additional applications
32 information and documentation.
33 
34 2.    COPYRIGHT LICENSE
35 
36 Redistribution and use in source and binary forms, with or without modification,
37 are permitted without payment of copyright license fees provided that you
38 satisfy the following conditions:
39 
40 You must retain the complete text of this software license in redistributions of
41 the FDK AAC Codec or your modifications thereto in source code form.
42 
43 You must retain the complete text of this software license in the documentation
44 and/or other materials provided with redistributions of the FDK AAC Codec or
45 your modifications thereto in binary form. You must make available free of
46 charge copies of the complete source code of the FDK AAC Codec and your
47 modifications thereto to recipients of copies in binary form.
48 
49 The name of Fraunhofer may not be used to endorse or promote products derived
50 from this library without prior written permission.
51 
52 You may not charge copyright license fees for anyone to use, copy or distribute
53 the FDK AAC Codec software or your modifications thereto.
54 
55 Your modified versions of the FDK AAC Codec must carry prominent notices stating
56 that you changed the software and the date of any change. For modified versions
57 of the FDK AAC Codec, the term "Fraunhofer FDK AAC Codec Library for Android"
58 must be replaced by the term "Third-Party Modified Version of the Fraunhofer FDK
59 AAC Codec Library for Android."
60 
61 3.    NO PATENT LICENSE
62 
63 NO EXPRESS OR IMPLIED LICENSES TO ANY PATENT CLAIMS, including without
64 limitation the patents of Fraunhofer, ARE GRANTED BY THIS SOFTWARE LICENSE.
65 Fraunhofer provides no warranty of patent non-infringement with respect to this
66 software.
67 
68 You may use this FDK AAC Codec software or modifications thereto only for
69 purposes that are authorized by appropriate patent licenses.
70 
71 4.    DISCLAIMER
72 
73 This FDK AAC Codec software is provided by Fraunhofer on behalf of the copyright
74 holders and contributors "AS IS" and WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES,
75 including but not limited to the implied warranties of merchantability and
76 fitness for a particular purpose. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR
77 CONTRIBUTORS BE LIABLE for any direct, indirect, incidental, special, exemplary,
78 or consequential damages, including but not limited to procurement of substitute
79 goods or services; loss of use, data, or profits, or business interruption,
80 however caused and on any theory of liability, whether in contract, strict
81 liability, or tort (including negligence), arising in any way out of the use of
82 this software, even if advised of the possibility of such damage.
83 
84 5.    CONTACT INFORMATION
85 
86 Fraunhofer Institute for Integrated Circuits IIS
87 Attention: Audio and Multimedia Departments - FDK AAC LL
88 Am Wolfsmantel 33
89 91058 Erlangen, Germany
90 
91 www.iis.fraunhofer.de/amm
92 amm-info@iis.fraunhofer.de
93 ----------------------------------------------------------------------------- */
94 
95 /**************************** AAC encoder library ******************************
96 
97    Author(s):   M. Werner
98 
99    Description: Convert chaos measure to the tonality index
100 
101 *******************************************************************************/
102 
103 #include "tonality.h"
104 
105 #include "chaosmeasure.h"
106 
107 #if defined(__arm__)
108 #endif
109 
110 static const FIXP_DBL normlog =
111     (FIXP_DBL)0xd977d949; /*FL2FXCONST_DBL(-0.4342944819f *
112                              FDKlog(2.0)/FDKlog(2.7182818)); */
113 
114 static void FDKaacEnc_CalcSfbTonality(FIXP_DBL *RESTRICT spectrum,
115                                       INT *RESTRICT sfbMaxScaleSpec,
116                                       FIXP_DBL *RESTRICT chaosMeasure,
117                                       FIXP_SGL *RESTRICT sfbTonality,
118                                       INT sfbCnt, const INT *RESTRICT sfbOffset,
119                                       FIXP_DBL *RESTRICT sfbEnergyLD64);
120 
FDKaacEnc_CalculateFullTonality(FIXP_DBL * RESTRICT spectrum,INT * RESTRICT sfbMaxScaleSpec,FIXP_DBL * RESTRICT sfbEnergyLD64,FIXP_SGL * RESTRICT sfbTonality,INT sfbCnt,const INT * sfbOffset,INT usePns)121 void FDKaacEnc_CalculateFullTonality(FIXP_DBL *RESTRICT spectrum,
122                                      INT *RESTRICT sfbMaxScaleSpec,
123                                      FIXP_DBL *RESTRICT sfbEnergyLD64,
124                                      FIXP_SGL *RESTRICT sfbTonality, INT sfbCnt,
125                                      const INT *sfbOffset, INT usePns) {
126   INT j;
127   INT numberOfLines = sfbOffset[sfbCnt];
128 
129   if (usePns) {
130     C_ALLOC_SCRATCH_START(chaosMeasurePerLine, FIXP_DBL, (1024))
131 
132     /* calculate chaos measure */
133     FDKaacEnc_CalculateChaosMeasure(spectrum, numberOfLines,
134                                     chaosMeasurePerLine);
135 
136     /* smooth ChaosMeasure */
137     FIXP_DBL left = chaosMeasurePerLine[0];
138     FIXP_DBL right;
139     for (j = 1; j < (numberOfLines - 1); j += 2) {
140       right = chaosMeasurePerLine[j];
141       right = right - (right >> 2);
142       left = right + (left >> 2);
143       chaosMeasurePerLine[j] = left; /* 0.25 left + 0.75 right */
144 
145       right = chaosMeasurePerLine[j + 1];
146       right = right - (right >> 2);
147       left = right + (left >> 2);
148       chaosMeasurePerLine[j + 1] = left;
149     }
150     if (j == (numberOfLines - 1)) {
151       right = chaosMeasurePerLine[j];
152       right = right - (right >> 2);
153       left = right + (left >> 2);
154       chaosMeasurePerLine[j] = left;
155     }
156 
157     FDKaacEnc_CalcSfbTonality(spectrum, sfbMaxScaleSpec, chaosMeasurePerLine,
158                               sfbTonality, sfbCnt, sfbOffset, sfbEnergyLD64);
159 
160     C_ALLOC_SCRATCH_END(chaosMeasurePerLine, FIXP_DBL, (1024))
161   }
162 }
163 
164 /*****************************************************************************
165 
166     functionname: CalculateTonalityIndex
167     description:  computes tonality values out of unpredictability values
168                   limits range and computes log()
169     returns:
170     input:        ptr to energies, ptr to chaos measure values,
171                   number of sfb
172     output:       sfb wise tonality values
173 
174 *****************************************************************************/
FDKaacEnc_CalcSfbTonality(FIXP_DBL * RESTRICT spectrum,INT * RESTRICT sfbMaxScaleSpec,FIXP_DBL * RESTRICT chaosMeasure,FIXP_SGL * RESTRICT sfbTonality,INT sfbCnt,const INT * RESTRICT sfbOffset,FIXP_DBL * RESTRICT sfbEnergyLD64)175 static void FDKaacEnc_CalcSfbTonality(FIXP_DBL *RESTRICT spectrum,
176                                       INT *RESTRICT sfbMaxScaleSpec,
177                                       FIXP_DBL *RESTRICT chaosMeasure,
178                                       FIXP_SGL *RESTRICT sfbTonality,
179                                       INT sfbCnt, const INT *RESTRICT sfbOffset,
180                                       FIXP_DBL *RESTRICT sfbEnergyLD64) {
181   INT i;
182 
183   for (i = 0; i < sfbCnt; i++) {
184     FIXP_DBL chaosMeasureSfbLD64;
185     INT shiftBits =
186         fixMax(0, sfbMaxScaleSpec[i] -
187                       4); /* max sfbWidth = 96 ; 2^7=128 => 7/2 = 4 (spc*spc) */
188 
189     INT j;
190     FIXP_DBL chaosMeasureSfb = FL2FXCONST_DBL(0.0);
191 
192     /* calc chaosMeasurePerSfb */
193     for (j = (sfbOffset[i + 1] - sfbOffset[i]) - 1; j >= 0; j--) {
194       FIXP_DBL tmp = (*spectrum++) << shiftBits;
195       FIXP_DBL lineNrg = fMultDiv2(tmp, tmp);
196       chaosMeasureSfb = fMultAddDiv2(chaosMeasureSfb, lineNrg, *chaosMeasure++);
197     }
198 
199     /* calc tonalityPerSfb */
200     if (chaosMeasureSfb != FL2FXCONST_DBL(0.0)) {
201       /* add ld(convtone)/64 and 2/64 bec.fMultDiv2 */
202       chaosMeasureSfbLD64 = CalcLdData((chaosMeasureSfb)) - sfbEnergyLD64[i];
203       chaosMeasureSfbLD64 += FL2FXCONST_DBL(3.0f / 64) -
204                              ((FIXP_DBL)(shiftBits) << (DFRACT_BITS - 6));
205 
206       if (chaosMeasureSfbLD64 >
207           FL2FXCONST_DBL(-0.0519051)) /* > ld(0.05)+ld(2) */
208       {
209         if (chaosMeasureSfbLD64 <= FL2FXCONST_DBL(0.0))
210           sfbTonality[i] =
211               FX_DBL2FX_SGL(fMultDiv2(chaosMeasureSfbLD64, normlog) << 7);
212         else
213           sfbTonality[i] = FL2FXCONST_SGL(0.0);
214       } else
215         sfbTonality[i] = (FIXP_SGL)MAXVAL_SGL;
216     } else
217       sfbTonality[i] = (FIXP_SGL)MAXVAL_SGL;
218   }
219 }
220