1 files changed, 82 insertions, 0 deletions
diff --git a/libs/evoral/src/Control.cpp b/libs/evoral/src/Control.cpp
new file mode 100644
index 0000000000..8efc2a6659
--- /dev/null
+++ b/libs/evoral/src/Control.cpp
@@ -0,0 +1,82 @@
+/* This file is part of Evoral.
+ * Copyright (C) 2008 Dave Robillard <http://drobilla.net>
+ * Copyright (C) 2000-2008 Paul Davis
+ * 
+ * Evoral is free software; you can redistribute it and/or modify it under the
+ * terms of the GNU General Public License as published by the Free Software
+ * Foundation; either version 2 of the License, or (at your option) any later
+ * version.
+ * 
+ * Evoral is distributed in the hope that it will be useful, but WITHOUT ANY
+ * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for details.
+ * 
+ * You should have received a copy of the GNU General Public License along
+ * with this program; if not, write to the Free Software Foundation, Inc.,
+ * 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+ */
+
+#include <iostream>
+#include <evoral/Control.hpp>
+#include <evoral/ControlList.hpp>
+
+namespace Evoral {
+
+Control::Control(boost::shared_ptr<ControlList> list)
+	: _list(list)
+	, _user_value(list->default_value())
+{
+}
+
+
+/** Get the currently effective value (ie the one that corresponds to current output)
+ */
+float
+Control::get_value(bool from_list, nframes_t frame) const
+{
+	if (from_list)
+		return _list->eval(frame);
+	else
+		return _user_value;
+}
+
+
+void
+Control::set_value(float value, bool to_list, nframes_t frame)
+{
+	_user_value = value;
+	
+	if (to_list)
+		_list->add(frame, value);
+}
+
+
+/** Get the latest user-set value, which may not equal get_value() when automation
+ * is playing back, etc.
+ *
+ * Automation write/touch works by periodically sampling this value and adding it
+ * to the AutomationList.
+ */
+float
+Control::user_value() const
+{
+	return _user_value;
+}
+	
+
+void
+Control::set_list(boost::shared_ptr<ControlList> list)
+{
+	_list = list;
+	_user_value = list->default_value();
+}
+
+	
+Parameter
+Control::parameter() const
+{
+	return _list->parameter();
+}
+
+} // namespace Evoral
+