Chris@6
|
1 /* -*- c-basic-offset: 4 indent-tabs-mode: nil -*- vi:set ts=8 sts=4 sw=4: */
|
Chris@6
|
2
|
Chris@6
|
3 /*
|
Chris@6
|
4 Vamp feature extraction plugin for the BeatRoot beat tracker.
|
Chris@6
|
5
|
Chris@6
|
6 Centre for Digital Music, Queen Mary, University of London.
|
Chris@6
|
7 This file copyright 2011 Simon Dixon, Chris Cannam and QMUL.
|
Chris@6
|
8
|
Chris@6
|
9 This program is free software; you can redistribute it and/or
|
Chris@6
|
10 modify it under the terms of the GNU General Public License as
|
Chris@6
|
11 published by the Free Software Foundation; either version 2 of the
|
Chris@6
|
12 License, or (at your option) any later version. See the file
|
Chris@6
|
13 COPYING included with this distribution for more information.
|
Chris@6
|
14 */
|
Chris@6
|
15
|
Chris@6
|
16 #include "Agent.h"
|
Chris@6
|
17 #include "BeatTracker.h"
|
Chris@6
|
18
|
Chris@6
|
19 double Agent::POST_MARGIN_FACTOR = 0.3;
|
Chris@6
|
20 double Agent::PRE_MARGIN_FACTOR = 0.15;
|
Chris@6
|
21 const double Agent::INNER_MARGIN = 0.040;
|
Chris@6
|
22 double Agent::MAX_CHANGE = 0.2;
|
Chris@6
|
23 double Agent::CONF_FACTOR = 0.5;
|
Chris@6
|
24 const double Agent::DEFAULT_CORRECTION_FACTOR = 50.0;
|
Chris@6
|
25 const double Agent::DEFAULT_EXPIRY_TIME = 10.0;
|
Chris@6
|
26
|
Chris@6
|
27 int Agent::idCounter = 0;
|
Chris@6
|
28
|
Chris@6
|
29 double Agent::innerMargin = 0.0;
|
Chris@6
|
30 double Agent::correctionFactor = 0.0;
|
Chris@6
|
31 double Agent::expiryTime = 0.0;
|
Chris@6
|
32 double Agent::decayFactor = 0.0;
|
Chris@6
|
33
|
Chris@15
|
34 void Agent::accept(Event e, double err, int beats) {
|
Chris@15
|
35 beatTime = e.time;
|
Chris@15
|
36 events.push_back(e);
|
Chris@15
|
37 if (fabs(initialBeatInterval - beatInterval -
|
Chris@15
|
38 err / correctionFactor) < MAX_CHANGE * initialBeatInterval)
|
Chris@15
|
39 beatInterval += err / correctionFactor;// Adjust tempo
|
Chris@15
|
40 beatCount += beats;
|
Chris@15
|
41 double conFactor = 1.0 - CONF_FACTOR * err /
|
Chris@15
|
42 (err>0? postMargin: -preMargin);
|
Chris@15
|
43 if (decayFactor > 0) {
|
Chris@15
|
44 double memFactor = 1. - 1. / threshold((double)beatCount,1,decayFactor);
|
Chris@15
|
45 phaseScore = memFactor * phaseScore +
|
Chris@15
|
46 (1.0 - memFactor) * conFactor * e.salience;
|
Chris@15
|
47 } else
|
Chris@15
|
48 phaseScore += conFactor * e.salience;
|
Chris@15
|
49
|
Chris@15
|
50 #ifdef DEBUG_BEATROOT
|
Chris@15
|
51 std::cerr << "Ag#" << idNumber << ": " << beatInterval << std::endl;
|
Chris@15
|
52 std::cerr << " Beat" << beatCount << " Time=" << beatTime
|
Chris@15
|
53 << " Score=" << tempoScore << ":P" << phaseScore << ":"
|
Chris@15
|
54 << topScoreTime << std::endl;
|
Chris@15
|
55 #endif
|
Chris@15
|
56 } // accept()
|
Chris@15
|
57
|
Chris@8
|
58 bool Agent::considerAsBeat(Event e, AgentList &a) {
|
Chris@6
|
59 double err;
|
Chris@6
|
60 if (beatTime < 0) { // first event
|
Chris@12
|
61 #ifdef DEBUG_BEATROOT
|
Chris@12
|
62 std::cerr << "Ag#" << idNumber << ": accepting first event trivially at " << e.time << std::endl;
|
Chris@12
|
63 #endif
|
Chris@6
|
64 accept(e, 0, 1);
|
Chris@6
|
65 return true;
|
Chris@6
|
66 } else { // subsequent events
|
Chris@9
|
67 EventList::iterator last = events.end();
|
Chris@9
|
68 --last;
|
Chris@9
|
69 if (e.time - last->time > expiryTime) {
|
Chris@12
|
70 #ifdef DEBUG_BEATROOT
|
Chris@12
|
71 std::cerr << "Ag#" << idNumber << ": time " << e.time
|
Chris@12
|
72 << " too late relative to " << last->time << " (expiry "
|
Chris@12
|
73 << expiryTime << "), giving up" << std::endl;
|
Chris@12
|
74 #endif
|
Chris@6
|
75 phaseScore = -1.0; // flag agent to be deleted
|
Chris@6
|
76 return false;
|
Chris@6
|
77 }
|
Chris@8
|
78 double beats = nearbyint((e.time - beatTime) / beatInterval);
|
Chris@8
|
79 err = e.time - beatTime - beats * beatInterval;
|
Chris@12
|
80 #ifdef DEBUG_BEATROOT
|
Chris@12
|
81 std::cerr << "Ag#" << idNumber << ": time " << e.time << ", err " << err << " for beats " << beats << std::endl;
|
Chris@12
|
82 #endif
|
Chris@6
|
83 if ((beats > 0) && (-preMargin <= err) && (err <= postMargin)) {
|
Chris@12
|
84 if (fabs(err) > innerMargin) { // Create new agent that skips this
|
Chris@12
|
85 #ifdef DEBUG_BEATROOT
|
Chris@12
|
86 std::cerr << "Ag#" << idNumber << ": creating another new agent" << std::endl;
|
Chris@12
|
87 #endif
|
Chris@12
|
88 a.add(clone()); // event (avoids large phase jump)
|
Chris@12
|
89 }
|
Chris@6
|
90 accept(e, err, (int)beats);
|
Chris@6
|
91 return true;
|
Chris@6
|
92 }
|
Chris@6
|
93 }
|
Chris@6
|
94 return false;
|
Chris@6
|
95 } // considerAsBeat()
|
Chris@6
|
96
|
Chris@6
|
97
|
Chris@9
|
98 void Agent::fillBeats(double start) {
|
Chris@6
|
99 double prevBeat = 0, nextBeat, currentInterval, beats;
|
Chris@9
|
100 EventList::iterator ei = events.begin();
|
Chris@9
|
101 if (ei != events.end()) {
|
Chris@13
|
102 EventList::iterator ni = ei;
|
Chris@13
|
103 prevBeat = (++ni)->time;
|
Chris@6
|
104 }
|
Chris@13
|
105 for ( ; ei != events.end(); ) {
|
Chris@13
|
106 EventList::iterator ni = ei;
|
Chris@13
|
107 nextBeat = (++ni)->time;
|
Chris@6
|
108 beats = nearbyint((nextBeat - prevBeat) / beatInterval - 0.01); //prefer slow
|
Chris@6
|
109 currentInterval = (nextBeat - prevBeat) / beats;
|
Chris@6
|
110 for ( ; (nextBeat > start) && (beats > 1.5); beats--) {
|
Chris@6
|
111 prevBeat += currentInterval;
|
Chris@13
|
112 events.insert(ni, BeatTracker::newBeat(prevBeat, 0));
|
Chris@6
|
113 }
|
Chris@6
|
114 prevBeat = nextBeat;
|
Chris@13
|
115 ei = ni;
|
Chris@6
|
116 }
|
Chris@6
|
117 } // fillBeats()
|