From 577ac6e80ff4f436fbd054291ed7dddbc31bd49a Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 18 May 2004 21:33:33 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r1738, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/externals/iemlib/; revision=1739
---
 src/iemlib2/transf_fader.c | 153 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 153 insertions(+)
 create mode 100644 src/iemlib2/transf_fader.c

(limited to 'src/iemlib2/transf_fader.c')

diff --git a/src/iemlib2/transf_fader.c b/src/iemlib2/transf_fader.c
new file mode 100644
index 0000000..e2988d6
--- /dev/null
+++ b/src/iemlib2/transf_fader.c
@@ -0,0 +1,153 @@
+/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
+* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
+
+iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
+
+#ifdef NT
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+
+#include "m_pd.h"
+#include "iemlib.h"
+#include <math.h>
+#include <stdio.h>
+#include <string.h>
+
+
+/* -------------------------- transf_fader ------------------------------ */
+
+typedef struct _transf_fader
+{
+	t_object	x_obj;
+	int				x_size;
+	int				x_message;
+	float			*x_array;
+} t_transf_fader;
+
+static t_class *transf_fader_class;
+
+static void transf_fader_pairs(t_transf_fader *x, t_symbol *s, int argc, t_atom *argv)
+{
+	if(argc >= 4)
+	{
+		int i, j, k, ac=argc/2;
+		int n=1000;
+		int i_prev=0;
+		int first=1;
+		int i_delta;
+		float val_delta;
+		float delta;
+		float val_prev=0.0f;
+		float val=0.0f;
+		float *vec=x->x_array;
+		float fad_in, fad_out;
+
+		for(j=0; j<n; j++)
+		{
+			vec[j] = -123456.0f;
+		}
+
+		for(j=0; j<ac; j++)
+		{
+			fad_in = atom_getfloat(argv++);
+			while(fad_in < 0.0f)
+				fad_in = 0.0f;
+			while(fad_in > 1000.0f)
+				fad_in = 1000.0f;
+
+			fad_out = atom_getfloat(argv++);
+			while(fad_out < -123455.0f)
+				fad_out = -123455.0f;
+
+			i = (int)fad_in;
+			vec[i] = fad_out;
+		}
+
+		for(j=0; j<n; j++)
+		{
+			if(vec[j] > -123456.0f)
+			{
+				if(first)
+				{
+					first = 0;
+					i_prev = j;
+					val_prev = vec[j];
+				}
+				else
+				{
+					i = j;
+					val = vec[j];
+					i_delta = i - i_prev;
+					val_delta = val - val_prev;
+					if(i_delta > 1)
+					{
+						delta = val_delta / (float)i_delta;
+						for(k=i_prev+1; k<i; k++)
+						{
+							vec[k] = val_prev + delta*(float)(k - i_prev);
+						}
+					}
+					i_prev = i;
+					val_prev = val;
+				}
+			}
+		}
+	}
+	else
+	{
+		if(x->x_message)
+			post("transf_fader-ERROR: less than 2 pairs make no sense");
+	}
+}
+
+static void transf_fader_float(t_transf_fader *x, t_floatarg fad_in)
+{
+	float fad_out;
+	float *vec=x->x_array;
+	float fract;
+	int i;
+
+	while(fad_in < 0.0f)
+		fad_in = 0.0f;
+	while(fad_in > 999.0f)
+		fad_in = 999.0f;
+
+	i = (int)fad_in;
+	fract = fad_in - (float)i;
+	fad_out = vec[i] + fract*(vec[i+1] - vec[i]);
+	if(fad_out > -123455.0f)
+		outlet_float(x->x_obj.ob_outlet, fad_out);
+}
+
+static void transf_fader_free(t_transf_fader *x)
+{
+	freebytes(x->x_array, x->x_size * sizeof(float));
+}
+
+static void *transf_fader_new(t_symbol *s, int argc, t_atom *argv)
+{
+	t_transf_fader *x = (t_transf_fader *)pd_new(transf_fader_class);
+	int i, n;
+
+	x->x_size = 1001;
+	x->x_message = 0;
+	x->x_array = (float *)getbytes(x->x_size * sizeof(float));
+	n = x->x_size;
+	for(i=0; i<n; i++)
+		x->x_array[i] = -123456.0f;
+	transf_fader_pairs(x, gensym("pairs"), argc, argv);
+	x->x_message = 1;
+	outlet_new(&x->x_obj, &s_float);
+	return (x);
+}
+
+void transf_fader_setup(void)
+{
+	transf_fader_class = class_new(gensym("transf_fader"), (t_newmethod)transf_fader_new, (t_method)transf_fader_free,
+				   sizeof(t_transf_fader), 0, A_GIMME, 0);
+	class_addfloat(transf_fader_class, (t_method)transf_fader_float);
+	class_addmethod(transf_fader_class, (t_method)transf_fader_pairs, gensym("pairs"), A_GIMME, 0);
+	class_sethelpsymbol(transf_fader_class, gensym("iemhelp/help-transf_fader"));
+}
-- 
cgit v1.2.1