*** empty log message ***

svn path=/trunk/externals/ekext/; revision=8753

2 files changed, 0 insertions, 419 deletions

diff --git a/maskxor/maskxor-old.c b/maskxor/maskxor-old.c
deleted file mode 100644
index f94e8e1..0000000
--- a/maskxor/maskxor-old.c
+++ /dev/null
@@ -1,210 +0,0 @@
-#include "m_pd.h"
-#include <math.h>
-#define MAXENTRIES 512
-
-static t_class *maskxor_class;
-
-typedef struct _mask
-{
-  t_atom maskxor[MAXENTRIES];
-  t_atom maskl[MAXENTRIES];
-  t_atom maskr[MAXENTRIES];
-} t_mask;
-
-typedef struct _maskxor
-{
-  t_object x_obj;
-  t_mask masking;
-  t_float total, suml, sumr, mode, lengthr;
-  t_float f_in, yes;
-  t_outlet *thru, *bool, *mask;
-} t_maskxor;
-
-void maskxor_float(t_maskxor *x, t_floatarg fin)
-{
-  int input = fin > 0 ? fin < MAXENTRIES ? (int)fin : MAXENTRIES : 0;
-  if(x->mode == 0)
-    {
-      x->f_in = fin;
-      x->yes = atom_getfloatarg(input, MAXENTRIES, x->masking.maskxor);
-      outlet_float(x->bool, x->yes);
-      if(x->yes != 0)
-	{
-	  outlet_float(x->thru, x->f_in);
-	}
-    }
-  else if(x->sumr>x->suml)
-    {
-      x->f_in = fin;
-      x->yes = atom_getfloatarg(input, MAXENTRIES, x->masking.maskxor);
-      outlet_float(x->bool, x->yes);
-      if(x->yes != 0)
-	{
-	  outlet_float(x->thru, x->f_in);
-	}
-    }
-}
-
-void maskxor_bang(t_maskxor *x, t_symbol *s)
-{
-  outlet_list(x->mask, &s_list, x->total, x->masking.maskxor);
-  outlet_float(x->bool, x->yes);
-  if(x->yes != 0)
-    {
-      outlet_float(x->thru, x->f_in);
-    }
-}
-
-void maskxor_listl(t_maskxor *x, t_symbol *s, int argc, t_atom *argv)
-{
-  int i;
-  x->suml = 0;
-  float listr_element, listl_element, xor_element;
-  if(x->total < argc && argc < MAXENTRIES) 
-    {
-      x->total = argc;
-    }
-  if((float)argc < x->lengthr) 
-    {
-      for(i=argc;i<x->lengthr;i++) SETFLOAT(&x->masking.maskl[i], 0);
-    }
-  for(i=0;i<x->total;i++)
-    {
-      listl_element = atom_getfloat(argv+i);
-      SETFLOAT(&x->masking.maskl[i], listl_element);
-      if(listl_element != 0) 
-	{
-	  x->suml++;
-	}
-      if(i>=x->lengthr) 
-	{
-	  listr_element = 0;
-	}
-      else 
-	{
-	  listr_element = atom_getfloatarg(i,MAXENTRIES,x->masking.maskr);
-	}
-      xor_element = (float)((int)listl_element ^ (int)listr_element);
-      SETFLOAT(&x->masking.maskxor[i], xor_element);
-    }
-  outlet_list(x->mask, &s_list, x->total, x->masking.maskxor);
-}
-
-void maskxor_listr(t_maskxor *x, t_symbol *s, int argc, t_atom *argv)
-{
-  int i;
-  x->sumr = 0;
-  x->lengthr = (float)argc;
-  float listr_element;
-  if(x->total < argc && argc < MAXENTRIES) 
-    {
-      x->total = argc;
-    }
-  for(i=0;i<x->total;i++)
-    {
-      if(i>=argc) 
-	{
-	  listr_element = 0;
-	}
-      else listr_element = atom_getfloat(argv+i);
-      SETFLOAT(&x->masking.maskr[i], listr_element);
-      if(listr_element != 0) 
-	{
-	  x->sumr++;
-	}
-    }
-}
-
-void maskxor_mode(t_maskxor *x, t_symbol *s, t_floatarg fmode)
-{
-  x->mode = fmode;
-  //  post("mode = %d", x->mode);
-  post("mode = %d", fmode);
-}
-
-void maskxor_clear(t_maskxor *x)
-{
-  int i;
-  for(i=0;i<=MAXENTRIES;i++)
-    {
-      SETFLOAT(&x->masking.maskl[i], 0);
-      SETFLOAT(&x->masking.maskr[i], 0);
-      SETFLOAT(&x->masking.maskxor[i], 0);
-    }
-  x->total=1;
-  x->yes = x->f_in = 0;
-}
-
-void maskxor_print(t_maskxor *x)
-{
-  float le0, le1, le2, le3, le4, le5, le6, le7, le8;
-  float re0, re1, re2, re3, re4, re5, re6, re7, re8;
-  float xe0, xe1, xe2, xe3, xe4, xe5, xe6, xe7, xe8;
-  le0 = atom_getfloatarg(0, MAXENTRIES, x->masking.maskl);
-  le1 = atom_getfloatarg(1, MAXENTRIES, x->masking.maskl);
-  le2 = atom_getfloatarg(2, MAXENTRIES, x->masking.maskl);
-  le3 = atom_getfloatarg(3, MAXENTRIES, x->masking.maskl);
-  le4 = atom_getfloatarg(4, MAXENTRIES, x->masking.maskl);
-  le5 = atom_getfloatarg(5, MAXENTRIES, x->masking.maskl);
-  le6 = atom_getfloatarg(6, MAXENTRIES, x->masking.maskl);
-  le7 = atom_getfloatarg(7, MAXENTRIES, x->masking.maskl);
-  le8 = atom_getfloatarg(8, MAXENTRIES, x->masking.maskl);
-  re0 = atom_getfloatarg(0, MAXENTRIES, x->masking.maskr);
-  re1 = atom_getfloatarg(1, MAXENTRIES, x->masking.maskr);
-  re2 = atom_getfloatarg(2, MAXENTRIES, x->masking.maskr);
-  re3 = atom_getfloatarg(3, MAXENTRIES, x->masking.maskr);
-  re4 = atom_getfloatarg(4, MAXENTRIES, x->masking.maskr);
-  re5 = atom_getfloatarg(5, MAXENTRIES, x->masking.maskr);
-  re6 = atom_getfloatarg(6, MAXENTRIES, x->masking.maskr);
-  re7 = atom_getfloatarg(7, MAXENTRIES, x->masking.maskr);
-  re8 = atom_getfloatarg(8, MAXENTRIES, x->masking.maskr);
-  xe0 = atom_getfloatarg(0, MAXENTRIES, x->masking.maskxor);
-  xe1 = atom_getfloatarg(1, MAXENTRIES, x->masking.maskxor);
-  xe2 = atom_getfloatarg(2, MAXENTRIES, x->masking.maskxor);
-  xe3 = atom_getfloatarg(3, MAXENTRIES, x->masking.maskxor);
-  xe4 = atom_getfloatarg(4, MAXENTRIES, x->masking.maskxor);
-  xe5 = atom_getfloatarg(5, MAXENTRIES, x->masking.maskxor);
-  xe6 = atom_getfloatarg(6, MAXENTRIES, x->masking.maskxor);
-  xe7 = atom_getfloatarg(7, MAXENTRIES, x->masking.maskxor);
-  xe8 = atom_getfloatarg(8, MAXENTRIES, x->masking.maskxor);
-  post("right mask = %d, %d, %d, %d, %d, %d, %d, %d, %d", re0, re1, re2, re3, re4, re5, re6, re7, re8);
-  post(" left mask = %d, %d, %d, %d, %d, %d, %d, %d, %d", le0, le1, le2, le3, le4, le5, le6, le7, le8);
-  post("  xor mask = %d, %d, %d, %d, %d, %d, %d, %d, %d", xe0, xe1, xe2, xe3, xe4, xe5, xe6, xe7, xe8);
-}
-
-void *maskxor_new(t_symbol *s, t_floatarg fmode)
-{
-  int i;
-  t_maskxor *x = (t_maskxor *)pd_new(maskxor_class);
-  x->total = 1;
-  x->mode = fmode != 0 ? 1 : 0;
-  for(i=0;i<MAXENTRIES;i++)
-    {
-      SETFLOAT(&x->masking.maskr[i], 0);
-      SETFLOAT(&x->masking.maskl[i], 0);
-      SETFLOAT(&x->masking.maskxor[i], 0);
-    }
-  x->thru = outlet_new(&x->x_obj, &s_float);
-  x->bool = outlet_new(&x->x_obj, &s_float);
-  x->mask = outlet_new(&x->x_obj, &s_list);
-  return (void *)x;
-}
-
-void maskxor_setup(void) 
-{
-  maskxor_class = class_new(gensym("maskxor"),
-  (t_newmethod)maskxor_new,
-  0, sizeof(t_maskxor),
-  CLASS_DEFAULT, A_DEFFLOAT, 0);
-  post("|..-.--.-..-maskxor.-...--.-..|");
-  post("|    exclusive-or mask-map    |");
-  post("|.--.- Edward Kelly 2006 ---.-|");
-  class_sethelpsymbol(maskxor_class, gensym("help-maskxor"));
-  class_addfloat(maskxor_class, maskxor_float);
-  class_addmethod(maskxor_class, (t_method)maskxor_listl, gensym("listl"), A_GIMME, 0, 0);
-  class_addmethod(maskxor_class, (t_method)maskxor_listr, gensym("listr"), A_GIMME, 0, 0);
-  class_addbang(maskxor_class, (t_method)maskxor_bang);
-  class_addmethod(maskxor_class, (t_method)maskxor_mode, gensym("mode"), A_DEFFLOAT, 0);
-  class_addmethod(maskxor_class, (t_method)maskxor_clear, gensym("clear"), A_DEFFLOAT, 0);
-  class_addmethod(maskxor_class, (t_method)maskxor_print, gensym("print"), A_DEFFLOAT, 0);
-}
diff --git a/maskxor/workingsorta.c b/maskxor/workingsorta.c
deleted file mode 100644
index 8c40de3..0000000
--- a/maskxor/workingsorta.c
+++ /dev/null
@@ -1,209 +0,0 @@
-#include "m_pd.h"
-#include <math.h>
-#define MAXENTRIES 512
-
-static t_class *maskxor_class;
-
-typedef struct _mask
-{
-  t_atom maskxor[MAXENTRIES];
-  t_atom maskl[MAXENTRIES];
-  t_atom maskr[MAXENTRIES];
-} t_mask;
-
-typedef struct _maskxor
-{
-  t_object x_obj;
-  t_mask masking;
-  t_float total, suml, sumr, mode, lengthr;
-  t_float f_in, yes;
-  t_outlet *thru, *bool, *mask;
-} t_maskxor;
-
-void maskxor_float(t_maskxor *x, t_floatarg fin)
-{
-  int input = fin > 0 ? fin < MAXENTRIES ? (int)fin : MAXENTRIES : 0;
-  if(x->mode == 0)
-    {
-      x->f_in = fin;
-      x->yes = atom_getfloatarg(input, MAXENTRIES, x->masking.maskxor);
-      outlet_float(x->bool, x->yes);
-      if(x->yes != 0)
-	{
-	  outlet_float(x->thru, x->f_in);
-	}
-    }
-  else if(x->sumr>x->suml)
-    {
-      x->f_in = fin;
-      x->yes = atom_getfloatarg(input, MAXENTRIES, x->masking.maskxor);
-      outlet_float(x->bool, x->yes);
-      if(x->yes != 0)
-	{
-	  outlet_float(x->thru, x->f_in);
-	}
-    }
-}
-
-void maskxor_bang(t_maskxor *x, t_symbol *s)
-{
-  outlet_list(x->mask, &s_list, x->total, x->masking.maskxor);
-  outlet_float(x->bool, x->yes);
-  if(x->yes != 0)
-    {
-      outlet_float(x->thru, x->f_in);
-    }
-}
-
-void maskxor_listl(t_maskxor *x, t_symbol *s, int argc, t_atom *argv)
-{
-  int i;
-  x->suml = 0;
-  float listr_element, listl_element, xor_element;
-  if(x->total < argc && argc < MAXENTRIES) 
-    {
-      x->total = argc;
-    }
-  if((float)argc < x->lengthr) 
-    {
-      for(i=argc;i<x->lengthr;i++) SETFLOAT(&x->masking.maskl[i], 0);
-    }
-  for(i=0;i<x->total;i++)
-    {
-      listl_element = atom_getfloat(argv+i);
-      SETFLOAT(&x->masking.maskl[i], listl_element);
-      if(listl_element != 0) 
-	{
-	  x->suml++;
-	}
-      if(i>=x->lengthr) 
-	{
-	  listr_element = 0;
-	}
-      else 
-	{
-	  listr_element = atom_getfloatarg(i,MAXENTRIES,x->masking.maskr);
-	}
-      xor_element = (float)((int)listl_element ^ (int)listr_element);
-      SETFLOAT(&x->masking.maskxor[i], xor_element);
-    }
-  outlet_list(x->mask, &s_list, x->total, x->masking.maskxor);
-}
-
-void maskxor_listr(t_maskxor *x, t_symbol *s, int argc, t_atom *argv)
-{
-  int i;
-  x->sumr = 0;
-  x->lengthr = (float)argc;
-  float listr_element;
-  if(x->total < argc && argc < MAXENTRIES) 
-    {
-      x->total = argc;
-    }
-  for(i=0;i<x->total;i++)
-    {
-      if(i>=argc) 
-	{
-	  listr_element = 0;
-	}
-      else listr_element = atom_getfloat(argv+i);
-      SETFLOAT(&x->masking.maskr[i], listr_element);
-      if(listr_element != 0) 
-	{
-	  x->sumr++;
-	}
-    }
-}
-
-void maskxor_mode(t_maskxor *x, t_floatarg fmode)
-{
-  x->mode = fmode != 0 ? 1 : 0;
-  post("mode = %d", fmode);
-}
-
-void maskxor_clear(t_maskxor *x)
-{
-  int i;
-  for(i=0;i<=MAXENTRIES;i++)
-    {
-      SETFLOAT(&x->masking.maskl[i], 0);
-      SETFLOAT(&x->masking.maskr[i], 0);
-      SETFLOAT(&x->masking.maskxor[i], 0);
-    }
-  x->total=1;
-  x->yes = x->f_in = 0;
-}
-
-void maskxor_print(t_maskxor *x)
-{
-  float le0, le1, le2, le3, le4, le5, le6, le7, le8;
-  float re0, re1, re2, re3, re4, re5, re6, re7, re8;
-  float xe0, xe1, xe2, xe3, xe4, xe5, xe6, xe7, xe8;
-  le0 = atom_getfloatarg(0, MAXENTRIES, x->masking.maskl);
-  le1 = atom_getfloatarg(1, MAXENTRIES, x->masking.maskl);
-  le2 = atom_getfloatarg(2, MAXENTRIES, x->masking.maskl);
-  le3 = atom_getfloatarg(3, MAXENTRIES, x->masking.maskl);
-  le4 = atom_getfloatarg(4, MAXENTRIES, x->masking.maskl);
-  le5 = atom_getfloatarg(5, MAXENTRIES, x->masking.maskl);
-  le6 = atom_getfloatarg(6, MAXENTRIES, x->masking.maskl);
-  le7 = atom_getfloatarg(7, MAXENTRIES, x->masking.maskl);
-  le8 = atom_getfloatarg(8, MAXENTRIES, x->masking.maskl);
-  re0 = atom_getfloatarg(0, MAXENTRIES, x->masking.maskr);
-  re1 = atom_getfloatarg(1, MAXENTRIES, x->masking.maskr);
-  re2 = atom_getfloatarg(2, MAXENTRIES, x->masking.maskr);
-  re3 = atom_getfloatarg(3, MAXENTRIES, x->masking.maskr);
-  re4 = atom_getfloatarg(4, MAXENTRIES, x->masking.maskr);
-  re5 = atom_getfloatarg(5, MAXENTRIES, x->masking.maskr);
-  re6 = atom_getfloatarg(6, MAXENTRIES, x->masking.maskr);
-  re7 = atom_getfloatarg(7, MAXENTRIES, x->masking.maskr);
-  re8 = atom_getfloatarg(8, MAXENTRIES, x->masking.maskr);
-  xe0 = atom_getfloatarg(0, MAXENTRIES, x->masking.maskxor);
-  xe1 = atom_getfloatarg(1, MAXENTRIES, x->masking.maskxor);
-  xe2 = atom_getfloatarg(2, MAXENTRIES, x->masking.maskxor);
-  xe3 = atom_getfloatarg(3, MAXENTRIES, x->masking.maskxor);
-  xe4 = atom_getfloatarg(4, MAXENTRIES, x->masking.maskxor);
-  xe5 = atom_getfloatarg(5, MAXENTRIES, x->masking.maskxor);
-  xe6 = atom_getfloatarg(6, MAXENTRIES, x->masking.maskxor);
-  xe7 = atom_getfloatarg(7, MAXENTRIES, x->masking.maskxor);
-  xe8 = atom_getfloatarg(8, MAXENTRIES, x->masking.maskxor);
-  post("right mask = %d, %d, %d, %d, %d, %d, %d, %d, %d", re0, re1, re2, re3, re4, re5, re6, re7, re8);
-  post(" left mask = %d, %d, %d, %d, %d, %d, %d, %d, %d", le0, le1, le2, le3, le4, le5, le6, le7, le8);
-  post("  xor mask = %d, %d, %d, %d, %d, %d, %d, %d, %d", xe0, xe1, xe2, xe3, xe4, xe5, xe6, xe7, xe8);
-}
-
-void *maskxor_new(t_symbol *s, t_floatarg fmode)
-{
-  int i;
-  t_maskxor *x = (t_maskxor *)pd_new(maskxor_class);
-  x->total = 1;
-  x->mode = fmode == 1 ? 1 : 0;
-  for(i=0;i<MAXENTRIES;i++)
-    {
-      SETFLOAT(&x->masking.maskr[i], 0);
-      SETFLOAT(&x->masking.maskl[i], 0);
-      SETFLOAT(&x->masking.maskxor[i], 0);
-    }
-  x->thru = outlet_new(&x->x_obj, &s_float);
-  x->bool = outlet_new(&x->x_obj, &s_float);
-  x->mask = outlet_new(&x->x_obj, &s_list);
-  return (void *)x;
-}
-
-void maskxor_setup(void) 
-{
-  maskxor_class = class_new(gensym("maskxor"),
-  (t_newmethod)maskxor_new,
-  0, sizeof(t_maskxor),
-  CLASS_DEFAULT, A_DEFFLOAT, 0);
-  post("|..-.--.-..-maskxor.-...--.-..|");
-  post("|    exclusive-or mask-map    |");
-  post("|.--.- Edward Kelly 2006 ---.-|");
-  class_sethelpsymbol(maskxor_class, gensym("help-maskxor"));
-  class_addfloat(maskxor_class, maskxor_float);
-  class_addmethod(maskxor_class, (t_method)maskxor_listl, gensym("listl"), A_GIMME, 0, 0);
-  class_addmethod(maskxor_class, (t_method)maskxor_listr, gensym("listr"), A_GIMME, 0, 0);
-  class_addbang(maskxor_class, (t_method)maskxor_bang);
-  class_addmethod(maskxor_class, (t_method)maskxor_mode, gensym("mode"), A_DEFFLOAT, 0);
-  class_addmethod(maskxor_class, (t_method)maskxor_clear, gensym("clear"), A_DEFFLOAT, 0);
-  class_addmethod(maskxor_class, (t_method)maskxor_print, gensym("print"), A_DEFFLOAT, 0);
-}