mirror of
https://github.com/LMMS/lmms.git
synced 2026-01-26 23:38:10 -05:00
f83aecf617
git-svn-id: https://lmms.svn.sf.net/svnroot/lmms/branches/lmms-mv@726 0778d3d1-df1d-0410-868b-ea421aaaa00d
162 lines
2.8 KiB
C++
162 lines
2.8 KiB
C++
/*
|
|
Pan.cc
|
|
|
|
Copyright 2002-7 Tim Goetze <tim@quitte.de>
|
|
|
|
http://quitte.de/dsp/
|
|
|
|
panorama with width control
|
|
|
|
*/
|
|
/*
|
|
This program 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.
|
|
|
|
This program 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 more 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., 59 Temple Place - Suite 330, Boston, MA
|
|
02111-1307, USA or point your web browser to http://www.gnu.org.
|
|
*/
|
|
|
|
#include "basics.h"
|
|
|
|
#include "Pan.h"
|
|
#include "Descriptor.h"
|
|
|
|
void
|
|
Pan::init()
|
|
{
|
|
delay.init ((int) (.040 * fs));
|
|
}
|
|
|
|
void
|
|
Pan::activate()
|
|
{
|
|
delay.reset();
|
|
tap.reset (400 / fs);
|
|
set_pan (*ports[1]);
|
|
}
|
|
|
|
inline void
|
|
Pan::set_pan (d_sample p)
|
|
{
|
|
pan = p;
|
|
|
|
double phi = (pan + 1) * M_PI * .25;
|
|
|
|
gain_l = cos (phi);
|
|
gain_r = sin (phi);
|
|
}
|
|
|
|
template <sample_func_t F>
|
|
void
|
|
Pan::one_cycle (int frames)
|
|
{
|
|
d_sample * s = ports[0];
|
|
|
|
if (pan != *ports[1])
|
|
set_pan (getport(1));
|
|
|
|
d_sample g = getport(2);
|
|
d_sample
|
|
width_l = g * gain_r,
|
|
width_r = g * gain_l;
|
|
|
|
tap.t = (int) (getport(3) * fs * .001);
|
|
|
|
bool mono = getport(4);
|
|
|
|
d_sample * dl = ports[5];
|
|
d_sample * dr = ports[6];
|
|
|
|
d_sample x, xt;
|
|
|
|
if (mono) for (int i = 0; i < frames; ++i)
|
|
{
|
|
x = s[i];
|
|
|
|
xt = tap.get (delay);
|
|
|
|
delay.put (x + normal);
|
|
|
|
x = (gain_l * x + gain_r * x + width_l * xt + width_r * xt) * .5;
|
|
|
|
F (dl, i, x, adding_gain);
|
|
F (dr, i, x, adding_gain);
|
|
|
|
normal = -normal;
|
|
}
|
|
else for (int i = 0; i < frames; ++i)
|
|
{
|
|
x = s[i];
|
|
|
|
xt = tap.get (delay);
|
|
|
|
delay.put (x + normal);
|
|
|
|
F (dl, i, gain_l * x + width_l * xt, adding_gain);
|
|
F (dr, i, gain_r * x + width_r * xt, adding_gain);
|
|
|
|
normal = -normal;
|
|
}
|
|
}
|
|
|
|
/* //////////////////////////////////////////////////////////////////////// */
|
|
|
|
PortInfo
|
|
Pan::port_info [] =
|
|
{
|
|
{
|
|
"in",
|
|
INPUT | AUDIO,
|
|
{0}
|
|
}, {
|
|
"pan",
|
|
INPUT | CONTROL,
|
|
{BOUNDED | DEFAULT_0, -1, 1}
|
|
}, {
|
|
"width",
|
|
INPUT | CONTROL,
|
|
{BOUNDED | DEFAULT_0, 0, 1}
|
|
}, {
|
|
"t",
|
|
INPUT | CONTROL,
|
|
{BOUNDED | DEFAULT_LOW, 0.1, 40}
|
|
}, {
|
|
"mono",
|
|
INPUT | CONTROL,
|
|
{BOUNDED | DEFAULT_0 | INTEGER | TOGGLE, 0, 1}
|
|
}, {
|
|
"out:l",
|
|
OUTPUT | AUDIO,
|
|
{0}
|
|
}, {
|
|
"out:r",
|
|
OUTPUT | AUDIO,
|
|
{0}
|
|
}
|
|
};
|
|
|
|
template <> void
|
|
Descriptor<Pan>::setup()
|
|
{
|
|
UniqueID = 1788;
|
|
Label = "Pan";
|
|
Properties = HARD_RT;
|
|
|
|
Name = CAPS "Pan - Pan and width";
|
|
Maker = "Tim Goetze <tim@quitte.de>";
|
|
Copyright = "GPL, 2004-7";
|
|
|
|
/* fill port info and vtable */
|
|
autogen();
|
|
}
|
|
|