diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2004-05-18 21:33:33 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2004-05-18 21:33:33 +0000 |
commit | 577ac6e80ff4f436fbd054291ed7dddbc31bd49a (patch) | |
tree | 6ec69b216dda68d7de38a5eba1851b9d4f1431e6 /src/iemlib2/transf_fader.c |
This commit was generated by cvs2svn to compensate for changes in r1738,svn2git-root
which included commits to RCS files with non-trunk default branches.
svn path=/trunk/externals/iemlib/; revision=1739
Diffstat (limited to 'src/iemlib2/transf_fader.c')
-rw-r--r-- | src/iemlib2/transf_fader.c | 153 |
1 files changed, 153 insertions, 0 deletions
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")); +} |