1 files changed, 53 insertions, 0 deletions
diff --git a/bangfilt2.c b/bangfilt2.c
new file mode 100644
index 0000000..9dd6c8c
--- /dev/null
+++ b/bangfilt2.c
@@ -0,0 +1,53 @@
+/* bangfilter: = % x plus sel 0
+ * spaeter: % x plus sel y mit 2 arguments
+ */
+#include "m_pd.h"
+#include <math.h>
+
+static t_class *bfilt2_class;
+
+typedef struct _bfilt2
+{
+    t_object x_obj;
+    t_float x_f1;
+    t_float x_f2;
+} t_bfilt2;
+
+static void *bfilt2_new(t_floatarg f)
+{
+    t_bfilt2 *x = (t_bfilt2 *)pd_new(bfilt2_class);
+    outlet_new(&x->x_obj, &s_bang);
+    floatinlet_new(&x->x_obj, &x->x_f2);
+    x->x_f1 = 0;
+    x->x_f2 = f;
+    return (x);
+}
+
+static void bfilt2_bang(t_bfilt2 *x)
+{
+    int n2 = x->x_f2, result;
+    if (n2 < 0) n2 = -n2;
+    else if (!n2) n2 = 1;
+    x->x_f1++;
+    result = ((int)(x->x_f1)) % n2;
+    if (result == 0) //result += n2;
+      {
+	outlet_bang(x->x_obj.ob_outlet);
+      }
+	//outlet_float(x->x_obj.ob_outlet, (t_float)result);
+}
+
+static void bfilt2_float(t_bfilt2 *x, t_float f)
+{
+  x->x_f1 = f;
+  bfilt2_bang(x);
+}
+
+
+void bfilt2_setup()
+{
+    bfilt2_class = class_new(gensym("bfilt2"), (t_newmethod)bfilt2_new, 0,
+    	sizeof(t_bfilt2), 0, A_DEFFLOAT, 0);
+    class_addbang(bfilt2_class, bfilt2_bang);
+    class_addfloat(bfilt2_class, (t_method)bfilt2_float);
+}