Marsyas
0.6.0-alpha
|
00001 /* 00002 ** Copyright (C) 1998-2010 George Tzanetakis <gtzan@cs.uvic.ca> 00003 ** 00004 ** This program is free software; you can redistribute it and/or modify 00005 ** it under the terms of the GNU General Public License as published by 00006 ** the Free Software Foundation; either version 2 of the License, or 00007 ** (at your option) any later version. 00008 ** 00009 ** This program is distributed in the hope that it will be useful, 00010 ** but WITHOUT ANY WARRANTY; without even the implied warranty of 00011 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00012 ** GNU General Public License for more details. 00013 ** 00014 ** You should have received a copy of the GNU General Public License 00015 ** along with this program; if not, write to the Free Software 00016 ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 00017 */ 00018 00019 00020 #include "AbsMax.h" 00021 00022 using std::ostringstream; 00023 using namespace Marsyas; 00024 00025 AbsMax::AbsMax(mrs_string name): MarSystem("AbsMax",name) 00026 { 00027 } 00028 00029 AbsMax::~AbsMax() 00030 { 00031 } 00032 00033 MarSystem* 00034 AbsMax::clone() const 00035 { 00036 return new AbsMax(*this); 00037 } 00038 00039 void 00040 AbsMax::myUpdate(MarControlPtr sender) 00041 { 00042 // Start with the default MarSystem setup with equal input/output 00043 // stream format ... 00044 MarSystem::myUpdate(sender); 00045 00046 // ... but change the number and rate of output samples. 00047 setControl("mrs_natural/onSamples", (mrs_natural)1); 00048 setControl("mrs_real/osrate", 00049 getControl("mrs_real/israte")->to<mrs_real>() / getControl("mrs_natural/inSamples")->to<mrs_natural>() 00050 ); 00051 00052 mrs_string inObsNames = ctrl_inObsNames_->to<mrs_string>(); 00053 ctrl_onObsNames_->setValue(obsNamesAddPrefix(inObsNames, "AbsMax_"), NOUPDATE); 00054 } 00055 00056 void 00057 AbsMax::myProcess(realvec& in, realvec& out) 00058 { 00059 mrs_natural o,t; 00060 for (o=0; o < inObservations_; ++o) 00061 { 00062 max_ = 0.0; 00063 for (t=0; t < inSamples_; ++t) 00064 { 00065 if (fabs(in(o,t)) > max_) 00066 { 00067 max_ = fabs(in(o,t)); 00068 } 00069 } 00070 out(o,0) = max_; 00071 } 00072 }