From 086e6b358ad45bda0e6a948cfb7ea2d33ab7da5a Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Wed, 10 Feb 2010 00:34:05 +0000
Subject: re-arranged into libdir and setup with the template Makefile+debian
 stuff. renabled vv+ and vv- as vvplus and vvminus

svn path=/trunk/externals/smlib/; revision=13158
---
 vthreshold.c | 106 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 106 insertions(+)
 create mode 100644 vthreshold.c

(limited to 'vthreshold.c')

diff --git a/vthreshold.c b/vthreshold.c
new file mode 100644
index 0000000..106cf72
--- /dev/null
+++ b/vthreshold.c
@@ -0,0 +1,106 @@
+/* --------------------- vthreshold ----------------------------- */
+
+#include "defines.h"
+#include "memory.h"
+
+static t_class *vthreshold_class;
+
+typedef struct _vthreshold
+{
+    t_object x_obj;
+    t_outlet *x_outlet1;    	/* bang out for high thresh */
+    t_outlet *x_outlet2;    	/* bang out for low thresh */
+    int *x_state;    			/* 1 = high, 0 = low */
+	int x_n;
+    float x_hithresh;	    	/* value of high vthreshold */
+    float x_lothresh;	    	/* value of low vthreshold */
+    float x_hideadtime;	    	/* hi dead */
+    float x_lodeadtime;	    	/* lo dead */
+} t_vthreshold;
+
+    /* "set" message to specify vthresholds and dead times */
+static void vthreshold_set(t_vthreshold *x,
+    t_floatarg hithresh, t_floatarg hideadtime,
+    t_floatarg lothresh, t_floatarg lodeadtime,
+	t_floatarg nf)
+{
+    if (lothresh > hithresh)
+    	lothresh = hithresh;
+    x->x_hithresh = hithresh;
+    x->x_hideadtime = hideadtime;
+    x->x_lothresh = lothresh;
+    x->x_lodeadtime = lodeadtime;
+    freebytes(x->x_state,x->x_n);
+	x->x_n=(int)nf;
+    x->x_state = (int *)getbytes(sizeof(int)*x->x_n);
+	memset(x->x_state , 0, x->x_n);
+}
+
+static t_vthreshold *vthreshold_new(t_floatarg hithresh,
+    t_floatarg hideadtime, t_floatarg lothresh, t_floatarg lodeadtime, t_floatarg n)
+{
+    t_vthreshold *x = (t_vthreshold *)
+    	pd_new(vthreshold_class);
+    x->x_state = 0;		/* low state */
+    x->x_outlet1 = outlet_new(&x->x_obj, gensym("float"));
+    x->x_outlet2 = outlet_new(&x->x_obj, gensym("float"));
+    vthreshold_set(x, hithresh, hideadtime, lothresh, lodeadtime, n);
+    return (x);
+}
+
+static void vthreshold_free(t_vthreshold *x)
+{
+	freebytes(x->x_state,x->x_n);
+}
+
+static void vthreshold_perform(t_vthreshold *x, t_symbol *s, int argc, t_atom *argv)
+{
+	int i;
+	int *state;
+
+	state=x->x_state;
+	if (argc>x->x_n) argc=x->x_n;
+	for (i=0;i<argc;i++)
+	{
+		float f;
+		f=atom_getfloat(argv++);
+
+		if (*state<0)
+		{
+			if (f>x->x_hithresh)
+			{
+				outlet_float(x->x_outlet1, (float)i); // on
+				*state=1;
+			}
+		}
+		else 
+		{
+			if (f<x->x_lothresh)
+			{
+				outlet_float(x->x_outlet2, (float)i); // off
+				*state=-1;
+			}
+		}
+		state++;
+	}
+}
+
+
+static void vthreshold_ff(t_vthreshold *x)
+{
+    freebytes(x->x_state,x->x_n);
+}
+
+void vthreshold_setup( void)
+{
+    vthreshold_class = class_new(gensym("vthreshold"),
+    	(t_newmethod)vthreshold_new, (t_method)vthreshold_free,
+	sizeof(t_vthreshold), 0,
+	    A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
+
+    class_addlist(vthreshold_class, (t_method)vthreshold_perform);   
+	class_addmethod(vthreshold_class, (t_method)vthreshold_set,
+    	gensym("set"), A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0);
+//    class_addmethod(vthreshold_class, (t_method)vthreshold_ft1,
+//    	gensym("ft1"), A_FLOAT, 0);
+}
-- 
cgit v1.2.1