2 Copyright (C) 2001,2007 Paul Davis
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20 #include "ardour/ardour.h"
25 #include "pbd/error.h"
26 #include "pbd/enumwriter.h"
28 #include "midi++/names.h"
30 #include "ardour/automatable.h"
31 #include "ardour/amp.h"
32 #include "ardour/event_type_map.h"
33 #include "ardour/midi_track.h"
34 #include "ardour/panner.h"
35 #include "ardour/plugin_insert.h"
36 #include "ardour/session.h"
41 using namespace ARDOUR
;
44 nframes_t
Automatable::_automation_interval
= 0;
46 Automatable::Automatable(Session
& session
)
48 , _last_automation_snapshot(0)
53 Automatable::old_set_automation_state (const XMLNode
& node
)
55 const XMLProperty
*prop
;
57 if ((prop
= node
.property ("path")) != 0) {
58 load_automation (prop
->value());
60 warning
<< _("Automation node has no path property") << endmsg
;
63 if ((prop
= node
.property ("visible")) != 0) {
67 _visible_controls
.clear ();
69 sstr
<< prop
->value();
75 mark_automation_visible (Evoral::Parameter(PluginAutomation
, 0, what
), true);
79 _last_automation_snapshot
= 0;
85 Automatable::load_automation (const string
& path
)
89 if (path
[0] == '/') { // legacy
92 fullpath
= _a_session
.automation_dir();
95 ifstream
in (fullpath
.c_str());
98 warning
<< string_compose(_("cannot open %2 to load automation data (%3)")
99 , fullpath
, strerror (errno
)) << endmsg
;
103 Glib::Mutex::Lock
lm (control_lock());
104 set
<Evoral::Parameter
> tosave
;
107 _last_automation_snapshot
= 0;
114 in
>> port
; if (!in
) break;
115 in
>> when
; if (!in
) goto bad
;
116 in
>> value
; if (!in
) goto bad
;
118 Evoral::Parameter
param(PluginAutomation
, 0, port
);
119 /* FIXME: this is legacy and only used for plugin inserts? I think? */
120 boost::shared_ptr
<Evoral::Control
> c
= control (param
, true);
121 c
->list()->add (when
, value
);
122 tosave
.insert (param
);
128 error
<< string_compose(_("cannot load automation data from %2"), fullpath
) << endmsg
;
134 Automatable::add_control(boost::shared_ptr
<Evoral::Control
> ac
)
136 Evoral::Parameter param
= ac
->parameter();
138 ControlSet::add_control(ac
);
139 _can_automate_list
.insert(param
);
140 auto_state_changed(param
); // sync everything up
144 Automatable::what_has_visible_data(set
<Evoral::Parameter
>& s
) const
146 Glib::Mutex::Lock
lm (control_lock());
147 set
<Evoral::Parameter
>::const_iterator li
;
149 for (li
= _visible_controls
.begin(); li
!= _visible_controls
.end(); ++li
) {
155 Automatable::describe_parameter (Evoral::Parameter param
)
157 /* derived classes like PluginInsert should override this */
159 if (param
== Evoral::Parameter(GainAutomation
)) {
161 } else if (param
.type() == PanAutomation
) {
162 /* ID's are zero-based, present them as 1-based */
163 return (string_compose(_("Pan %1"), param
.id() + 1));
164 } else if (param
.type() == MidiCCAutomation
) {
165 return string_compose("%2 [%3]",
166 param
.id() + 1, midi_name(param
.id()), int(param
.channel()) + 1);
167 } else if (param
.type() == MidiPgmChangeAutomation
) {
168 return string_compose("Program [%1]", int(param
.channel()) + 1);
169 } else if (param
.type() == MidiPitchBenderAutomation
) {
170 return string_compose("Bender [%1]", int(param
.channel()) + 1);
171 } else if (param
.type() == MidiChannelPressureAutomation
) {
172 return string_compose("Pressure [%1]", int(param
.channel()) + 1);
174 return EventTypeMap::instance().to_symbol(param
);
179 Automatable::can_automate (Evoral::Parameter what
)
181 _can_automate_list
.insert (what
);
185 Automatable::mark_automation_visible (Evoral::Parameter what
, bool yn
)
188 _visible_controls
.insert (what
);
190 set
<Evoral::Parameter
>::iterator i
;
192 if ((i
= _visible_controls
.find (what
)) != _visible_controls
.end()) {
193 _visible_controls
.erase (i
);
198 /** \a legacy_param is used for loading legacy sessions where an object (IO, Panner)
199 * had a single automation parameter, with it's type implicit. Derived objects should
200 * pass that type and it will be used for the untyped AutomationList found.
203 Automatable::set_automation_state (const XMLNode
& node
, Evoral::Parameter legacy_param
)
205 Glib::Mutex::Lock
lm (control_lock());
207 /* Don't clear controls, since some may be special derived Controllable classes */
209 _visible_controls
.clear ();
211 XMLNodeList nlist
= node
.children();
212 XMLNodeIterator niter
;
214 for (niter
= nlist
.begin(); niter
!= nlist
.end(); ++niter
) {
216 /*if (sscanf ((*niter)->name().c_str(), "parameter-%" PRIu32, ¶m) != 1) {
217 error << string_compose (_("%2: badly formatted node name in XML automation state, ignored"), _name) << endmsg;
221 if ((*niter
)->name() == "AutomationList") {
223 const XMLProperty
* id_prop
= (*niter
)->property("automation-id");
225 Evoral::Parameter param
= (id_prop
226 ? EventTypeMap::instance().new_parameter(id_prop
->value())
229 if (param
.type() == NullAutomation
) {
230 warning
<< "Automation has null type" << endl
;
234 boost::shared_ptr
<AutomationList
> al (new AutomationList(**niter
, param
));
237 warning
<< "AutomationList node without automation-id property, "
238 << "using default: " << EventTypeMap::instance().to_symbol(legacy_param
) << endmsg
;
241 boost::shared_ptr
<Evoral::Control
> existing
= control(param
);
243 existing
->set_list(al
);
245 boost::shared_ptr
<Evoral::Control
> newcontrol
= control_factory(param
);
246 add_control(newcontrol
);
247 newcontrol
->set_list(al
);
251 error
<< "Expected AutomationList node, got '" << (*niter
)->name() << endmsg
;
255 _last_automation_snapshot
= 0;
261 Automatable::get_automation_state ()
263 Glib::Mutex::Lock
lm (control_lock());
264 XMLNode
* node
= new XMLNode (X_("Automation"));
266 if (controls().empty()) {
270 for (Controls::iterator li
= controls().begin(); li
!= controls().end(); ++li
) {
271 boost::shared_ptr
<AutomationList
> l
272 = boost::dynamic_pointer_cast
<AutomationList
>(li
->second
->list());
274 node
->add_child_nocopy (l
->get_state ());
282 Automatable::set_parameter_automation_state (Evoral::Parameter param
, AutoState s
)
284 Glib::Mutex::Lock
lm (control_lock());
286 boost::shared_ptr
<Evoral::Control
> c
= control (param
, true);
287 boost::shared_ptr
<AutomationList
> l
= boost::dynamic_pointer_cast
<AutomationList
>(c
->list());
289 if (s
!= l
->automation_state()) {
290 l
->set_automation_state (s
);
291 _a_session
.set_dirty ();
296 Automatable::get_parameter_automation_state (Evoral::Parameter param
, bool lock
)
298 AutoState result
= Off
;
301 control_lock().lock();
303 boost::shared_ptr
<Evoral::Control
> c
= control(param
);
304 boost::shared_ptr
<AutomationList
> l
= boost::dynamic_pointer_cast
<AutomationList
>(c
->list());
307 result
= l
->automation_state();
310 control_lock().unlock();
316 Automatable::set_parameter_automation_style (Evoral::Parameter param
, AutoStyle s
)
318 Glib::Mutex::Lock
lm (control_lock());
320 boost::shared_ptr
<Evoral::Control
> c
= control(param
, true);
321 boost::shared_ptr
<AutomationList
> l
= boost::dynamic_pointer_cast
<AutomationList
>(c
->list());
323 if (s
!= l
->automation_style()) {
324 l
->set_automation_style (s
);
325 _a_session
.set_dirty ();
330 Automatable::get_parameter_automation_style (Evoral::Parameter param
)
332 Glib::Mutex::Lock
lm (control_lock());
334 boost::shared_ptr
<Evoral::Control
> c
= control(param
);
335 boost::shared_ptr
<AutomationList
> l
= boost::dynamic_pointer_cast
<AutomationList
>(c
->list());
338 return l
->automation_style();
340 return Absolute
; // whatever
345 Automatable::protect_automation ()
347 typedef set
<Evoral::Parameter
> ParameterSet
;
348 ParameterSet automated_params
;
350 what_has_data(automated_params
);
352 for (ParameterSet::iterator i
= automated_params
.begin(); i
!= automated_params
.end(); ++i
) {
354 boost::shared_ptr
<Evoral::Control
> c
= control(*i
);
355 boost::shared_ptr
<AutomationList
> l
= boost::dynamic_pointer_cast
<AutomationList
>(c
->list());
357 switch (l
->automation_state()) {
359 l
->set_automation_state (Off
);
362 l
->set_automation_state (Play
);
371 Automatable::automation_snapshot (nframes_t now
, bool force
)
373 if (force
|| _last_automation_snapshot
> now
|| (now
- _last_automation_snapshot
) > _automation_interval
) {
375 for (Controls::iterator i
= controls().begin(); i
!= controls().end(); ++i
) {
376 boost::shared_ptr
<AutomationControl
> c
377 = boost::dynamic_pointer_cast
<AutomationControl
>(i
->second
);
378 if (c
->automation_write()) {
379 c
->list()->rt_add (now
, i
->second
->user_float());
383 _last_automation_snapshot
= now
;
388 Automatable::transport_stopped (sframes_t now
)
390 for (Controls::iterator li
= controls().begin(); li
!= controls().end(); ++li
) {
392 boost::shared_ptr
<AutomationControl
> c
393 = boost::dynamic_pointer_cast
<AutomationControl
>(li
->second
);
394 boost::shared_ptr
<AutomationList
> l
395 = boost::dynamic_pointer_cast
<AutomationList
>(c
->list());
397 c
->list()->reposition_for_rt_add (now
);
399 if (c
->automation_state() != Off
) {
400 c
->set_value(c
->list()->eval(now
));
405 boost::shared_ptr
<Evoral::Control
>
406 Automatable::control_factory(const Evoral::Parameter
& param
)
408 boost::shared_ptr
<AutomationList
> list(new AutomationList(param
));
409 Evoral::Control
* control
= NULL
;
410 if (param
.type() >= MidiCCAutomation
&& param
.type() <= MidiChannelPressureAutomation
) {
411 MidiTrack
* mt
= dynamic_cast<MidiTrack
*>(this);
413 control
= new MidiTrack::MidiControl(mt
, param
);
415 warning
<< "MidiCCAutomation for non-MidiTrack" << endl
;
417 } else if (param
.type() == PluginAutomation
) {
418 PluginInsert
* pi
= dynamic_cast<PluginInsert
*>(this);
420 control
= new PluginInsert::PluginControl(pi
, param
);
422 warning
<< "PluginAutomation for non-Plugin" << endl
;
424 } else if (param
.type() == GainAutomation
) {
425 Amp
* amp
= dynamic_cast<Amp
*>(this);
427 control
= new Amp::GainControl(X_("gaincontrol"), _a_session
, amp
, param
);
429 warning
<< "GainAutomation for non-Amp" << endl
;
431 } else if (param
.type() == PanAutomation
) {
432 Panner
* me
= dynamic_cast<Panner
*>(this);
434 control
= new Panner::PanControllable(me
->session(), X_("panner"), *me
, param
);
436 warning
<< "PanAutomation for non-Panner" << endl
;
441 control
= new AutomationControl(_a_session
, param
);
444 control
->set_list(list
);
445 return boost::shared_ptr
<Evoral::Control
>(control
);
448 boost::shared_ptr
<AutomationControl
>
449 Automatable::automation_control (const Evoral::Parameter
& id
, bool create
)
451 return boost::dynamic_pointer_cast
<AutomationControl
>(Evoral::ControlSet::control(id
, create
));
454 boost::shared_ptr
<const AutomationControl
>
455 Automatable::automation_control (const Evoral::Parameter
& id
) const
457 return boost::dynamic_pointer_cast
<const AutomationControl
>(Evoral::ControlSet::control(id
));