2 Copyright (C) 2004 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.
33 #include <pbd/error.h>
34 #include <pbd/failed_constructor.h>
35 #include <pbd/xml++.h>
37 #include <ardour/session.h>
38 #include <ardour/panner.h>
39 #include <ardour/utils.h>
41 #include <ardour/mix.h>
45 #include <pbd/mathfix.h>
48 using namespace ARDOUR;
51 float Panner::current_automation_version_number = 1.0;
53 string EqualPowerStereoPanner::name = "Equal Power Stereo";
54 string Multi2dPanner::name = "Multiple (2D)";
56 /* this is a default mapper of control values to a pan position
57 others can be imagined.
60 static pan_t direct_control_to_pan (double fract) {
64 static double direct_pan_to_control (pan_t val) {
68 StreamPanner::StreamPanner (Panner& p)
70 _control (X_("panner"), *this)
74 parent.session().add_controllable (&_control);
81 StreamPanner::~StreamPanner ()
86 StreamPanner::PanControllable::set_value (float val)
88 panner.set_position (direct_control_to_pan (val));
92 StreamPanner::PanControllable::get_value (void) const
95 panner.get_effective_position (xpos);
96 return direct_pan_to_control (xpos);
100 StreamPanner::PanControllable::can_send_feedback () const
102 AutoState astate = panner.get_parent().automation_state ();
104 if ((astate == Play) || (astate == Touch && !panner.get_parent().touching())) {
112 StreamPanner::set_muted (bool yn)
121 StreamPanner::set_position (float xpos, bool link_call)
123 if (!link_call && parent.linked()) {
124 parent.set_position (xpos, *this);
136 StreamPanner::set_position (float xpos, float ypos, bool link_call)
138 if (!link_call && parent.linked()) {
139 parent.set_position (xpos, ypos, *this);
142 if (x != xpos || y != ypos) {
152 StreamPanner::set_position (float xpos, float ypos, float zpos, bool link_call)
154 if (!link_call && parent.linked()) {
155 parent.set_position (xpos, ypos, zpos, *this);
158 if (x != xpos || y != ypos || z != zpos) {
168 StreamPanner::set_state (const XMLNode& node)
170 const XMLProperty* prop;
171 XMLNodeConstIterator iter;
173 if ((prop = node.property (X_("muted")))) {
174 set_muted (prop->value() == "yes");
181 StreamPanner::add_state (XMLNode& node)
183 node.add_property (X_("muted"), (muted() ? "yes" : "no"));
186 /*---------------------------------------------------------------------- */
188 BaseStereoPanner::BaseStereoPanner (Panner& p)
189 : StreamPanner (p), _automation (0.0, 1.0, 0.5)
193 BaseStereoPanner::~BaseStereoPanner ()
198 BaseStereoPanner::snapshot (nframes_t now)
200 if (_automation.automation_state() == Write || _automation.automation_state() == Touch) {
201 _automation.rt_add (now, x);
206 BaseStereoPanner::transport_stopped (nframes_t frame)
208 _automation.reposition_for_rt_add (frame);
210 if (_automation.automation_state() != Off) {
211 set_position (_automation.eval (frame));
216 BaseStereoPanner::set_automation_style (AutoStyle style)
218 _automation.set_automation_style (style);
222 BaseStereoPanner::set_automation_state (AutoState state)
224 if (state != _automation.automation_state()) {
226 _automation.set_automation_state (state);
229 set_position (_automation.eval (parent.session().transport_frame()));
235 BaseStereoPanner::distribute (Sample* src, Sample** obufs, gain_t gain_coeff, nframes_t nframes)
249 if (fabsf ((delta = (left - desired_left))) > 0.002) { // about 1 degree of arc
251 /* interpolate over 64 frames or nframes, whichever is smaller */
253 nframes_t limit = min ((nframes_t)64, nframes);
256 delta = -(delta / (float) (limit));
258 for (n = 0; n < limit; n++) {
259 left_interp = left_interp + delta;
260 left = left_interp + 0.9 * (left - left_interp);
261 dst[n] += src[n] * left * gain_coeff;
264 pan = left * gain_coeff;
266 Session::mix_buffers_with_gain(dst+n,src+n,nframes-n,pan);
273 if ((pan = (left * gain_coeff)) != 1.0f) {
277 Session::mix_buffers_with_gain(dst,src,nframes,pan);
279 /* mark that we wrote into the buffer */
287 Session::mix_buffers_no_gain(dst,src,nframes);
289 /* mark that we wrote into the buffer */
299 if (fabsf ((delta = (right - desired_right))) > 0.002) { // about 1 degree of arc
301 /* interpolate over 64 frames or nframes, whichever is smaller */
303 nframes_t limit = min ((nframes_t)64, nframes);
306 delta = -(delta / (float) (limit));
308 for (n = 0; n < limit; n++) {
309 right_interp = right_interp + delta;
310 right = right_interp + 0.9 * (right - right_interp);
311 dst[n] += src[n] * right * gain_coeff;
314 pan = right * gain_coeff;
316 Session::mix_buffers_with_gain(dst+n,src+n,nframes-n,pan);
318 /* XXX it would be nice to mark the buffer as written to */
322 right = desired_right;
323 right_interp = right;
325 if ((pan = (right * gain_coeff)) != 1.0f) {
329 Session::mix_buffers_with_gain(dst,src,nframes,pan);
331 /* XXX it would be nice to mark the buffer as written to */
336 Session::mix_buffers_no_gain(dst,src,nframes);
338 /* XXX it would be nice to mark the buffer as written to */
343 /*---------------------------------------------------------------------- */
345 EqualPowerStereoPanner::EqualPowerStereoPanner (Panner& p)
346 : BaseStereoPanner (p)
351 right = desired_right;
353 right_interp = right;
356 EqualPowerStereoPanner::~EqualPowerStereoPanner ()
361 EqualPowerStereoPanner::update ()
363 /* it would be very nice to split this out into a virtual function
364 that can be accessed from BaseStereoPanner and used in distribute_automated().
366 but the place where its used in distribute_automated() is a tight inner loop,
367 and making "nframes" virtual function calls to compute values is an absurd
371 /* x == 0 => hard left
376 float panL = 1 - panR;
378 const float pan_law_attenuation = -3.0f;
379 const float scale = 2.0f - 4.0f * powf (10.0f,pan_law_attenuation/20.0f);
381 desired_left = panL * (scale * panL + 1.0f - scale);
382 desired_right = panR * (scale * panR + 1.0f - scale);
388 EqualPowerStereoPanner::distribute_automated (Sample* src, Sample** obufs,
389 nframes_t start, nframes_t end, nframes_t nframes,
395 /* fetch positional data */
397 if (!_automation.rt_safe_get_vector (start, end, buffers[0], nframes)) {
400 distribute (src, obufs, 1.0, nframes);
405 /* store effective pan position. do this even if we are muted */
408 effective_x = buffers[0][nframes-1];
414 /* apply pan law to convert positional data into pan coefficients for
418 const float pan_law_attenuation = -3.0f;
419 const float scale = 2.0f - 4.0f * powf (10.0f,pan_law_attenuation/20.0f);
421 for (nframes_t n = 0; n < nframes; ++n) {
423 float panR = buffers[0][n];
424 float panL = 1 - panR;
426 buffers[0][n] = panL * (scale * panL + 1.0f - scale);
427 buffers[1][n] = panR * (scale * panR + 1.0f - scale);
435 for (nframes_t n = 0; n < nframes; ++n) {
436 dst[n] += src[n] * pbuf[n];
439 /* XXX it would be nice to mark the buffer as written to */
446 for (nframes_t n = 0; n < nframes; ++n) {
447 dst[n] += src[n] * pbuf[n];
450 /* XXX it would be nice to mark the buffer as written to */
454 EqualPowerStereoPanner::factory (Panner& parent)
456 return new EqualPowerStereoPanner (parent);
460 EqualPowerStereoPanner::get_state (void)
466 EqualPowerStereoPanner::state (bool full_state)
468 XMLNode* root = new XMLNode ("StreamPanner");
470 LocaleGuard lg (X_("POSIX"));
472 snprintf (buf, sizeof (buf), "%.12g", x);
473 root->add_property (X_("x"), buf);
474 root->add_property (X_("type"), EqualPowerStereoPanner::name);
476 XMLNode* autonode = new XMLNode (X_("Automation"));
477 autonode->add_child_nocopy (_automation.state (full_state));
478 root->add_child_nocopy (*autonode);
480 StreamPanner::add_state (*root);
482 root->add_child_nocopy (_control.get_state ());
488 EqualPowerStereoPanner::set_state (const XMLNode& node)
490 const XMLProperty* prop;
492 LocaleGuard lg (X_("POSIX"));
494 if ((prop = node.property (X_("x")))) {
495 pos = atof (prop->value().c_str());
496 set_position (pos, true);
499 StreamPanner::set_state (node);
501 for (XMLNodeConstIterator iter = node.children().begin(); iter != node.children().end(); ++iter) {
503 if ((*iter)->name() == X_("panner")) {
505 _control.set_state (**iter);
507 } else if ((*iter)->name() == X_("Automation")) {
509 _automation.set_state (*((*iter)->children().front()));
511 if (_automation.automation_state() != Off) {
512 set_position (_automation.eval (parent.session().transport_frame()));
520 /*----------------------------------------------------------------------*/
522 Multi2dPanner::Multi2dPanner (Panner& p)
523 : StreamPanner (p), _automation (0.0, 1.0, 0.5) // XXX useless
528 Multi2dPanner::~Multi2dPanner ()
533 Multi2dPanner::snapshot (nframes_t now)
539 Multi2dPanner::transport_stopped (nframes_t frame)
545 Multi2dPanner::set_automation_style (AutoStyle style)
551 Multi2dPanner::set_automation_state (AutoState state)
557 Multi2dPanner::update ()
559 static const float BIAS = FLT_MIN;
561 uint32_t nouts = parent.outputs.size();
568 for (i = 0; i < nouts; i++) {
569 dsq[i] = ((x - parent.outputs[i].x) * (x - parent.outputs[i].x) + (y - parent.outputs[i].y) * (y - parent.outputs[i].y) + BIAS);
573 f += dsq[i] * dsq[i];
576 // terrible hack to support OSX < 10.3.9 builds
577 fr = (float) (1.0 / sqrt((double)f));
581 for (i = 0; i < nouts; ++i) {
582 parent.outputs[i].desired_pan = 1.0f - (dsq[i] * fr);
589 Multi2dPanner::distribute (Sample* src, Sample** obufs, gain_t gain_coeff, nframes_t nframes)
593 vector<Panner::Output>::iterator o;
601 for (n = 0, o = parent.outputs.begin(); o != parent.outputs.end(); ++o, ++n) {
606 if (fabsf ((delta = (left_interp - desired_left))) > 0.002) { // about 1 degree of arc
608 /* interpolate over 64 frames or nframes, whichever is smaller */
610 nframes_t limit = min ((nframes_t)64, nframes);
613 delta = -(delta / (float) (limit));
615 for (n = 0; n < limit; n++) {
616 left_interp = left_interp + delta;
617 left = left_interp + 0.9 * (left - left_interp);
618 dst[n] += src[n] * left * gain_coeff;
621 pan = left * gain_coeff;
623 for (; n < nframes; ++n) {
624 dst[n] += src[n] * pan;
630 pan = (*o).desired_pan;
632 if ((pan *= gain_coeff) != 1.0f) {
636 for (nframes_t n = 0; n < nframes; ++n) {
637 dst[n] += src[n] * pan;
645 for (nframes_t n = 0; n < nframes; ++n) {
660 Multi2dPanner::distribute_automated (Sample* src, Sample** obufs,
661 nframes_t start, nframes_t end, nframes_t nframes,
674 Multi2dPanner::factory (Panner& p)
676 return new Multi2dPanner (p);
680 Multi2dPanner::get_state (void)
686 Multi2dPanner::state (bool full_state)
688 XMLNode* root = new XMLNode ("StreamPanner");
690 LocaleGuard lg (X_("POSIX"));
692 snprintf (buf, sizeof (buf), "%.12g", x);
693 root->add_property (X_("x"), buf);
694 snprintf (buf, sizeof (buf), "%.12g", y);
695 root->add_property (X_("y"), buf);
696 root->add_property (X_("type"), Multi2dPanner::name);
698 /* XXX no meaningful automation yet */
704 Multi2dPanner::set_state (const XMLNode& node)
706 const XMLProperty* prop;
708 LocaleGuard lg (X_("POSIX"));
713 if ((prop = node.property (X_("x")))) {
714 newx = atof (prop->value().c_str());
717 if ((prop = node.property (X_("y")))) {
718 newy = atof (prop->value().c_str());
721 if (x < 0 || y < 0) {
722 error << _("badly-formed positional data for Multi2dPanner - ignored")
727 set_position (newx, newy);
731 /*---------------------------------------------------------------------- */
733 Panner::Panner (string name, Session& s)
737 _link_direction = SameDirection;
746 Panner::set_linked (bool yn)
750 _session.set_dirty ();
751 LinkStateChanged (); /* EMIT SIGNAL */
756 Panner::set_link_direction (LinkDirection ld)
758 if (ld != _link_direction) {
759 _link_direction = ld;
760 _session.set_dirty ();
761 LinkStateChanged (); /* EMIT SIGNAL */
766 Panner::set_bypassed (bool yn)
768 if (yn != _bypassed) {
776 Panner::reset (uint32_t nouts, uint32_t npans)
779 bool changed = false;
781 if (nouts < 2 || (nouts == outputs.size() && npans == size())) {
804 fatal << _("programming error:")
805 << X_("Panner::reset() called with a single output")
812 outputs.push_back (Output (0, 0));
813 outputs.push_back (Output (1.0, 0));
815 for (n = 0; n < npans; ++n) {
816 push_back (new EqualPowerStereoPanner (*this));
821 outputs.push_back (Output (0.5, 0));
822 outputs.push_back (Output (0, 1.0));
823 outputs.push_back (Output (1.0, 1.0));
825 for (n = 0; n < npans; ++n) {
826 push_back (new Multi2dPanner (*this));
832 outputs.push_back (Output (0, 0));
833 outputs.push_back (Output (1.0, 0));
834 outputs.push_back (Output (1.0, 1.0));
835 outputs.push_back (Output (0, 1.0));
837 for (n = 0; n < npans; ++n) {
838 push_back (new Multi2dPanner (*this));
843 case 5: //square+offcenter center
844 outputs.push_back (Output (0, 0));
845 outputs.push_back (Output (1.0, 0));
846 outputs.push_back (Output (1.0, 1.0));
847 outputs.push_back (Output (0, 1.0));
848 outputs.push_back (Output (0.5, 0.75));
850 for (n = 0; n < npans; ++n) {
851 push_back (new Multi2dPanner (*this));
857 /* XXX horrible placement. FIXME */
858 for (n = 0; n < nouts; ++n) {
859 outputs.push_back (Output (0.1 * n, 0.1 * n));
862 for (n = 0; n < npans; ++n) {
863 push_back (new Multi2dPanner (*this));
869 for (iterator x = begin(); x != end(); ++x) {
873 /* force hard left/right panning in a common case: 2in/2out
876 if (npans == 2 && outputs.size() == 2) {
878 /* Do this only if we changed configuration, or our configuration
879 appears to be the default set up (center).
885 front()->get_position (left);
886 back()->get_position (right);
888 if (changed || ((left == 0.5) && (right == 0.5))) {
890 front()->set_position (0.0);
891 front()->automation().reset_default (0.0);
893 back()->set_position (1.0);
894 back()->automation().reset_default (1.0);
901 Changed (); /* EMIT SIGNAL */
908 Panner::remove (uint32_t which)
910 vector<StreamPanner*>::iterator i;
911 for (i = begin(); i != end() && which; ++i, --which);
922 for (vector<StreamPanner*>::iterator i = begin(); i != end(); ++i) {
926 vector<StreamPanner*>::clear ();
930 Panner::set_automation_style (AutoStyle style)
932 for (vector<StreamPanner*>::iterator i = begin(); i != end(); ++i) {
933 (*i)->set_automation_style (style);
935 _session.set_dirty ();
939 Panner::set_automation_state (AutoState state)
941 for (vector<StreamPanner*>::iterator i = begin(); i != end(); ++i) {
942 (*i)->set_automation_state (state);
944 _session.set_dirty ();
948 Panner::automation_state () const
951 return front()->automation().automation_state ();
958 Panner::automation_style () const
961 return front()->automation().automation_style ();
968 Panner::transport_stopped (nframes_t frame)
970 for (vector<StreamPanner*>::iterator i = begin(); i != end(); ++i) {
971 (*i)->transport_stopped (frame);
976 Panner::snapshot (nframes_t now)
978 for (vector<StreamPanner*>::iterator i = begin(); i != end(); ++i) {
979 (*i)->snapshot (now);
984 Panner::clear_automation ()
986 for (vector<StreamPanner*>::iterator i = begin(); i != end(); ++i) {
987 (*i)->automation().clear ();
989 _session.set_dirty ();
995 StreamPanner* (*factory)(Panner&);
998 PanPlugins pan_plugins[] = {
999 { EqualPowerStereoPanner::name, 2, EqualPowerStereoPanner::factory },
1000 { Multi2dPanner::name, 3, Multi2dPanner::factory },
1001 { string (""), 0, 0 }
1005 Panner::get_state (void)
1007 return state (true);
1011 Panner::state (bool full)
1013 XMLNode* root = new XMLNode (X_("Panner"));
1016 root->add_property (X_("linked"), (_linked ? "yes" : "no"));
1017 snprintf (buf, sizeof (buf), "%d", _link_direction);
1018 root->add_property (X_("link_direction"), buf);
1019 root->add_property (X_("bypassed"), (bypassed() ? "yes" : "no"));
1021 /* add each output */
1023 for (vector<Panner::Output>::iterator o = outputs.begin(); o != outputs.end(); ++o) {
1024 XMLNode* onode = new XMLNode (X_("Output"));
1025 snprintf (buf, sizeof (buf), "%.12g", (*o).x);
1026 onode->add_property (X_("x"), buf);
1027 snprintf (buf, sizeof (buf), "%.12g", (*o).y);
1028 onode->add_property (X_("y"), buf);
1029 root->add_child_nocopy (*onode);
1032 for (vector<StreamPanner*>::const_iterator i = begin(); i != end(); ++i) {
1033 root->add_child_nocopy ((*i)->state (full));
1040 Panner::set_state (const XMLNode& node)
1043 XMLNodeConstIterator niter;
1044 const XMLProperty *prop;
1047 LocaleGuard lg (X_("POSIX"));
1052 if ((prop = node.property (X_("linked"))) != 0) {
1053 set_linked (prop->value() == "yes");
1057 if ((prop = node.property (X_("bypassed"))) != 0) {
1058 set_bypassed (prop->value() == "yes");
1061 if ((prop = node.property (X_("link_direction"))) != 0) {
1062 sscanf (prop->value().c_str(), "%d", &i);
1063 set_link_direction ((LinkDirection) (i));
1066 nlist = node.children();
1068 for (niter = nlist.begin(); niter != nlist.end(); ++niter) {
1069 if ((*niter)->name() == X_("Output")) {
1073 prop = (*niter)->property (X_("x"));
1074 sscanf (prop->value().c_str(), "%g", &x);
1076 prop = (*niter)->property (X_("y"));
1077 sscanf (prop->value().c_str(), "%g", &y);
1079 outputs.push_back (Output (x, y));
1083 for (niter = nlist.begin(); niter != nlist.end(); ++niter) {
1085 if ((*niter)->name() == X_("StreamPanner")) {
1087 if ((prop = (*niter)->property (X_("type")))) {
1089 for (i = 0; pan_plugins[i].factory; ++i) {
1090 if (prop->value() == pan_plugins[i].name) {
1093 /* note that we assume that all the stream panners
1094 are of the same type. pretty good
1095 assumption, but its still an assumption.
1098 sp = pan_plugins[i].factory (*this);
1100 if (sp->set_state (**niter) == 0) {
1109 if (!pan_plugins[i].factory) {
1110 error << string_compose (_("Unknown panner plugin \"%1\" found in pan state - ignored"),
1116 error << _("panner plugin node has no type information!")
1130 Panner::touching () const
1132 for (vector<StreamPanner*>::const_iterator i = begin(); i != end(); ++i) {
1133 if ((*i)->automation().touching ()) {
1142 Panner::set_position (float xpos, StreamPanner& orig)
1148 orig.get_position (xnow);
1149 xdelta = xpos - xnow;
1151 if (_link_direction == SameDirection) {
1153 for (vector<StreamPanner*>::iterator i = begin(); i != end(); ++i) {
1155 (*i)->set_position (xpos, true);
1157 (*i)->get_position (xnow);
1158 xnew = min (1.0f, xnow + xdelta);
1159 xnew = max (0.0f, xnew);
1160 (*i)->set_position (xnew, true);
1166 for (vector<StreamPanner*>::iterator i = begin(); i != end(); ++i) {
1168 (*i)->set_position (xpos, true);
1170 (*i)->get_position (xnow);
1171 xnew = min (1.0f, xnow - xdelta);
1172 xnew = max (0.0f, xnew);
1173 (*i)->set_position (xnew, true);
1180 Panner::set_position (float xpos, float ypos, StreamPanner& orig)
1183 float xdelta, ydelta;
1186 orig.get_position (xnow, ynow);
1187 xdelta = xpos - xnow;
1188 ydelta = ypos - ynow;
1190 if (_link_direction == SameDirection) {
1192 for (vector<StreamPanner*>::iterator i = begin(); i != end(); ++i) {
1194 (*i)->set_position (xpos, ypos, true);
1196 (*i)->get_position (xnow, ynow);
1198 xnew = min (1.0f, xnow + xdelta);
1199 xnew = max (0.0f, xnew);
1201 ynew = min (1.0f, ynow + ydelta);
1202 ynew = max (0.0f, ynew);
1204 (*i)->set_position (xnew, ynew, true);
1210 for (vector<StreamPanner*>::iterator i = begin(); i != end(); ++i) {
1212 (*i)->set_position (xpos, ypos, true);
1214 (*i)->get_position (xnow, ynow);
1216 xnew = min (1.0f, xnow - xdelta);
1217 xnew = max (0.0f, xnew);
1219 ynew = min (1.0f, ynow - ydelta);
1220 ynew = max (0.0f, ynew);
1222 (*i)->set_position (xnew, ynew, true);
1229 Panner::set_position (float xpos, float ypos, float zpos, StreamPanner& orig)
1231 float xnow, ynow, znow;
1232 float xdelta, ydelta, zdelta;
1233 float xnew, ynew, znew;
1235 orig.get_position (xnow, ynow, znow);
1236 xdelta = xpos - xnow;
1237 ydelta = ypos - ynow;
1238 zdelta = zpos - znow;
1240 if (_link_direction == SameDirection) {
1242 for (vector<StreamPanner*>::iterator i = begin(); i != end(); ++i) {
1244 (*i)->set_position (xpos, ypos, zpos, true);
1246 (*i)->get_position (xnow, ynow, znow);
1248 xnew = min (1.0f, xnow + xdelta);
1249 xnew = max (0.0f, xnew);
1251 ynew = min (1.0f, ynow + ydelta);
1252 ynew = max (0.0f, ynew);
1254 znew = min (1.0f, znow + zdelta);
1255 znew = max (0.0f, znew);
1257 (*i)->set_position (xnew, ynew, znew, true);
1263 for (vector<StreamPanner*>::iterator i = begin(); i != end(); ++i) {
1265 (*i)->set_position (xpos, ypos, true);
1267 (*i)->get_position (xnow, ynow, znow);
1269 xnew = min (1.0f, xnow - xdelta);
1270 xnew = max (0.0f, xnew);
1272 ynew = min (1.0f, ynow - ydelta);
1273 ynew = max (0.0f, ynew);
1275 znew = min (1.0f, znow + zdelta);
1276 znew = max (0.0f, znew);
1278 (*i)->set_position (xnew, ynew, znew, true);