From 420ada2dde4af8d71bc1d9c6988311961cf47f1b Mon Sep 17 00:00:00 2001
From: daniel aschauer <aschix@users.sourceforge.net>
Date: Fri, 9 Jan 2009 17:23:55 +0000
Subject: svn path=/trunk/externals/algocomp/; revision=10494

---
 utils.c | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100755 utils.c

(limited to 'utils.c')

diff --git a/utils.c b/utils.c
new file mode 100755
index 0000000..0def480
--- /dev/null
+++ b/utils.c
@@ -0,0 +1,59 @@
+/*
+* Utilites to be used for algorithmic composition
+*/
+
+#include "m_pd.h"
+#include <math.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+static t_class *map_class;
+
+/*
+ * linear mapping
+ */
+typedef struct _map {
+  t_object  x_obj;
+  t_float x;
+  t_float min1,min2,max1,max2;
+  t_float scale,translate;
+  t_outlet *mapped_out;
+} t_map;
+
+void map_list(t_map *x,t_symbol *s, int argc, t_atom *argv)
+{
+	int i;
+	float out;
+	x->scale = (x->max2 - x->min2)/(x->max1 - x->min1);
+	for (i=0;i<argc;i++) {
+	out = (atom_getfloat(&argv[i]) - x->min1)*x->scale+x->min1+x->translate;
+	SETFLOAT(&argv[i],out);
+}
+	outlet_list(x->mapped_out, &s_list, argc, argv);
+}
+
+
+void map_float(t_map *x,t_floatarg f)
+{
+float out;
+x->scale = (x->max2 - x->min2)/(x->max1 - x->min1);
+x->translate = x->min2 - x->min1;
+out = (f-x->min1)*x->scale+x->min1+x->translate;
+outlet_float(x->mapped_out, out);
+}
+
+void *map_new(t_floatarg min1, t_floatarg max1, t_floatarg min2,t_floatarg max2)
+{
+  t_map *x = (t_map *)pd_new(map_class);
+  x->min1 = min1;
+  x->min2 = min2;
+  x->max1 = max1;
+  x->max2 = max2;
+  
+  x->scale = (max2 - min2)/(max1 - min1);
+  x->translate = min2 - min1;
+  x->mapped_out = outlet_new(&x->x_obj,&s_float);
+  floatinlet_new(&x->x_obj, &x->min2);
+  floatinlet_new(&x->x_obj, &x->max2);
+  return (void *)x;
+}
-- 
cgit v1.2.1