svn path=/trunk/externals/algocomp/; revision=10494svn2git-root

1 files changed, 59 insertions, 0 deletions

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;

+}