cleaned up buildsrc and unfiltered sections and turned them into libdirs; made 'pan' libdir and cleaned up source dir for easy makefile install rules; created 'deprecated' libdir and moved cruft there

svn path=/trunk/externals/hcs/; revision=5529

1 files changed, 0 insertions, 109 deletions

diff --git a/pan_gogins~.c b/pan_gogins~.c
deleted file mode 100644
index 3bef226..0000000
--- a/pan_gogins~.c
+++ /dev/null
@@ -1,109 +0,0 @@
-/*************************************************************************** 
- * 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);  
-}