00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019 #include "PeakPeriods2BPM.h"
00020
00021 using std::ostringstream;
00022 using namespace Marsyas;
00023
00024 PeakPeriods2BPM::PeakPeriods2BPM(mrs_string name):MarSystem("PeakPeriods2BPM",name)
00025 {
00026 addControls();
00027 }
00028
00029
00030 PeakPeriods2BPM::~PeakPeriods2BPM()
00031 {
00032 }
00033
00034
00035 void
00036 PeakPeriods2BPM::addControls()
00037 {
00038 addctrl("mrs_real/factor", 1.0);
00039 }
00040
00041 MarSystem*
00042 PeakPeriods2BPM::clone() const
00043 {
00044 return new PeakPeriods2BPM(*this);
00045 }
00046
00047 void
00048 PeakPeriods2BPM::myUpdate(MarControlPtr sender)
00049 {
00050 MRSDIAG("PeakPeriods2BPM.cpp - PeakPeriods2BPM:myUpdate");
00051
00052
00053
00054
00055 MarSystem::myUpdate(sender);
00056
00057 srate_ = getctrl("mrs_real/israte")->to<mrs_real>();
00058
00059 }
00060
00061 void
00062 PeakPeriods2BPM::myProcess(realvec& in, realvec& out)
00063 {
00064 mrs_natural t,o;
00065
00066 factor_ = getctrl("mrs_real/factor")->to<mrs_real>();
00067 factor_ = 4.0;
00068
00069 for (o=0; o < inObservations_; o++)
00070 for (t = 0; t < inSamples_/2; t++)
00071 {
00072 out(o,2*t) = in(o,2*t);
00073
00074 out(o,2*t+1) = (mrs_real)(srate_ * 60.0 * factor_ / in(o, 2*t+1));
00075
00076 }
00077
00078 }
00079
00080
00081
00082
00083
00084
00085
00086
00087
00088