zdoom/raze-gles
0
0
Fork 0
mirror of https://github.com/ZDoom/raze-gles.git synced 2024-11-14 08:30:58 +00:00
Code Issues Projects Releases Packages Wiki Activity
raze-gles/libraries/timidityplus/freq.cpp
Christoph Oelckers 9f9748ede6 - initial ZMusic hookup.
2019-11-10 23:58:51 +01:00

710 lines
No EOL
20 KiB
C++
Raw Blame History

/*
TiMidity++ -- MIDI to WAVE converter and player
Copyright (C) 1999-2002 Masanao Izumo <mo@goice.co.jp>
Copyright (C) 1995 Tuukka Toivonen <tt@cgs.fi>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include "timidity.h"
#include "common.h"
#include "instrum.h"
#include "freq.h"
#include "fft4g.h"
namespace TimidityPlus
{
/* middle C = pitch 60 = 261.6 Hz
freq = 13.75 * exp((pitch - 9) / 12 * log(2))
pitch = 9 - log(13.75 / freq) * 12 / log(2)
= -36.37631656 + 17.31234049 * log(freq)
*/
const float pitch_freq_table[129] = {
8.17579892f, 8.66195722f, 9.17702400f, 9.72271824f, 10.3008612f, 10.9133822f,
11.5623257f, 12.2498574f, 12.9782718f, 13.7500000f, 14.5676175f, 15.4338532f,
16.3515978f, 17.3239144f, 18.3540480f, 19.4454365f, 20.6017223f, 21.8267645f,
23.1246514f, 24.4997147f, 25.9565436f, 27.5000000f, 29.1352351f, 30.8677063f,
32.7031957f, 34.6478289f, 36.7080960f, 38.8908730f, 41.2034446f, 43.6535289f,
46.2493028f, 48.9994295f, 51.9130872f, 55.0000000f, 58.2704702f, 61.7354127f,
65.4063913f, 69.2956577f, 73.4161920f, 77.7817459f, 82.4068892f, 87.3070579f,
92.4986057f, 97.9988590f, 103.826174f, 110.000000f, 116.540940f, 123.470825f,
130.812783f, 138.591315f, 146.832384f, 155.563492f, 164.813778f, 174.614116f,
184.997211f, 195.997718f, 207.652349f, 220.000000f, 233.081881f, 246.941651f,
261.625565f, 277.182631f, 293.664768f, 311.126984f, 329.627557f, 349.228231f,
369.994423f, 391.995436f, 415.304698f, 440.000000f, 466.163762f, 493.883301f,
523.251131f, 554.365262f, 587.329536f, 622.253967f, 659.255114f, 698.456463f,
739.988845f, 783.990872f, 830.609395f, 880.000000f, 932.327523f, 987.766603f,
1046.50226f, 1108.73052f, 1174.65907f, 1244.50793f, 1318.51023f, 1396.91293f,
1479.97769f, 1567.98174f, 1661.21879f, 1760.00000f, 1864.65505f, 1975.53321f,
2093.00452f, 2217.46105f, 2349.31814f, 2489.01587f, 2637.02046f, 2793.82585f,
2959.95538f, 3135.96349f, 3322.43758f, 3520.00000f, 3729.31009f, 3951.06641f,
4186.00904f, 4434.92210f, 4698.63629f, 4978.03174f, 5274.04091f, 5587.65170f,
5919.91076f, 6271.92698f, 6644.87516f, 7040.00000f, 7458.62018f, 7902.13282f,
8372.01809f, 8869.84419f, 9397.27257f, 9956.06348f, 10548.0818f, 11175.3034f,
11839.8215f, 12543.8540f, 13289.7503f
};
/* center_pitch + 0.49999 */
const float pitch_freq_ub_table[129] = {
8.41536325f, 8.91576679f, 9.44592587f, 10.0076099f, 10.6026933f, 11.2331623f,
11.9011208f, 12.6087983f, 13.3585565f, 14.1528976f, 14.9944727f, 15.8860904f,
16.8307265f, 17.8315336f, 18.8918517f, 20.0152197f, 21.2053866f, 22.4663245f,
23.8022417f, 25.2175966f, 26.7171129f, 28.3057952f, 29.9889453f, 31.7721808f,
33.6614530f, 35.6630672f, 37.7837035f, 40.0304394f, 42.4107732f, 44.9326490f,
47.6044834f, 50.4351932f, 53.4342259f, 56.6115903f, 59.9778907f, 63.5443616f,
67.3229060f, 71.3261343f, 75.5674070f, 80.0608788f, 84.8215464f, 89.8652980f,
95.2089667f, 100.870386f, 106.868452f, 113.223181f, 119.955781f, 127.088723f,
134.645812f, 142.652269f, 151.134814f, 160.121758f, 169.643093f, 179.730596f,
190.417933f, 201.740773f, 213.736904f, 226.446361f, 239.911563f, 254.177446f,
269.291624f, 285.304537f, 302.269628f, 320.243515f, 339.286186f, 359.461192f,
380.835867f, 403.481546f, 427.473807f, 452.892723f, 479.823125f, 508.354893f,
538.583248f, 570.609074f, 604.539256f, 640.487030f, 678.572371f, 718.922384f,
761.671734f, 806.963092f, 854.947614f, 905.785445f, 959.646250f, 1016.70979f,
1077.16650f, 1141.21815f, 1209.07851f, 1280.97406f, 1357.14474f, 1437.84477f,
1523.34347f, 1613.92618f, 1709.89523f, 1811.57089f, 1919.29250f, 2033.41957f,
2154.33299f, 2282.43630f, 2418.15702f, 2561.94812f, 2714.28948f, 2875.68954f,
3046.68693f, 3227.85237f, 3419.79046f, 3623.14178f, 3838.58500f, 4066.83914f,
4308.66598f, 4564.87260f, 4836.31405f, 5123.89624f, 5428.57897f, 5751.37907f,
6093.37387f, 6455.70474f, 6839.58092f, 7246.28356f, 7677.17000f, 8133.67829f,
8617.33197f, 9129.74519f, 9672.62809f, 10247.7925f, 10857.1579f, 11502.7581f,
12186.7477f, 12911.4095f, 13679.1618f
};
/* center_pitch - 0.49999 */
const float pitch_freq_lb_table[129] = {
7.94305438f, 8.41537297f, 8.91577709f, 9.44593678f, 10.0076214f, 10.6027055f,
11.2331752f, 11.9011346f, 12.6088129f, 13.3585719f, 14.1529139f, 14.9944900f,
15.8861088f, 16.8307459f, 17.8315542f, 18.8918736f, 20.0152428f, 21.2054111f,
22.4663505f, 23.8022692f, 25.2176258f, 26.7171438f, 28.3058279f, 29.9889800f,
31.7722175f, 33.6614919f, 35.6631084f, 37.7837471f, 40.0304857f, 42.4108222f,
44.9327009f, 47.6045384f, 50.4352515f, 53.4342876f, 56.6116557f, 59.9779599f,
63.5444350f, 67.3229838f, 71.3262167f, 75.5674943f, 80.0609713f, 84.8216444f,
89.8654018f, 95.2090767f, 100.870503f, 106.868575f, 113.223311f, 119.955920f,
127.088870f, 134.645968f, 142.652433f, 151.134989f, 160.121943f, 169.643289f,
179.730804f, 190.418153f, 201.741006f, 213.737151f, 226.446623f, 239.911840f,
254.177740f, 269.291935f, 285.304867f, 302.269977f, 320.243885f, 339.286578f,
359.461607f, 380.836307f, 403.482012f, 427.474301f, 452.893246f, 479.823680f,
508.355480f, 538.583870f, 570.609734f, 604.539954f, 640.487770f, 678.573155f,
718.923215f, 761.672614f, 806.964024f, 854.948602f, 905.786491f, 959.647359f,
1016.71096f, 1077.16774f, 1141.21947f, 1209.07991f, 1280.97554f, 1357.14631f,
1437.84643f, 1523.34523f, 1613.92805f, 1709.89720f, 1811.57298f, 1919.29472f,
2033.42192f, 2154.33548f, 2282.43893f, 2418.15982f, 2561.95108f, 2714.29262f,
2875.69286f, 3046.69045f, 3227.85610f, 3419.79441f, 3623.14597f, 3838.58944f,
4066.84384f, 4308.67096f, 4564.87787f, 4836.31963f, 5123.90216f, 5428.58524f,
5751.38572f, 6093.38091f, 6455.71219f, 6839.58882f, 7246.29193f, 7677.17887f,
8133.68768f, 8617.34192f, 9129.75574f, 9672.63927f, 10247.8043f, 10857.1705f,
11502.7714f, 12186.7618f, 12911.4244f
};
/* (M)ajor, rotate back 1, rotate back 2
(m)inor, rotate back 1, rotate back 2
(d)iminished minor, rotate back 1, rotate back 2
(f)ifth, rotate back 1, rotate back 2
*/
const int chord_table[4][3][3] = {
{ { 0, 4, 7, }, { -5, 0, 4, }, { -8, -5, 0, }, },
{ { 0, 3, 7, }, { -5, 0, 3, }, { -9, -5, 0, }, },
{ { 0, 3, 6, }, { -6, 0, 3, }, { -9, -6, 0, }, },
{ { 0, 5, 7, }, { -5, 0, 5, }, { -7, -5, 0, }, },
};
/* write the chord type to *chord, returns the root note of the chord */
int Freq::assign_chord(double *pitchbins, int *chord,
int min_guesspitch, int max_guesspitch, int root_pitch)
{
int type, subtype;
int pitches[19] = { 0 };
int prune_pitches[10] = { 0 };
int i, j, k, n, n2;
double val, cutoff, max;
int root_flag;
*chord = -1;
if (root_pitch - 9 > min_guesspitch)
min_guesspitch = root_pitch - 9;
if (min_guesspitch <= LOWEST_PITCH)
min_guesspitch = LOWEST_PITCH + 1;
if (root_pitch + 9 < max_guesspitch)
max_guesspitch = root_pitch + 9;
if (max_guesspitch >= HIGHEST_PITCH)
max_guesspitch = HIGHEST_PITCH - 1;
/* keep only local maxima */
for (i = min_guesspitch, n = 0; i <= max_guesspitch; i++)
{
val = pitchbins[i];
if (val)
{
if (pitchbins[i - 1] < val && pitchbins[i + 1] < val)
pitches[n++] = i;
}
}
if (n < 3)
return -1;
/* find largest peak */
max = -1;
for (i = 0; i < n; i++)
{
val = pitchbins[pitches[i]];
if (val > max)
max = val;
}
/* discard any peaks below cutoff */
cutoff = 0.2 * max;
for (i = 0, n2 = 0, root_flag = 0; i < n; i++)
{
val = pitchbins[pitches[i]];
if (val >= cutoff)
{
prune_pitches[n2++] = pitches[i];
if (pitches[i] == root_pitch)
root_flag = 1;
}
}
if (!root_flag || n2 < 3)
return -1;
/* search for a chord, must contain root pitch */
for (i = 0; i < n2; i++)
{
for (subtype = 0; subtype < 3; subtype++)
{
if (i + subtype >= n2)
continue;
for (type = 0; type < 4; type++)
{
for (j = 0, n = 0, root_flag = 0; j < 3; j++)
{
k = i + j;
if (k >= n2)
continue;
if (prune_pitches[k] == root_pitch)
root_flag = 1;
if (prune_pitches[k] - prune_pitches[i + subtype] ==
chord_table[type][subtype][j])
n++;
}
if (root_flag && n == 3)
{
*chord = 3 * type + subtype;
return prune_pitches[i + subtype];
}
}
}
}
return -1;
}
/* initialize FFT arrays for the frequency analysis */
int Freq::freq_initialize_fft_arrays(Sample *sp)
{
uint32_t i;
uint32_t length, newlength;
unsigned int rate;
sample_t *origdata;
rate = sp->sample_rate;
length = sp->data_length >> FRACTION_BITS;
origdata = sp->data;
/* copy the sample to a new float array */
floatData.resize(length);
for (i = 0; i < length; i++)
floatData[i] = origdata[i];
/* length must be a power of 2 */
/* set it to smallest power of 2 >= 1.4*rate */
/* at least 1.4*rate is required for decent resolution of low notes */
newlength = pow(2, ceil(log(1.4*rate) / log(2)));
if (length < newlength)
{
floatData.resize(newlength);
memset(&floatData[0] + length, 0, (newlength - length) * sizeof(float));
}
length = newlength;
/* allocate FFT arrays */
/* calculate sin/cos and fft1_bin_to_pitch tables */
if (length != oldfftsize)
{
float f0;
magData.resize(length);
pruneMagData.resize(length);
ipa.resize(int(2 + sqrt(length)) * sizeof(int));
ipa[0] = 0;
wa.resize(length >> 1);
fft1BinToPitch.resize(length >> 1);
for (i = 1, f0 = (float)rate / length; i < (length >> 1); i++) {
fft1BinToPitch[i] = assign_pitch_to_freq(i * f0);
}
}
oldfftsize = length;
/* zero out arrays that need it */
memset(pitchmags, 0, 129 * sizeof(float));
memset(pitchbins, 0, 129 * sizeof(double));
memset(new_pitchbins, 0, 129 * sizeof(double));
memset(&pruneMagData[0], 0, length * sizeof(float));
return(length);
}
/* return the frequency of the sample */
/* max of 1.4 - 2.0 seconds of audio is analyzed, depending on sample rate */
/* samples < 1.4 seconds are padded to max length for higher fft accuracy */
float Freq::freq_fourier(Sample *sp, int *chord)
{
int32_t length, length0;
int32_t maxoffset, minoffset, minoffset1, minoffset2;
int32_t minbin, maxbin;
int32_t bin;
int32_t i;
int32_t j, n, total;
unsigned int rate;
int pitch, bestpitch, minpitch, maxpitch, maxpitch2;
sample_t *origdata;
float f0, mag, maxmag;
int16_t amp, oldamp, maxamp;
int32_t maxpos = 0;
double sum, weightsum, maxsum;
double f0_inv;
float freq, newfreq, bestfreq, freq_inc;
float minfreq, maxfreq, minfreq2, maxfreq2;
float min_guessfreq, max_guessfreq;
rate = sp->sample_rate;
length = length0 = sp->data_length >> FRACTION_BITS;
origdata = sp->data;
length = freq_initialize_fft_arrays(sp);
/* base frequency of the FFT */
f0 = (float)rate / length;
f0_inv = 1.0 / f0;
/* get maximum amplitude */
maxamp = -1;
for (int32_t i = 0; i < length0; i++)
{
amp = abs(origdata[i]);
if (amp >= maxamp)
{
maxamp = amp;
maxpos = i;
}
}
/* go out 2 zero crossings in both directions, starting at maxpos */
/* find the peaks after the 2nd crossing */
minoffset1 = 0;
for (n = 0, oldamp = origdata[maxpos], i = maxpos - 1; i >= 0 && n < 2; i--)
{
amp = origdata[i];
if ((oldamp && amp == 0) || (oldamp > 0 && amp < 0) ||
(oldamp < 0 && amp > 0))
n++;
oldamp = amp;
}
minoffset1 = i;
maxamp = labs(origdata[i]);
while (i >= 0)
{
amp = origdata[i];
if ((oldamp && amp == 0) || (oldamp > 0 && amp < 0) ||
(oldamp < 0 && amp > 0))
{
break;
}
oldamp = amp;
amp = labs(amp);
if (amp > maxamp)
{
maxamp = amp;
minoffset1 = i;
}
i--;
}
minoffset2 = 0;
for (n = 0, oldamp = origdata[maxpos], i = maxpos + 1; i < length0 && n < 2; i++)
{
amp = origdata[i];
if ((oldamp && amp == 0) || (oldamp > 0 && amp < 0) ||
(oldamp < 0 && amp > 0))
n++;
oldamp = amp;
}
minoffset2 = i;
maxamp = labs(origdata[i]);
while (i < length0)
{
amp = origdata[i];
if ((oldamp && amp == 0) || (oldamp > 0 && amp < 0) ||
(oldamp < 0 && amp > 0))
{
break;
}
oldamp = amp;
amp = labs(amp);
if (amp > maxamp)
{
maxamp = amp;
minoffset2 = i;
}
i++;
}
/* upper bound on the detected frequency */
/* distance between the two peaks is at most 2 periods */
minoffset = (minoffset2 - minoffset1);
if (minoffset < 4)
minoffset = 4;
max_guessfreq = (float)rate / (minoffset * 0.5);
if (max_guessfreq >= (rate >> 1)) max_guessfreq = (rate >> 1) - 1;
/* lower bound on the detected frequency */
maxoffset = rate / pitch_freq_lb_table[LOWEST_PITCH] + 0.5;
if (maxoffset > (length >> 1))
maxoffset = (length >> 1);
min_guessfreq = (float)rate / maxoffset;
/* perform the in place FFT */
rdft(length, 1, &floatData[0], &ipa[0], &wa[0]);
/* calc the magnitudes */
for (i = 2; i < length; i++)
{
mag = floatData[i++];
mag *= mag;
mag += floatData[i] * floatData[i];
magData[i >> 1] = sqrt(mag);
}
/* find max mag */
maxmag = 0;
for (i = 1; i < (length >> 1); i++)
{
mag = magData[i];
pitch = fft1BinToPitch[i];
if (pitch && mag > maxmag)
maxmag = mag;
}
/* Apply non-linear scaling to the magnitudes
* I don't know why this improves the pitch detection, but it does
* The best choice of power seems to be between 1.64 - 1.68
*/
for (i = 1; i < (length >> 1); i++)
magData[i] = maxmag * pow(magData[i] / maxmag, 1.66);
/* bin the pitches */
for (i = 1; i < (length >> 1); i++)
{
mag = magData[i];
pitch = fft1BinToPitch[i];
pitchbins[pitch] += mag;
if (mag > pitchmags[pitch])
pitchmags[pitch] = mag;
}
/* zero out lowest pitch, since it contains all lower frequencies too */
pitchbins[LOWEST_PITCH] = 0;
/* find the largest peak */
for (i = LOWEST_PITCH + 1, maxsum = -42; i <= HIGHEST_PITCH; i++)
{
sum = pitchbins[i];
if (sum > maxsum)
{
maxsum = sum;
}
}
minpitch = assign_pitch_to_freq(min_guessfreq);
if (minpitch > HIGHEST_PITCH) minpitch = HIGHEST_PITCH;
/* zero out any peak below minpitch */
for (int i = LOWEST_PITCH + 1; i < minpitch; i++)
pitchbins[i] = 0;
/* remove all pitches below threshold */
for (int i = minpitch; i <= HIGHEST_PITCH; i++)
{
if (pitchbins[i] / maxsum < 0.01 && pitchmags[i] / maxmag < 0.01)
pitchbins[i] = 0;
}
/* keep local maxima */
for (int i = LOWEST_PITCH + 1; i < HIGHEST_PITCH; i++)
{
double temp;
temp = pitchbins[i];
/* also keep significant bands to either side */
if (temp && pitchbins[i - 1] < temp && pitchbins[i + 1] < temp)
{
new_pitchbins[i] = temp;
temp *= 0.5;
if (pitchbins[i - 1] >= temp)
new_pitchbins[i - 1] = pitchbins[i - 1];
if (pitchbins[i + 1] >= temp)
new_pitchbins[i + 1] = pitchbins[i - 1];
}
}
memcpy(pitchbins, new_pitchbins, 129 * sizeof(double));
/* find lowest and highest pitches */
minpitch = LOWEST_PITCH;
while (minpitch < HIGHEST_PITCH && !pitchbins[minpitch])
minpitch++;
maxpitch = HIGHEST_PITCH;
while (maxpitch > LOWEST_PITCH && !pitchbins[maxpitch])
maxpitch--;
/* uh oh, no pitches left...
* best guess is middle C
* return 260 Hz, since exactly 260 Hz is never returned except on error
* this should only occur on blank/silent samples
*/
if (maxpitch < minpitch)
{
return 260.0;
}
/* pitch assignment bounds based on zero crossings and pitches kept */
if (pitch_freq_lb_table[minpitch] > min_guessfreq)
min_guessfreq = pitch_freq_lb_table[minpitch];
if (pitch_freq_ub_table[maxpitch] < max_guessfreq)
max_guessfreq = pitch_freq_ub_table[maxpitch];
minfreq = pitch_freq_lb_table[minpitch];
if (minfreq >= (rate >> 1)) minfreq = (rate >> 1) - 1;
maxfreq = pitch_freq_ub_table[maxpitch];
if (maxfreq >= (rate >> 1)) maxfreq = (rate >> 1) - 1;
minbin = minfreq / f0;
if (!minbin)
minbin = 1;
maxbin = ceil(maxfreq / f0);
if (maxbin >= (length >> 1))
maxbin = (length >> 1) - 1;
/* filter out all "noise" from magnitude array */
for (int i = minbin, n = 0; i <= maxbin; i++)
{
pitch = fft1BinToPitch[i];
if (pitchbins[pitch])
{
pruneMagData[i] = magData[i];
n++;
}
}
/* whoa!, there aren't any strong peaks at all !!! bomb early
* best guess is middle C
* return 260 Hz, since exactly 260 Hz is never returned except on error
* this should only occur on blank/silent samples
*/
if (!n)
{
return 260.0;
}
memset(new_pitchbins, 0, 129 * sizeof(double));
maxsum = -1;
minpitch = assign_pitch_to_freq(min_guessfreq);
maxpitch = assign_pitch_to_freq(max_guessfreq);
maxpitch2 = assign_pitch_to_freq(max_guessfreq) + 9;
if (maxpitch2 > HIGHEST_PITCH) maxpitch2 = HIGHEST_PITCH;
/* initial guess is first local maximum */
bestfreq = pitch_freq_table[minpitch];
if (minpitch < HIGHEST_PITCH &&
pitchbins[minpitch + 1] > pitchbins[minpitch])
bestfreq = pitch_freq_table[minpitch + 1];
/* find best fundamental */
for (int i = minpitch; i <= maxpitch2; i++)
{
if (!pitchbins[i])
continue;
minfreq2 = pitch_freq_lb_table[i];
maxfreq2 = pitch_freq_ub_table[i];
freq_inc = (maxfreq2 - minfreq2) * 0.1;
if (minfreq2 >= (rate >> 1)) minfreq2 = (rate >> 1) - 1;
if (maxfreq2 >= (rate >> 1)) maxfreq2 = (rate >> 1) - 1;
/* look for harmonics */
for (freq = minfreq2; freq <= maxfreq2; freq += freq_inc)
{
n = total = 0;
sum = weightsum = 0;
for (j = 1; j <= 32 && (newfreq = j * freq) <= maxfreq; j++)
{
pitch = assign_pitch_to_freq(newfreq);
if (pitchbins[pitch])
{
sum += pitchbins[pitch];
n++;
total = j;
}
}
/* only pitches with good harmonics are assignment candidates */
if (n > 1)
{
double ratio;
ratio = (double)n / total;
if (ratio >= 0.333333)
{
weightsum = ratio * sum;
pitch = assign_pitch_to_freq(freq);
/* use only these pitches for chord detection */
if (pitch <= HIGHEST_PITCH && pitchbins[pitch])
new_pitchbins[pitch] = weightsum;
if (pitch > maxpitch)
continue;
if (n < 2 || weightsum > maxsum)
{
maxsum = weightsum;
bestfreq = freq;
}
}
}
}
}
bestpitch = assign_pitch_to_freq(bestfreq);
/* assign chords */
if ((pitch = assign_chord(new_pitchbins, chord,
bestpitch - 9, maxpitch2, bestpitch)) >= 0)
bestpitch = pitch;
bestfreq = pitch_freq_table[bestpitch];
/* tune based on the fundamental and harmonics up to +5 octaves */
sum = weightsum = 0;
for (i = 1; i <= 32 && (freq = i * bestfreq) <= maxfreq; i++)
{
double tune;
minfreq2 = pitch_freq_lb_table[bestpitch];
maxfreq2 = pitch_freq_ub_table[bestpitch];
minbin = minfreq2 * f0_inv;
if (!minbin) minbin = 1;
maxbin = ceil(maxfreq2 * f0_inv);
if (maxbin >= (length >> 1))
maxbin = (length >> 1) - 1;
for (bin = minbin; bin <= maxbin; bin++)
{
tune = -36.37631656 + 17.31234049 * log(bin*f0) - bestpitch;
sum += magData[bin];
weightsum += magData[bin] * tune;
}
}
bestfreq = 13.75 * exp(((bestpitch + weightsum / sum) - 9) /
12 * log(2));
/* Since we are using exactly 260 Hz as an error code, fudge the freq
* on the extremely unlikely chance that the detected pitch is exactly
* 260 Hz.
*/
if (bestfreq == 260.0f)
bestfreq += 1E-5f;
return bestfreq;
}
int assign_pitch_to_freq(float freq)
{
/* round to nearest integer using: ceil(fraction - 0.5) */
/* -0.5 is already added into the first constant below */
int pitch = ceil(-36.87631656f + 17.31234049f * log(freq));
/* min and max pitches */
if (pitch < LOWEST_PITCH) pitch = LOWEST_PITCH;
else if (pitch > HIGHEST_PITCH) pitch = HIGHEST_PITCH;
return pitch;
}
}
Reference in a new issue View git blame Copy permalink