diff options
author | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2005-06-02 18:25:00 +0000 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2005-06-02 18:25:00 +0000 |
commit | 0c9b89b1018eb7760708ee5b080cd96846861328 (patch) | |
tree | f43a2b20292bba90931fe84e67aca8fb0013a984 /src/iemlib2/transf_fader.c | |
parent | d56ec9d039c904e9230137254ff2fe281320eed9 (diff) |
updated to release-1.16
svn path=/trunk/externals/iemlib/; revision=3102
Diffstat (limited to 'src/iemlib2/transf_fader.c')
-rw-r--r-- | src/iemlib2/transf_fader.c | 307 |
1 files changed, 154 insertions, 153 deletions
diff --git a/src/iemlib2/transf_fader.c b/src/iemlib2/transf_fader.c index e2988d6..33e8666 100644 --- a/src/iemlib2/transf_fader.c +++ b/src/iemlib2/transf_fader.c @@ -1,153 +1,154 @@ -/* 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")); -} +/* 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 - 2005 */
+
+#ifdef NT
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+
+#include "m_pd.h"
+#include "iemlib.h"
+#include <stdio.h>
+#include <string.h>
+
+
+/* ------------------------ transf_fader ----------------------- */
+/* -- this loopkup tabel objekt makes a 2-point interpolation -- */
+/* --------- between the pairs of determinating points --------- */
+
+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"));
+}
|