annotate dsp/tempotracking/TempoTrack.cpp @ 487:5998ee1042d3

Use M_PI
author Chris Cannam <cannam@all-day-breakfast.com>
date Fri, 31 May 2019 16:33:55 +0100
parents 7e52c034cf62
children 103156707542
rev   line source
c@410 1 /* -*- c-basic-offset: 4 indent-tabs-mode: nil -*- vi:set ts=8 sts=4 sw=4: */
c@410 2
c@410 3 /*
c@410 4 QM DSP Library
c@410 5
c@410 6 Centre for Digital Music, Queen Mary, University of London.
c@410 7 This file copyright 2005-2006 Christian Landone.and Matthew Davies.
c@309 8
c@309 9 This program is free software; you can redistribute it and/or
c@309 10 modify it under the terms of the GNU General Public License as
c@309 11 published by the Free Software Foundation; either version 2 of the
c@309 12 License, or (at your option) any later version. See the file
c@410 13 COPYING included with this distribution for more information.
c@410 14 */
c@410 15
c@410 16 #include "TempoTrack.h"
c@410 17
c@410 18 #include "maths/MathAliases.h"
c@410 19 #include "maths/MathUtilities.h"
c@410 20
c@410 21 #include <iostream>
c@410 22
c@410 23 #include <cassert>
c@410 24
c@410 25 //#define DEBUG_TEMPO_TRACK 1
c@410 26
c@410 27 //////////////////////////////////////////////////////////////////////
c@410 28 // Construction/Destruction
c@410 29 //////////////////////////////////////////////////////////////////////
c@410 30
c@410 31 TempoTrack::TempoTrack( TTParams Params )
c@410 32 {
c@410 33 m_tempoScratch = NULL;
c@410 34 m_rawDFFrame = NULL;
c@410 35 m_smoothDFFrame = NULL;
c@410 36 m_frameACF = NULL;
cannam@479 37 m_smoothRCF = NULL;
c@410 38
c@410 39 m_dataLength = 0;
c@410 40 m_winLength = 0;
c@410 41 m_lagLength = 0;
c@410 42
c@410 43 m_rayparam = 0;
c@410 44 m_sigma = 0;
c@410 45 m_DFWVNnorm = 0;
c@410 46
c@410 47 initialise( Params );
c@410 48 }
c@410 49
c@410 50 TempoTrack::~TempoTrack()
c@410 51 {
c@410 52 deInitialise();
c@410 53 }
c@410 54
c@410 55 void TempoTrack::initialise( TTParams Params )
cannam@479 56 {
c@410 57 m_winLength = Params.winLength;
c@410 58 m_lagLength = Params.lagLength;
c@410 59
cannam@479 60 m_rayparam = 43.0;
c@410 61 m_sigma = sqrt(3.9017);
c@410 62 m_DFWVNnorm = exp( ( log( 2.0 ) / m_rayparam ) * ( m_winLength + 2 ) );
c@410 63
c@410 64 m_rawDFFrame = new double[ m_winLength ];
c@410 65 m_smoothDFFrame = new double[ m_winLength ];
c@410 66 m_frameACF = new double[ m_winLength ];
c@410 67 m_tempoScratch = new double[ m_lagLength ];
cannam@479 68 m_smoothRCF = new double[ m_lagLength ];
c@410 69
c@410 70 m_DFFramer.configure( m_winLength, m_lagLength );
cannam@479 71
c@410 72 m_DFPParams.length = m_winLength;
c@410 73 m_DFPParams.AlphaNormParam = Params.alpha;
c@410 74 m_DFPParams.LPOrd = Params.LPOrd;
c@410 75 m_DFPParams.LPACoeffs = Params.LPACoeffs;
c@410 76 m_DFPParams.LPBCoeffs = Params.LPBCoeffs;
c@410 77 m_DFPParams.winPre = Params.WinT.pre;
c@410 78 m_DFPParams.winPost = Params.WinT.post;
c@410 79 m_DFPParams.isMedianPositive = true;
cannam@479 80
c@410 81 m_DFConditioning = new DFProcess( m_DFPParams );
c@410 82
cannam@479 83 // these are parameters for smoothing m_tempoScratch
c@410 84 m_RCFPParams.length = m_lagLength;
c@410 85 m_RCFPParams.AlphaNormParam = Params.alpha;
c@410 86 m_RCFPParams.LPOrd = Params.LPOrd;
c@410 87 m_RCFPParams.LPACoeffs = Params.LPACoeffs;
c@410 88 m_RCFPParams.LPBCoeffs = Params.LPBCoeffs;
c@410 89 m_RCFPParams.winPre = Params.WinT.pre;
c@410 90 m_RCFPParams.winPost = Params.WinT.post;
c@410 91 m_RCFPParams.isMedianPositive = true;
c@410 92
c@410 93 m_RCFConditioning = new DFProcess( m_RCFPParams );
c@410 94 }
c@410 95
c@410 96 void TempoTrack::deInitialise()
cannam@479 97 {
c@410 98 delete [] m_rawDFFrame;
c@410 99 delete [] m_smoothDFFrame;
cannam@479 100 delete [] m_smoothRCF;
c@410 101 delete [] m_frameACF;
c@410 102 delete [] m_tempoScratch;
c@410 103 delete m_DFConditioning;
cannam@479 104 delete m_RCFConditioning;
c@410 105 }
c@410 106
c@414 107 void TempoTrack::createCombFilter(double* Filter, int winLength, int /* TSig */, double beatLag)
c@410 108 {
c@414 109 int i;
c@410 110
cannam@479 111 if( beatLag == 0 ) {
cannam@479 112 for( i = 0; i < winLength; i++ ) {
cannam@479 113 Filter[ i ] =
cannam@479 114 ( ( i + 1 ) / pow( m_rayparam, 2.0) ) *
cannam@479 115 exp( ( -pow(( i + 1 ),2.0 ) /
cannam@479 116 ( 2.0 * pow( m_rayparam, 2.0))));
cannam@479 117 }
cannam@479 118 } else {
cannam@479 119 m_sigma = beatLag/4;
cannam@479 120 for( i = 0; i < winLength; i++ ) {
cannam@479 121 double dlag = (double)(i+1) - beatLag;
cannam@479 122 Filter[ i ] = exp(-0.5 * pow(( dlag / m_sigma), 2.0) ) /
cannam@487 123 (sqrt(TWO_PI) * m_sigma);
cannam@479 124 }
c@410 125 }
c@410 126 }
c@410 127
c@410 128 double TempoTrack::tempoMM(double* ACF, double* weight, int tsig)
c@410 129 {
c@410 130 double period = 0;
c@410 131 double maxValRCF = 0.0;
c@414 132 int maxIndexRCF = 0;
c@410 133
c@410 134 double* pdPeaks;
c@410 135
c@414 136 int maxIndexTemp;
c@414 137 double maxValTemp;
c@414 138 int count;
cannam@479 139
c@414 140 int numelem,i,j;
c@410 141 int a, b;
c@410 142
cannam@479 143 for( i = 0; i < m_lagLength; i++ ) {
cannam@479 144 m_tempoScratch[ i ] = 0.0;
cannam@479 145 }
c@410 146
cannam@479 147 if( tsig == 0 ) {
cannam@479 148 //if time sig is unknown, use metrically unbiased version of Filterbank
cannam@479 149 numelem = 4;
cannam@479 150 } else {
cannam@479 151 numelem = tsig;
c@410 152 }
c@410 153
c@410 154 #ifdef DEBUG_TEMPO_TRACK
c@410 155 std::cerr << "tempoMM: m_winLength = " << m_winLength << ", m_lagLength = " << m_lagLength << ", numelem = " << numelem << std::endl;
c@410 156 #endif
c@410 157
cannam@479 158 for(i=1;i<m_lagLength-1;i++) {
cannam@479 159 //first and last output values are left intentionally as zero
cannam@479 160 for (a=1;a<=numelem;a++) {
cannam@479 161 for(b=(1-a);b<a;b++) {
cannam@479 162 if( tsig == 0 ) {
cannam@479 163 m_tempoScratch[i] += ACF[a*(i+1)+b-1] * (1.0 / (2.0 * (double)a-1)) * weight[i];
cannam@479 164 } else {
cannam@479 165 m_tempoScratch[i] += ACF[a*(i+1)+b-1] * 1 * weight[i];
cannam@479 166 }
cannam@479 167 }
cannam@479 168 }
c@410 169 }
c@410 170
c@410 171
cannam@479 172 //////////////////////////////////////////////////
cannam@479 173 // MODIFIED BEAT PERIOD EXTRACTION //////////////
cannam@479 174 /////////////////////////////////////////////////
c@410 175
cannam@479 176 // find smoothed version of RCF ( as applied to Detection Function)
cannam@479 177 m_RCFConditioning->process( m_tempoScratch, m_smoothRCF);
c@410 178
cannam@479 179 if (tsig != 0) { // i.e. in context dependent state
cannam@479 180
c@410 181 // NOW FIND MAX INDEX OF ACFOUT
cannam@479 182 for( i = 0; i < m_lagLength; i++) {
cannam@479 183 if( m_tempoScratch[ i ] > maxValRCF) {
cannam@479 184 maxValRCF = m_tempoScratch[ i ];
cannam@479 185 maxIndexRCF = i;
cannam@479 186 }
cannam@479 187 }
cannam@479 188
cannam@479 189 } else { // using rayleigh weighting
cannam@479 190
cannam@479 191 vector <vector<double> > rcfMat;
cannam@479 192
cannam@479 193 double sumRcf = 0.;
cannam@479 194
cannam@479 195 double maxVal = 0.;
cannam@479 196 // now find the two values which minimise rcfMat
cannam@479 197 double minVal = 0.;
cannam@479 198 int p_i = 1; // periodicity for row i;
cannam@479 199 int p_j = 1; //periodicity for column j;
cannam@479 200
cannam@479 201 for ( i=0; i<m_lagLength; i++) {
cannam@479 202 m_tempoScratch[i] =m_smoothRCF[i];
cannam@479 203 }
cannam@479 204
cannam@479 205 // normalise m_tempoScratch so that it sums to zero.
cannam@479 206 for ( i=0; i<m_lagLength; i++) {
cannam@479 207 sumRcf += m_tempoScratch[i];
cannam@479 208 }
cannam@479 209
cannam@479 210 for( i=0; i<m_lagLength; i++) {
cannam@479 211 m_tempoScratch[i] /= sumRcf;
cannam@479 212 }
cannam@479 213
cannam@479 214 // create a matrix to store m_tempoScratchValues modified by log2 ratio
cannam@479 215 for ( i=0; i<m_lagLength; i++) {
cannam@479 216 rcfMat.push_back ( vector<double>() ); // adds a new row...
cannam@479 217 }
cannam@479 218
cannam@479 219 for (i=0; i<m_lagLength; i++) {
cannam@479 220 for (j=0; j<m_lagLength; j++) {
cannam@479 221 rcfMat[i].push_back (0.);
cannam@479 222 }
cannam@479 223 }
cannam@479 224
cannam@479 225 // the 'i' and 'j' indices deliberately start from '1' and not '0'
cannam@479 226 for ( i=1; i<m_lagLength; i++) {
cannam@479 227 for (j=1; j<m_lagLength; j++) {
cannam@479 228 double log2PeriodRatio = log( static_cast<double>(i)/
cannam@479 229 static_cast<double>(j) ) /
cannam@479 230 log(2.0);
cannam@479 231 rcfMat[i][j] = ( abs(1.0-abs(log2PeriodRatio)) );
cannam@479 232 rcfMat[i][j] += ( 0.01*( 1./(m_tempoScratch[i]+m_tempoScratch[j]) ) );
cannam@479 233 }
cannam@479 234 }
cannam@479 235
cannam@479 236 // set diagonal equal to maximum value in rcfMat
cannam@479 237 // we don't want to pick one strong middle peak - we need a combination of two peaks.
cannam@479 238
cannam@479 239 for ( i=1; i<m_lagLength; i++) {
cannam@479 240 for (j=1; j<m_lagLength; j++) {
cannam@479 241 if (rcfMat[i][j] > maxVal) {
cannam@479 242 maxVal = rcfMat[i][j];
c@410 243 }
c@410 244 }
cannam@479 245 }
cannam@479 246
cannam@479 247 for ( i=1; i<m_lagLength; i++) {
cannam@479 248 rcfMat[i][i] = maxVal;
cannam@479 249 }
cannam@479 250
cannam@479 251 // now find the row and column number which minimise rcfMat
cannam@479 252 minVal = maxVal;
cannam@479 253
cannam@479 254 for ( i=1; i<m_lagLength; i++) {
cannam@479 255 for ( j=1; j<m_lagLength; j++) {
cannam@479 256 if (rcfMat[i][j] < minVal) {
cannam@479 257 minVal = rcfMat[i][j];
cannam@479 258 p_i = i;
cannam@479 259 p_j = j;
cannam@479 260 }
cannam@479 261 }
cannam@479 262 }
cannam@479 263
cannam@479 264
cannam@479 265 // initially choose p_j (arbitrary) - saves on an else statement
cannam@479 266 int beatPeriod = p_j;
cannam@479 267 if (m_tempoScratch[p_i] > m_tempoScratch[p_j]) {
cannam@479 268 beatPeriod = p_i;
cannam@479 269 }
cannam@479 270
cannam@479 271 // now write the output
cannam@479 272 maxIndexRCF = static_cast<int>(beatPeriod);
cannam@479 273 }
c@410 274
c@410 275
c@410 276 double locked = 5168.f / maxIndexRCF;
c@410 277 if (locked >= 30 && locked <= 180) {
c@410 278 m_lockedTempo = locked;
c@410 279 }
c@410 280
c@410 281 #ifdef DEBUG_TEMPO_TRACK
c@410 282 std::cerr << "tempoMM: locked tempo = " << m_lockedTempo << std::endl;
c@410 283 #endif
c@410 284
cannam@479 285 if( tsig == 0 ) {
cannam@479 286 tsig = 4;
cannam@479 287 }
c@410 288
c@410 289 #ifdef DEBUG_TEMPO_TRACK
cannam@479 290 std::cerr << "tempoMM: maxIndexRCF = " << maxIndexRCF << std::endl;
c@410 291 #endif
cannam@479 292
cannam@479 293 if( tsig == 4 ) {
cannam@479 294
c@410 295 #ifdef DEBUG_TEMPO_TRACK
c@410 296 std::cerr << "tsig == 4" << std::endl;
c@410 297 #endif
c@410 298
cannam@479 299 pdPeaks = new double[ 4 ];
cannam@479 300 for( i = 0; i < 4; i++ ){ pdPeaks[ i ] = 0.0;}
c@410 301
cannam@479 302 pdPeaks[ 0 ] = ( double )maxIndexRCF + 1;
c@410 303
cannam@479 304 maxIndexTemp = 0;
cannam@479 305 maxValTemp = 0.0;
cannam@479 306 count = 0;
c@410 307
cannam@479 308 for( i = (2 * maxIndexRCF + 1) - 1; i < (2 * maxIndexRCF + 1) + 2; i++ ) {
cannam@479 309 if( ACF[ i ] > maxValTemp ) {
cannam@479 310 maxValTemp = ACF[ i ];
cannam@479 311 maxIndexTemp = count;
cannam@479 312 }
cannam@479 313 count++;
cannam@479 314 }
cannam@479 315 pdPeaks[ 1 ] = (double)( maxIndexTemp + 1 + ( (2 * maxIndexRCF + 1 ) - 2 ) + 1 )/2;
c@410 316
cannam@479 317 maxIndexTemp = 0;
cannam@479 318 maxValTemp = 0.0;
cannam@479 319 count = 0;
c@410 320
cannam@479 321 for( i = (3 * maxIndexRCF + 2 ) - 2; i < (3 * maxIndexRCF + 2 ) + 3; i++ ) {
cannam@479 322 if( ACF[ i ] > maxValTemp ) {
cannam@479 323 maxValTemp = ACF[ i ];
cannam@479 324 maxIndexTemp = count;
cannam@479 325 }
cannam@479 326 count++;
cannam@479 327 }
cannam@479 328 pdPeaks[ 2 ] = (double)( maxIndexTemp + 1 + ( (3 * maxIndexRCF + 2) - 4 ) + 1 )/3;
c@410 329
cannam@479 330 maxIndexTemp = 0;
cannam@479 331 maxValTemp = 0.0;
cannam@479 332 count = 0;
c@410 333
cannam@479 334 for( i = ( 4 * maxIndexRCF + 3) - 3; i < ( 4 * maxIndexRCF + 3) + 4; i++ ) {
cannam@479 335 if( ACF[ i ] > maxValTemp ) {
cannam@479 336 maxValTemp = ACF[ i ];
cannam@479 337 maxIndexTemp = count;
cannam@479 338 }
cannam@479 339 count++;
cannam@479 340 }
c@410 341
cannam@479 342 pdPeaks[ 3 ] = (double)( maxIndexTemp + 1 + ( (4 * maxIndexRCF + 3) - 9 ) + 1 )/4 ;
c@410 343
cannam@479 344
cannam@479 345 period = MathUtilities::mean( pdPeaks, 4 );
cannam@479 346
cannam@479 347 } else {
cannam@479 348
c@410 349 #ifdef DEBUG_TEMPO_TRACK
cannam@479 350 std::cerr << "tsig != 4" << std::endl;
c@410 351 #endif
c@410 352
cannam@479 353 pdPeaks = new double[ 3 ];
cannam@479 354 for( i = 0; i < 3; i++ ) {
cannam@479 355 pdPeaks[ i ] = 0.0;
cannam@479 356 }
c@410 357
cannam@479 358 pdPeaks[ 0 ] = ( double )maxIndexRCF + 1;
c@410 359
cannam@479 360 maxIndexTemp = 0;
cannam@479 361 maxValTemp = 0.0;
cannam@479 362 count = 0;
c@410 363
cannam@479 364 for( i = (2 * maxIndexRCF + 1) - 1; i < (2 * maxIndexRCF + 1) + 2; i++ ) {
cannam@479 365 if( ACF[ i ] > maxValTemp ) {
cannam@479 366 maxValTemp = ACF[ i ];
cannam@479 367 maxIndexTemp = count;
cannam@479 368 }
cannam@479 369 count++;
cannam@479 370 }
cannam@479 371 pdPeaks[ 1 ] = (double)( maxIndexTemp + 1 + ( (2 * maxIndexRCF + 1 ) - 2 ) + 1 )/2;
c@410 372
cannam@479 373 maxIndexTemp = 0;
cannam@479 374 maxValTemp = 0.0;
cannam@479 375 count = 0;
c@410 376
cannam@479 377 for( i = (3 * maxIndexRCF + 2 ) - 2; i < (3 * maxIndexRCF + 2 ) + 3; i++ ) {
cannam@479 378 if( ACF[ i ] > maxValTemp ) {
cannam@479 379 maxValTemp = ACF[ i ];
cannam@479 380 maxIndexTemp = count;
cannam@479 381 }
cannam@479 382 count++;
cannam@479 383 }
cannam@479 384 pdPeaks[ 2 ] = (double)( maxIndexTemp + 1 + ( (3 * maxIndexRCF + 2) - 4 ) + 1 )/3;
c@410 385
c@410 386
cannam@479 387 period = MathUtilities::mean( pdPeaks, 3 );
c@410 388 }
c@410 389
c@410 390 delete [] pdPeaks;
c@410 391
c@410 392 return period;
c@410 393 }
c@410 394
c@410 395 void TempoTrack::stepDetect( double* periodP, double* periodG, int currentIdx, int* flag )
c@410 396 {
c@410 397 double stepthresh = 1 * 3.9017;
c@410 398
cannam@479 399 if( *flag ) {
cannam@479 400 if(abs(periodG[ currentIdx ] - periodP[ currentIdx ]) > stepthresh) {
cannam@479 401 // do nuffin'
cannam@479 402 }
cannam@479 403 } else {
cannam@479 404 if(fabs(periodG[ currentIdx ]-periodP[ currentIdx ]) > stepthresh) {
cannam@479 405 *flag = 3;
cannam@479 406 }
c@410 407 }
c@410 408 }
c@410 409
c@410 410 void TempoTrack::constDetect( double* periodP, int currentIdx, int* flag )
c@410 411 {
c@410 412 double constthresh = 2 * 3.9017;
c@410 413
cannam@479 414 if( fabs( 2 * periodP[ currentIdx ] - periodP[ currentIdx - 1] - periodP[ currentIdx - 2] ) < constthresh) {
cannam@479 415 *flag = 1;
cannam@479 416 } else {
cannam@479 417 *flag = 0;
c@410 418 }
c@410 419 }
c@410 420
c@414 421 int TempoTrack::findMeter(double *ACF, int len, double period)
c@410 422 {
c@410 423 int i;
c@410 424 int p = (int)MathUtilities::round( period );
c@410 425 int tsig;
c@410 426
c@410 427 double Energy_3 = 0.0;
c@410 428 double Energy_4 = 0.0;
c@410 429
c@410 430 double temp3A = 0.0;
c@410 431 double temp3B = 0.0;
c@410 432 double temp4A = 0.0;
c@410 433 double temp4B = 0.0;
c@410 434
c@410 435 double* dbf = new double[ len ]; int t = 0;
c@414 436 for( int u = 0; u < len; u++ ){ dbf[ u ] = 0.0; }
c@410 437
cannam@479 438 if( (double)len < 6 * p + 2 ) {
cannam@479 439
cannam@479 440 for( i = ( 3 * p - 2 ); i < ( 3 * p + 2 ) + 1; i++ ) {
cannam@479 441 temp3A += ACF[ i ];
cannam@479 442 dbf[ t++ ] = ACF[ i ];
cannam@479 443 }
cannam@479 444
cannam@479 445 for( i = ( 4 * p - 2 ); i < ( 4 * p + 2 ) + 1; i++ ) {
cannam@479 446 temp4A += ACF[ i ];
cannam@479 447 }
c@410 448
cannam@479 449 Energy_3 = temp3A;
cannam@479 450 Energy_4 = temp4A;
c@410 451
cannam@479 452 } else {
cannam@479 453
cannam@479 454 for( i = ( 3 * p - 2 ); i < ( 3 * p + 2 ) + 1; i++ ) {
cannam@479 455 temp3A += ACF[ i ];
cannam@479 456 }
cannam@479 457
cannam@479 458 for( i = ( 4 * p - 2 ); i < ( 4 * p + 2 ) + 1; i++ ) {
cannam@479 459 temp4A += ACF[ i ];
cannam@479 460 }
c@410 461
cannam@479 462 for( i = ( 6 * p - 2 ); i < ( 6 * p + 2 ) + 1; i++ ) {
cannam@479 463 temp3B += ACF[ i ];
cannam@479 464 }
cannam@479 465
cannam@479 466 for( i = ( 2 * p - 2 ); i < ( 2 * p + 2 ) + 1; i++ ) {
cannam@479 467 temp4B += ACF[ i ];
cannam@479 468 }
cannam@479 469
cannam@479 470 Energy_3 = temp3A + temp3B;
cannam@479 471 Energy_4 = temp4A + temp4B;
c@410 472 }
c@410 473
cannam@479 474 if (Energy_3 > Energy_4) {
cannam@479 475 tsig = 3;
cannam@479 476 } else {
cannam@479 477 tsig = 4;
c@410 478 }
c@410 479
c@410 480 return tsig;
c@410 481 }
c@410 482
c@414 483 void TempoTrack::createPhaseExtractor(double *Filter, int /* winLength */, double period, int fsp, int lastBeat)
cannam@479 484 {
c@410 485 int p = (int)MathUtilities::round( period );
c@410 486 int predictedOffset = 0;
c@410 487
c@410 488 #ifdef DEBUG_TEMPO_TRACK
c@410 489 std::cerr << "TempoTrack::createPhaseExtractor: period = " << period << ", p = " << p << std::endl;
c@410 490 #endif
c@410 491
c@410 492 if (p > 10000) {
c@410 493 std::cerr << "TempoTrack::createPhaseExtractor: WARNING! Highly implausible period value " << p << "!" << std::endl;
c@410 494 period = 5168 / 120;
c@410 495 }
c@410 496
c@410 497 double* phaseScratch = new double[ p*2 + 2 ];
c@410 498 for (int i = 0; i < p*2 + 2; ++i) phaseScratch[i] = 0.0;
c@410 499
cannam@479 500
cannam@479 501 if ( lastBeat != 0 ) {
cannam@479 502
cannam@479 503 lastBeat = (int)MathUtilities::round((double)lastBeat );///(double)winLength);
c@410 504
c@410 505 predictedOffset = lastBeat + p - fsp;
c@410 506
cannam@479 507 if (predictedOffset < 0) {
c@410 508 lastBeat = 0;
c@410 509 }
c@410 510 }
c@410 511
cannam@479 512 if ( lastBeat != 0 ) {
cannam@479 513
cannam@479 514 int mu = p;
cannam@479 515 double sigma = (double)p/8;
cannam@479 516 double PhaseMin = 0.0;
cannam@479 517 double PhaseMax = 0.0;
cannam@479 518 int scratchLength = p*2;
cannam@479 519 double temp = 0.0;
c@410 520
cannam@479 521 for( int i = 0; i < scratchLength; i++ ) {
cannam@487 522 phaseScratch[ i ] = exp( -0.5 * pow( ( i - mu ) / sigma, 2 ) ) / ( sqrt(TWO_PI) *sigma );
cannam@479 523 }
c@410 524
cannam@479 525 MathUtilities::getFrameMinMax( phaseScratch, scratchLength, &PhaseMin, &PhaseMax );
cannam@479 526
cannam@479 527 for(int i = 0; i < scratchLength; i ++) {
cannam@479 528 temp = phaseScratch[ i ];
cannam@479 529 phaseScratch[ i ] = (temp - PhaseMin)/PhaseMax;
cannam@479 530 }
c@410 531
c@410 532 #ifdef DEBUG_TEMPO_TRACK
c@410 533 std::cerr << "predictedOffset = " << predictedOffset << std::endl;
c@410 534 #endif
c@410 535
cannam@479 536 int index = 0;
cannam@479 537 for (int i = p - ( predictedOffset - 1); i < p + ( p - predictedOffset) + 1; i++) {
c@410 538 #ifdef DEBUG_TEMPO_TRACK
c@410 539 std::cerr << "assigning to filter index " << index << " (size = " << p*2 << ")" << " value " << phaseScratch[i] << " from scratch index " << i << std::endl;
c@410 540 #endif
cannam@479 541 Filter[ index++ ] = phaseScratch[ i ];
cannam@479 542 }
cannam@479 543 } else {
cannam@479 544 for( int i = 0; i < p; i ++) {
cannam@479 545 Filter[ i ] = 1;
cannam@479 546 }
c@410 547 }
cannam@479 548
c@410 549 delete [] phaseScratch;
c@410 550 }
c@410 551
c@414 552 int TempoTrack::phaseMM(double *DF, double *weighting, int winLength, double period)
c@410 553 {
c@410 554 int alignment = 0;
c@410 555 int p = (int)MathUtilities::round( period );
c@410 556
c@410 557 double temp = 0.0;
c@410 558
c@410 559 double* y = new double[ winLength ];
c@410 560 double* align = new double[ p ];
c@410 561
cannam@479 562 for( int i = 0; i < winLength; i++ ) {
cannam@479 563 y[ i ] = (double)( -i + winLength )/(double)winLength;
cannam@479 564 y[ i ] = pow(y [i ],2.0); // raise to power 2.
c@410 565 }
c@410 566
cannam@479 567 for( int o = 0; o < p; o++ ) {
cannam@479 568 temp = 0.0;
cannam@479 569 for (int i = 1 + (o - 1); i < winLength; i += (p + 1)) {
cannam@479 570 temp = temp + DF[ i ] * y[ i ];
cannam@479 571 }
cannam@479 572 align[ o ] = temp * weighting[ o ];
c@410 573 }
c@410 574
c@410 575
c@410 576 double valTemp = 0.0;
cannam@479 577 for(int i = 0; i < p; i++) {
cannam@479 578 if( align[ i ] > valTemp ) {
cannam@479 579 valTemp = align[ i ];
cannam@479 580 alignment = i;
cannam@479 581 }
c@410 582 }
c@410 583
c@410 584 delete [] y;
c@410 585 delete [] align;
c@410 586
c@410 587 return alignment;
c@410 588 }
c@410 589
c@414 590 int TempoTrack::beatPredict(int FSP0, double alignment, double period, int step )
c@410 591 {
c@410 592 int beat = 0;
c@410 593
c@410 594 int p = (int)MathUtilities::round( period );
c@410 595 int align = (int)MathUtilities::round( alignment );
c@410 596 int FSP = (int)MathUtilities::round( FSP0 );
c@410 597
c@410 598 int FEP = FSP + ( step );
c@410 599
c@410 600 beat = FSP + align;
c@410 601
c@410 602 m_beats.push_back( beat );
c@410 603
cannam@479 604 while( beat + p < FEP ) {
cannam@479 605 beat += p;
cannam@479 606 m_beats.push_back( beat );
c@410 607 }
c@410 608
c@410 609 return beat;
c@410 610 }
c@410 611
c@410 612
c@410 613
c@410 614 vector<int> TempoTrack::process( vector <double> DF,
c@410 615 vector <double> *tempoReturn )
c@410 616 {
c@410 617 m_dataLength = DF.size();
cannam@479 618
c@410 619 m_lockedTempo = 0.0;
c@410 620
cannam@479 621 double period = 0.0;
c@410 622 int stepFlag = 0;
c@410 623 int constFlag = 0;
c@410 624 int FSP = 0;
c@410 625 int tsig = 0;
c@410 626 int lastBeat = 0;
c@410 627
c@410 628 vector <double> causalDF;
c@410 629
c@410 630 causalDF = DF;
c@410 631
c@410 632 //Prepare Causal Extension DFData
c@414 633 // int DFCLength = m_dataLength + m_winLength;
cannam@479 634
cannam@479 635 for( int j = 0; j < m_winLength; j++ ) {
cannam@479 636 causalDF.push_back( 0 );
c@410 637 }
cannam@479 638
cannam@479 639
c@410 640 double* RW = new double[ m_lagLength ];
c@414 641 for (int clear = 0; clear < m_lagLength; clear++){ RW[ clear ] = 0.0;}
c@410 642
c@410 643 double* GW = new double[ m_lagLength ];
c@414 644 for (int clear = 0; clear < m_lagLength; clear++){ GW[ clear ] = 0.0;}
c@410 645
c@410 646 double* PW = new double[ m_lagLength ];
c@414 647 for(int clear = 0; clear < m_lagLength; clear++){ PW[ clear ] = 0.0;}
c@410 648
c@410 649 m_DFFramer.setSource( &causalDF[0], m_dataLength );
c@410 650
c@414 651 int TTFrames = m_DFFramer.getMaxNoFrames();
c@410 652
c@410 653 #ifdef DEBUG_TEMPO_TRACK
c@410 654 std::cerr << "TTFrames = " << TTFrames << std::endl;
c@410 655 #endif
cannam@479 656
c@410 657 double* periodP = new double[ TTFrames ];
c@414 658 for(int clear = 0; clear < TTFrames; clear++){ periodP[ clear ] = 0.0;}
cannam@479 659
c@410 660 double* periodG = new double[ TTFrames ];
c@414 661 for(int clear = 0; clear < TTFrames; clear++){ periodG[ clear ] = 0.0;}
cannam@479 662
c@410 663 double* alignment = new double[ TTFrames ];
c@414 664 for(int clear = 0; clear < TTFrames; clear++){ alignment[ clear ] = 0.0;}
c@410 665
c@410 666 m_beats.clear();
c@410 667
c@410 668 createCombFilter( RW, m_lagLength, 0, 0 );
c@410 669
c@410 670 int TTLoopIndex = 0;
c@410 671
cannam@479 672 for( int i = 0; i < TTFrames; i++ ) {
cannam@479 673
cannam@479 674 m_DFFramer.getFrame( m_rawDFFrame );
c@410 675
cannam@479 676 m_DFConditioning->process( m_rawDFFrame, m_smoothDFFrame );
c@410 677
cannam@479 678 m_correlator.doAutoUnBiased( m_smoothDFFrame, m_frameACF, m_winLength );
cannam@479 679
cannam@479 680 periodP[ TTLoopIndex ] = tempoMM( m_frameACF, RW, 0 );
c@410 681
cannam@479 682 if( GW[ 0 ] != 0 ) {
cannam@479 683 periodG[ TTLoopIndex ] = tempoMM( m_frameACF, GW, tsig );
cannam@479 684 } else {
cannam@479 685 periodG[ TTLoopIndex ] = 0.0;
cannam@479 686 }
c@410 687
cannam@479 688 stepDetect( periodP, periodG, TTLoopIndex, &stepFlag );
c@410 689
cannam@479 690 if( stepFlag == 1) {
cannam@479 691 constDetect( periodP, TTLoopIndex, &constFlag );
cannam@479 692 stepFlag = 0;
cannam@479 693 } else {
cannam@479 694 stepFlag -= 1;
cannam@479 695 }
c@410 696
cannam@479 697 if( stepFlag < 0 ) {
cannam@479 698 stepFlag = 0;
cannam@479 699 }
c@410 700
cannam@479 701 if( constFlag != 0) {
cannam@479 702
cannam@479 703 tsig = findMeter( m_frameACF, m_winLength, periodP[ TTLoopIndex ] );
cannam@479 704
cannam@479 705 createCombFilter( GW, m_lagLength, tsig, periodP[ TTLoopIndex ] );
cannam@479 706
cannam@479 707 periodG[ TTLoopIndex ] = tempoMM( m_frameACF, GW, tsig );
c@410 708
cannam@479 709 period = periodG[ TTLoopIndex ];
c@410 710
c@410 711 #ifdef DEBUG_TEMPO_TRACK
c@410 712 std::cerr << "TempoTrack::process: constFlag == " << constFlag << ", TTLoopIndex = " << TTLoopIndex << ", period from periodG = " << period << std::endl;
c@410 713 #endif
c@410 714
cannam@479 715 createPhaseExtractor( PW, m_winLength, period, FSP, 0 );
c@410 716
cannam@479 717 constFlag = 0;
c@410 718
cannam@479 719 } else {
cannam@479 720
cannam@479 721 if( GW[ 0 ] != 0 ) {
cannam@479 722 period = periodG[ TTLoopIndex ];
c@410 723
c@410 724 #ifdef DEBUG_TEMPO_TRACK
c@410 725 std::cerr << "TempoTrack::process: GW[0] == " << GW[0] << ", TTLoopIndex = " << TTLoopIndex << ", period from periodG = " << period << std::endl;
c@410 726 #endif
c@410 727
c@410 728 if (period > 10000) {
c@410 729 std::cerr << "TempoTrack::process: WARNING! Highly implausible period value " << period << "!" << std::endl;
c@410 730 std::cerr << "periodG contains (of " << TTFrames << " frames): " << std::endl;
c@410 731 for (int i = 0; i < TTLoopIndex + 3 && i < TTFrames; ++i) {
c@410 732 std::cerr << i << " -> " << periodG[i] << std::endl;
c@410 733 }
c@410 734 std::cerr << "periodP contains (of " << TTFrames << " frames): " << std::endl;
c@410 735 for (int i = 0; i < TTLoopIndex + 3 && i < TTFrames; ++i) {
c@410 736 std::cerr << i << " -> " << periodP[i] << std::endl;
c@410 737 }
c@410 738 period = 5168 / 120;
c@410 739 }
c@410 740
cannam@479 741 createPhaseExtractor( PW, m_winLength, period, FSP, lastBeat );
c@410 742
cannam@479 743 }
cannam@479 744 else
cannam@479 745 {
cannam@479 746 period = periodP[ TTLoopIndex ];
c@410 747
c@410 748 #ifdef DEBUG_TEMPO_TRACK
c@410 749 std::cerr << "TempoTrack::process: GW[0] == " << GW[0] << ", TTLoopIndex = " << TTLoopIndex << ", period from periodP = " << period << std::endl;
c@410 750 #endif
c@410 751
cannam@479 752 createPhaseExtractor( PW, m_winLength, period, FSP, 0 );
cannam@479 753 }
cannam@479 754 }
c@410 755
cannam@479 756 alignment[ TTLoopIndex ] = phaseMM( m_rawDFFrame, PW, m_winLength, period );
c@410 757
cannam@479 758 lastBeat = beatPredict(FSP, alignment[ TTLoopIndex ], period, m_lagLength );
c@410 759
cannam@479 760 FSP += (m_lagLength);
c@410 761
c@410 762 if (tempoReturn) tempoReturn->push_back(m_lockedTempo);
c@410 763
cannam@479 764 TTLoopIndex++;
c@410 765 }
c@410 766
c@410 767
c@410 768 delete [] periodP;
c@410 769 delete [] periodG;
c@410 770 delete [] alignment;
c@410 771
c@410 772 delete [] RW;
c@410 773 delete [] GW;
c@410 774 delete [] PW;
c@410 775
c@410 776 return m_beats;
c@410 777 }
c@410 778