1 files changed, 74 insertions, 0 deletions
diff --git a/positive.c b/positive.c
new file mode 100755
index 0000000..5d00fa4
--- /dev/null
+++ b/positive.c
@@ -0,0 +1,74 @@
+/*
+ * positive - wraps floats back into positive numbers from negative
+ * Copyright (c) 2005, Dr Edward Kelly <morph_2016@yahoo.co.uk>
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without modification, 
+ * are permitted provided that the following conditions are met:
+ * 
+ * Redistributions of source code must retain the above copyright notice, 
+ * this list of conditions and the following disclaimer.
+ * 
+ * Redistributions in binary form must reproduce the above copyright notice, this list 
+ * of conditions and the following disclaimer in the documentation and/or other materials 
+ * 
+ * provided with the distribution.
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY 
+ * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT 
+ * SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, 
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 
+ * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "m_pd.h"
+
+t_class *positive_class;
+
+typedef struct _positive
+{
+  t_object x_obj;
+  t_float value;
+  t_outlet *positive;
+} t_positive;
+
+void positive_float(t_positive *y, t_floatarg f)
+{
+	y->value = f;
+	if(y->value < 0)
+	{
+		int i = (int)y->value;
+		i = i * -1 + 1;
+		y->value += (float)i;
+	}
+	outlet_float(y->positive, y->value);
+}
+
+void positive_bang(t_positive *y)
+{
+    outlet_float(y->positive, y->value);
+}
+
+void *positive_new(t_floatarg f)
+{
+  t_positive *y = (t_positive *)pd_new(positive_class);
+  y->value = f;
+  y->positive = outlet_new(&y->x_obj, gensym("float"));
+  return(void *)y;
+}
+
+void positive_setup(void) 
+{
+  positive_class = class_new(gensym("positive"),
+  (t_newmethod)positive_new,
+  0, sizeof(t_positive),
+			       0, A_DEFFLOAT, 0);
+  post("positive always returns a positive value");
+  post("negative values are shifted up");
+
+  class_addbang(positive_class, positive_bang);
+  class_addfloat(positive_class, positive_float);
+}