aboutsummaryrefslogtreecommitdiff
path: root/pan_gogins~.c
diff options
context:
space:
mode:
authorHans-Christoph Steiner <eighthave@users.sourceforge.net>2003-04-01 05:31:03 +0000
committerHans-Christoph Steiner <eighthave@users.sourceforge.net>2003-04-01 05:31:03 +0000
commit3476906c5f949c393083a262060ac00d5e01054b (patch)
tree7ac033515d7f88f54813ff6cdefbc32bb1e6cecd /pan_gogins~.c
Marco Scoffier modified Iain Mott's code to implement Michael Gogins' algorithm.svn2git-root
svn path=/trunk/externals/hcs/; revision=518
Diffstat (limited to 'pan_gogins~.c')
-rw-r--r--pan_gogins~.c109
1 files changed, 109 insertions, 0 deletions
diff --git a/pan_gogins~.c b/pan_gogins~.c
new file mode 100644
index 0000000..3bef226
--- /dev/null
+++ b/pan_gogins~.c
@@ -0,0 +1,109 @@
+/***************************************************************************
+ * File: pan_gogins~.c (a quick hack of pan~.c)
+ * Auth: Marco Scoffier [marco@metm.org] modified code by
+ * Iain Mott [iain.mott@bigpond.com]
+ * Maintainer (of pan~.c) : Iain Mott [iain.mott@bigpond.com]
+ * Date: March 2003
+ *
+ * Description: Pd signal external. Stereo panning implementing an
+ * algorithm concieved by Michael Gogins and described at
+ * http://www.csounds.com/ezine/autumn1999/beginners/
+ * Angle input specified in degrees. -45 left, 0 centre, 45 right.
+ * See supporting Pd patch: pan_gogins~.pd
+ *
+ * Copyright (C) 2001 by Iain Mott [iain.mott@bigpond.com]
+ *
+ * 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, 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, which should be included with this
+ * program, for more details.
+ *
+ ****************************************************************************/
+
+
+#include "m_pd.h"
+#include <math.h>
+
+static t_class *pan_gogins_class;
+#define RADCONST 0.017453293
+#define ROOT2DIV2 0.707106781
+// PHASECONST = pi - pi/2
+// as per http://www.csounds.com/ezine/autumn1999/beginners/
+#define PHASECONST 1.570796327
+
+typedef struct _pan_gogins
+{
+ t_object x_obj;
+ float x_f;
+ float pan;
+ float left;
+ float right;
+} t_pan_gogins;
+
+static void *pan_gogins_new(t_symbol *s, int argc, t_atom *argv)
+{
+ t_pan_gogins *x = (t_pan_gogins *)pd_new(pan_gogins_class);
+ outlet_new(&x->x_obj, gensym("signal"));
+ outlet_new(&x->x_obj, gensym("signal"));
+ inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("panf"));
+
+ x->x_f = 0;
+ x->left = ROOT2DIV2;
+ x->right = ROOT2DIV2;
+ return (x);
+}
+
+static t_int *pan_gogins_perform(t_int *w)
+{
+ float *in1 = (t_float *)(w[1]);
+ float *out1 = (t_float *)(w[2]);
+ float *out2 = (t_float *)(w[3]);
+ int n = (int)(w[4]);
+ t_pan_gogins *x = (t_pan_gogins *)(w[5]);
+ float value;
+ while (n--)
+ {
+ value = *in1++;
+ *out1++ = value * x->left;
+ *out2++ = value * x->right;
+ }
+ return (w+6);
+}
+
+static void pan_gogins_dsp(t_pan_gogins *x, t_signal **sp)
+{
+ int n = sp[0]->s_n;
+ float *in1 = sp[0]->s_vec;
+ float *out1 = sp[1]->s_vec;
+ float *out2 = sp[2]->s_vec;
+
+ dsp_add(pan_gogins_perform, 5,
+ in1, out1, out2, n, x);
+}
+
+void pan_gogins_f(t_pan_gogins *x, t_floatarg f)
+{
+ double angle;
+ f = f < -45 ? -45 : f;
+ f = f > 45 ? 45 : f;
+ angle = f * RADCONST * PHASECONST; // convert degrees to radians
+ x->right = ROOT2DIV2 * (cos(angle) + sin(angle));
+ x->left = ROOT2DIV2 * (cos(angle) - sin(angle));
+/* post("left = %f : right = %f", x->left, x->right); */
+}
+
+void pan_gogins_tilde_setup(void)
+{
+ pan_gogins_class = class_new(gensym("pan_gogins~"), (t_newmethod)pan_gogins_new, 0,
+ sizeof(t_pan_gogins), 0, A_GIMME, 0);
+ class_addmethod(pan_gogins_class, nullfn, gensym("signal"), 0);
+
+ class_addmethod(pan_gogins_class, (t_method)pan_gogins_dsp, gensym("dsp"), 0);
+ class_addmethod(pan_gogins_class, (t_method)pan_gogins_f, gensym("panf"), A_FLOAT, 0);
+}