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/minimum.c | 88 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 88 insertions(+)
 create mode 100644 cyclone/hammer/minimum.c

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

diff --git a/cyclone/hammer/minimum.c b/cyclone/hammer/minimum.c
new file mode 100644
index 0000000..466b6f8
--- /dev/null
+++ b/cyclone/hammer/minimum.c
@@ -0,0 +1,88 @@
+/* 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 "m_pd.h"
+#include "common/loud.h"
+
+typedef struct _minimum
+{
+    t_object  x_ob;
+    t_float   x_last;
+    t_float   x_test;
+} t_minimum;
+
+static t_class *minimum_class;
+
+static void minimum_bang(t_minimum *x)
+{
+    outlet_float(((t_object *)x)->ob_outlet, x->x_last);
+}
+
+static void minimum_float(t_minimum *x, t_float f)
+{
+    outlet_float(((t_object *)x)->ob_outlet,
+		 x->x_last = (f < x->x_test ? f : x->x_test));
+}
+
+static void minimum_list(t_minimum *x, t_symbol *s, int ac, t_atom *av)
+{
+    if (ac > 256) loud_incompatible_max(*(t_pd *)x, 256, "items");
+    while (ac && av->a_type != A_FLOAT) ac--, av++;  /* CHECKME (a warning?) */
+    if (ac)
+    {
+	t_float fpick = av->a_w.w_float;
+	ac--; av++;
+	while (ac && av->a_type != A_FLOAT) ac--, av++;  /* CHECKME */
+	if (ac)
+	{
+	    t_float fnext, f = av->a_w.w_float;
+	    if (f < fpick)
+	    {
+		fnext = fpick;
+		fpick = f;
+	    }
+	    else fnext = f;
+	    ac--; av++;
+	    while (ac--)
+	    {
+		if (av->a_type == A_FLOAT)
+		{
+		    f = av->a_w.w_float;
+		    if (f < fpick)
+		    {
+			fnext = fpick;
+			fpick = f;
+		    }
+		    else if (f < fnext) fnext = f;
+		}
+		/* CHECKME else */
+		av++;
+	    }
+	    x->x_test = fnext;
+	    outlet_float(((t_object *)x)->ob_outlet, x->x_last = fpick);
+	}
+	else minimum_float(x, fpick);  /* CHECKME */
+    }
+    /* CHECKME else */
+}
+
+static void *minimum_new(t_floatarg f)
+{
+    t_minimum *x = (t_minimum *)pd_new(minimum_class);
+    x->x_last = 0;  /* CHECKME */
+    x->x_test = f;
+    floatinlet_new((t_object *)x, &x->x_test);
+    outlet_new((t_object *)x, &s_float);
+    return (x);
+}
+
+void minimum_setup(void)
+{
+    minimum_class = class_new(gensym("minimum"),
+			      (t_newmethod)minimum_new, 0,
+			      sizeof(t_minimum), 0, A_DEFFLOAT, 0);
+    class_addbang(minimum_class, minimum_bang);
+    class_addfloat(minimum_class, minimum_float);
+    class_addlist(minimum_class, minimum_list);
+}
-- 
cgit v1.2.1