From faada59567f8cb252f4a909116595ce309ff5828 Mon Sep 17 00:00:00 2001
From: "N.N." <krzyszcz@users.sourceforge.net>
Date: Fri, 23 May 2003 12:29:55 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r647, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/externals/miXed/; revision=648
---
 cyclone/hammer/thresh.c | 134 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 134 insertions(+)
 create mode 100644 cyclone/hammer/thresh.c

(limited to 'cyclone/hammer/thresh.c')

diff --git a/cyclone/hammer/thresh.c b/cyclone/hammer/thresh.c
new file mode 100644
index 0000000..6890dcc
--- /dev/null
+++ b/cyclone/hammer/thresh.c
@@ -0,0 +1,134 @@
+/* Copyright (c) 2002-2003 krzYszcz and others.
+ * For information on usage and redistribution, and for a DISCLAIMER OF ALL
+ * WARRANTIES, see the file, "LICENSE.txt," in this distribution.  */
+
+#include <string.h>
+#include "m_pd.h"
+#include "common/grow.h"
+
+#define THRESH_INISIZE    32  /* LATER rethink */
+#define THRESH_MAXSIZE   256
+#define THRESH_DEFTHRESH  10
+
+typedef struct _thresh
+{
+    t_object   x_ob;
+    t_float    x_thresh;
+    int        x_size;    /* as allocated */
+    int        x_natoms;  /* as used */
+    t_atom    *x_message;
+    t_atom     x_messini[THRESH_INISIZE];
+    t_clock   *x_clock;
+} t_thresh;
+
+static t_class *thresh_class;
+
+static void thresh_tick(t_thresh *x)
+{
+    int ac = x->x_natoms;
+    if (ac)
+    {
+	t_atom *av = x->x_message;
+	if (av->a_type == A_FLOAT)  /* redundant, but we might need it LATER */
+	{
+	    if (ac > 1)
+		outlet_list(((t_object *)x)->ob_outlet, &s_list, ac, av);
+	    else
+		outlet_float(((t_object *)x)->ob_outlet, av->a_w.w_float);
+	}
+	x->x_natoms = 0;
+    }
+}
+
+static void thresh_anything(t_thresh *x, t_symbol *s, int ac, t_atom *av)
+{
+    int ntotal = x->x_natoms + ac;
+    t_atom *buf;
+    clock_unset(x->x_clock);
+    if (s == &s_) s = 0;
+    if (s)
+	ntotal++;
+    if (ntotal > x->x_size)
+    {
+	/* LATER if (ntotal > THRESH_MAXSIZE)... (cf prepend) */
+	int nrequested = ntotal;
+	x->x_message = grow_withdata(&nrequested, &x->x_natoms,
+				     &x->x_size, x->x_message,
+				     THRESH_INISIZE, x->x_messini,
+				     sizeof(*x->x_message));
+	if (nrequested != ntotal)
+	{
+	    x->x_natoms = 0;
+	    if (ac >= x->x_size)
+		ac = (s ? x->x_size - 1 : x->x_size);
+	}
+    }
+    buf = x->x_message + x->x_natoms;
+    if (s)
+    {
+	SETSYMBOL(buf, s);
+	buf++;
+	x->x_natoms++;
+    }
+    if (ac)
+    {
+	memcpy(buf, av, ac * sizeof(*buf));
+	x->x_natoms += ac;
+    }
+    clock_delay(x->x_clock, x->x_thresh);
+}
+
+static void thresh_float(t_thresh *x, t_float f)
+{
+    t_atom at;
+    SETFLOAT(&at, f);
+    thresh_anything(x, 0, 1, &at);
+}
+
+static void thresh_list(t_thresh *x, t_symbol *s, int ac, t_atom *av)
+{
+    thresh_anything(x, 0, ac, av);
+}
+
+static void thresh_ft1(t_thresh *x, t_floatarg f)
+{
+    if (f < 0)
+	f = 0;  /* CHECKED */
+    x->x_thresh = f;
+    /* CHECKED: no rearming */
+}
+
+static void thresh_free(t_thresh *x)
+{
+    if (x->x_message != x->x_messini)
+	freebytes(x->x_message, x->x_size * sizeof(*x->x_message));
+    if (x->x_clock)
+	clock_free(x->x_clock);
+}
+
+static void *thresh_new(t_floatarg f)
+{
+    t_thresh *x = (t_thresh *)pd_new(thresh_class);
+    x->x_thresh = (f > 0 ? f : THRESH_DEFTHRESH);
+    x->x_size = THRESH_INISIZE;
+    x->x_natoms = 0;
+    x->x_message = x->x_messini;
+    inlet_new((t_object *)x, (t_pd *)x, &s_float, gensym("ft1"));
+    outlet_new((t_object *)x, &s_list);  /* LATER rethink: list or float */
+    x->x_clock = clock_new(x, (t_method)thresh_tick);
+    return (x);
+}
+
+void thresh_setup(void)
+{
+    thresh_class = class_new(gensym("thresh"),
+			     (t_newmethod)thresh_new,
+			     (t_method)thresh_free,
+			     sizeof(t_thresh), 0,
+			     A_DEFFLOAT, 0);
+    class_addfloat(thresh_class, thresh_float);
+    class_addlist(thresh_class, thresh_list);
+    class_addmethod(thresh_class, (t_method)thresh_ft1,
+		    gensym("ft1"), A_FLOAT, 0);
+    /* CHECKED: thresh: doesn't understand bang, symbol, anything */
+}
-- 
cgit v1.2.1