annotate dsp/tempotracking/TempoTrack.cpp @ 490:103156707542

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