1 files changed, 103 insertions, 0 deletions
diff --git a/cyclone/hammer/Histo.c b/cyclone/hammer/Histo.c
new file mode 100644
index 0000000..efb0deb
--- /dev/null
+++ b/cyclone/hammer/Histo.c
@@ -0,0 +1,103 @@
+/* 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.  */
+
+/* This is an entirely rewritten version of Joseph A. Sarlo's code.
+   The most important changes are listed in "pd-lib-notes.txt" file.  */
+
+#include "m_pd.h"
+#include "common/loud.h"
+
+#define HISTO_DEFSIZE  128
+
+typedef struct _Histo
+{
+    t_object   x_ob;
+    int        x_size;
+    unsigned  *x_hist;  /* LATER consider using 64 bits */
+    int        x_lastinput;
+    t_outlet  *x_countout;
+} t_Histo;
+
+static t_class *Histo_class;
+
+static void Histo_clear(t_Histo *x)
+{
+    int i = x->x_size;
+    while (i--) x->x_hist[i] = 0;
+    /* CHECKED: last input is kept */
+}
+
+static void Histo_doit(t_Histo *x, int val, int doincr)
+{
+    if (val >= 0 && val < x->x_size)
+    {
+	if (doincr)
+	{
+	    /* CHECKED: only in-range numbers are stored */
+	    x->x_lastinput = val;
+	    x->x_hist[val]++;
+	}
+	outlet_float(x->x_countout, x->x_hist[val]);
+	/* CHECKED: out-of-range numbers are never passed thru */
+	outlet_float(((t_object *)x)->ob_outlet, val);
+    }
+}
+
+static void Histo_bang(t_Histo *x)
+{
+    Histo_doit(x, x->x_lastinput, 0);
+}
+
+static void Histo_float(t_Histo *x, t_floatarg f)
+{
+    int i;
+    if (loud_checkint((t_pd *)x, f, &i, &s_float))  /* CHECKED */
+	Histo_doit(x, i, 1);
+}
+
+static void Histo_ft1(t_Histo *x, t_floatarg f)
+{
+    /* CHECKED: floats are accepted in second inlet (truncated) */
+    Histo_doit(x, (int)f, 0);
+}
+
+static void Histo_free(t_Histo *x)
+{
+    if (x->x_hist)
+	freebytes(x->x_hist, x->x_size * sizeof(*x->x_hist));
+}
+
+static void *Histo_new(t_floatarg f)
+{
+    t_Histo *x;
+    int size = (int)f;
+    unsigned *hist;
+    if (size < 1)  /* CHECKED: 1 is allowed */
+	size = HISTO_DEFSIZE;
+    if (!(hist = (unsigned *)getbytes(size * sizeof(*hist))))
+	return (0);
+    x = (t_Histo *)pd_new(Histo_class);
+    x->x_size = size;
+    x->x_hist = hist;
+    x->x_lastinput = 0;
+    inlet_new((t_object *)x, (t_pd *)x, &s_float, gensym("ft1"));
+    outlet_new((t_object *)x, &s_float);
+    x->x_countout = outlet_new((t_object *)x, &s_float);
+    Histo_clear(x);
+    return (x);
+}
+
+void Histo_setup(void)
+{
+    Histo_class = class_new(gensym("Histo"),
+			    (t_newmethod)Histo_new,
+			    (t_method)Histo_free,
+			    sizeof(t_Histo), 0, A_DEFFLOAT, 0);
+    class_addbang(Histo_class, Histo_bang);
+    class_addfloat(Histo_class, Histo_float);
+    class_addmethod(Histo_class, (t_method)Histo_ft1,
+		    gensym("ft1"), A_FLOAT, 0);
+    class_addmethod(Histo_class, (t_method)Histo_clear,
+		    gensym("clear"), 0);
+}