Skip to content

Commit

Permalink
glide2~
Browse files Browse the repository at this point in the history
  • Loading branch information
@porres
porres committed Aug 5, 2023
1 parent c0eb0f1 commit 6838314
Show file tree
Hide file tree
Showing 2 changed files with 203 additions and 145 deletions.
214 changes: 132 additions & 82 deletions Code_source/Compiled/signal/glide2~.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,21 +4,21 @@
#include "math.h"

typedef struct _glide2{
t_object x_obj;
t_object x_obj;
t_inlet *x_inlet_ms_up;
t_inlet *x_inlet_ms_down;
t_float x_in;
int x_n_up;
int x_nleft_up;
int x_n_down;
int x_nleft_down;
int x_reset;
float x_last_in;
float x_last_out;
float x_sr_khz;
float x_delta;
float x_start;
float x_exp;
int *x_n_up;
int *x_nleft_up;
int *x_n_down;
int *x_nleft_down;
int x_reset;
int x_nchans;
float *x_last_in;
float *x_last_out;
float *x_start;
float *x_delta;
float x_sr_khz;
float x_exp;
}t_glide2;

static t_class *glide2_class;
Expand All @@ -31,17 +31,17 @@ static void glide2_reset(t_glide2 *x){
x->x_reset = 1;
}

static float glide2_get_step(t_glide2 *x, int n, int nleft){
static float glide2_get_step(t_glide2 *x, int n, int nleft, int j){
float step = (float)(n-nleft)/(float)n;
if(fabs(x->x_exp) != 1){ // EXPONENTIAL
if(x->x_exp >= 0){ // positive exponential
if(x->x_delta > 0)
if(x->x_delta[j] > 0)
step = pow(step, x->x_exp);
else
step = 1-pow(1-step, x->x_exp);
}
else{ // negative exponential
if(x->x_delta > 0)
if(x->x_delta[j] > 0)
step = 1-pow(1-step, -x->x_exp);
else
step = pow(step, -x->x_exp);
Expand All @@ -53,91 +53,141 @@ static float glide2_get_step(t_glide2 *x, int n, int nleft){
static t_int *glide2_perform(t_int *w){
t_glide2 *x = (t_glide2 *)(w[1]);
int n = (int)(w[2]);
t_float *in1 = (t_float *)(w[3]);
t_float *in2 = (t_float *)(w[4]);
t_float *in3 = (t_float *)(w[5]);
t_float *out = (t_float *)(w[6]);
float last_in = x->x_last_in;
float last_out = x->x_last_out;
float start = x->x_start;
while(n--){
t_float in = *in1++;
t_float ms_up = *in2++;
t_float ms_down = *in3++;
if(ms_up <= 0)
ms_up = 0;
if(ms_down <= 0)
ms_down = 0;
x->x_n_up = (int)roundf(ms_up * x->x_sr_khz) + 1; // n samples
x->x_n_down = (int)roundf(ms_down * x->x_sr_khz) + 1; // n samples
if(x->x_reset){ // reset
x->x_nleft_up = x->x_nleft_down = 0;
x->x_reset = 0;
*out++ = last_out = last_in = in;
}
else if(in != last_in){ // input change, update
start = last_out;
x->x_delta = (in - last_out);
if(x->x_delta > 0){
x->x_nleft_up = x->x_n_up - 1;
float step = glide2_get_step(x, x->x_n_up, x->x_nleft_up);
float inc = step * x->x_delta;
*out++ = last_out = (last_out + inc);
last_in = in;
}
else{
x->x_nleft_down = x->x_n_down - 1;
float step = glide2_get_step(x, x->x_n_down, x->x_nleft_down);
float inc = step * x->x_delta;
*out++ = last_out = (last_out + inc);
last_in = in;
int ch2 = (int)(w[3]);
int ch3 = (int)(w[4]);
t_float *in1 = (t_float *)(w[5]);
t_float *in2 = (t_float *)(w[6]);
t_float *in3 = (t_float *)(w[7]);
t_float *out = (t_float *)(w[8]);
float *last_in = x->x_last_in;
float *last_out = x->x_last_out;
float *start = x->x_start;
for(int j = 0; j < x->x_nchans; j++){
for(int i = 0; i < n; i++){
t_float in = in1[j*n + i];
t_float ms_up = ch2 == 1 ? in2[i] : in2[j*n + i];
t_float ms_down = ch3 == 1 ? in3[i] : in3[j*n + i];
if(ms_up <= 0)
ms_up = 0;
if(ms_down <= 0)
ms_down = 0;
x->x_n_up[j] = (int)roundf(ms_up * x->x_sr_khz) + 1; // n samples
x->x_n_down[j] = (int)roundf(ms_down * x->x_sr_khz) + 1; // n samples
if(x->x_reset){ // reset
x->x_nleft_up[j] = x->x_nleft_down[j] = 0;
out[j*n + i] = last_out[j] = last_in[j] = in;
if(j == (x->x_nchans - 1))
x->x_reset = 0;
}
}
else{
if(x->x_delta > 0){
if(x->x_nleft_up > 0){
x->x_nleft_up--;
float step = glide2_get_step(x, x->x_n_up, x->x_nleft_up);
float inc = step * x->x_delta;
*out++ = last_out = (start + inc);
else if(in != last_in[j]){ // input change, update
start[j] = last_out[j];
x->x_delta[j] = (in - last_out[j]);
if(x->x_delta[j] > 0){
x->x_nleft_up[j] = x->x_n_up[j] - 1;
float step = glide2_get_step(x, x->x_n_up[j], x->x_nleft_up[j], j);
float inc = step * x->x_delta[j];
out[j*n + i] = last_out[j] = (last_out[j] + inc);
last_in[j] = in;
}
else{
x->x_nleft_down[j] = x->x_n_down[j] - 1;
float step = glide2_get_step(x, x->x_n_down[j], x->x_nleft_down[j], j);
float inc = step * x->x_delta[j];
out[j*n + i] = last_out[j] = (last_out[j] + inc);
last_in[j] = in;
}
else
*out++ = last_out = last_in = in;
}
else{
if(x->x_nleft_down > 0){
x->x_nleft_down--;
float step = glide2_get_step(x, x->x_n_down, x->x_nleft_down);
float inc = step * x->x_delta;
*out++ = last_out = (start + inc);
if(x->x_delta[j] > 0){
if(x->x_nleft_up[j] > 0){
x->x_nleft_up[j]--;
float step = glide2_get_step(x, x->x_n_up[j], x->x_nleft_up[j], j);
float inc = step * x->x_delta[j];
out[j*n + i] = last_out[j] = (start[j] + inc);
}
else
out[j*n + i] = last_out[j] = last_in[j] = in;
}
else{
if(x->x_nleft_down[j] > 0){
x->x_nleft_down[j]--;
float step = glide2_get_step(x, x->x_n_down[j], x->x_nleft_down[j], j);
float inc = step * x->x_delta[j];
out[j*n + i] = last_out[j] = (start[j] + inc);
}
else
out[j*n + i] = last_out[j] = last_in[j] = in;
}
else
*out++ = last_out = last_in = in;
}
}

};
};
x->x_start = start;
x->x_last_in = last_in;
x->x_last_out = last_out;
return(w+7);
return(w+9);
}

static void glide2_dsp(t_glide2 *x, t_signal **sp){
x->x_sr_khz = sp[0]->s_sr * 0.001;
dsp_add(glide2_perform, 6, x, sp[0]->s_n, sp[0]->s_vec,
int chs = sp[0]->s_nchans, ch2 = sp[1]->s_nchans, ch3 = sp[2]->s_nchans, n = sp[0]->s_n;
signal_setmultiout(&sp[3], chs);
if(x->x_nchans != chs){
x->x_n_up = (int *)resizebytes(x->x_n_up,
x->x_nchans * sizeof(int), chs * sizeof(int));
x->x_n_down = (int *)resizebytes(x->x_n_down,
x->x_nchans * sizeof(int), chs * sizeof(int));
x->x_nleft_up = (int *)resizebytes(x->x_nleft_up,
x->x_nchans * sizeof(int), chs * sizeof(int));
x->x_nleft_down = (int *)resizebytes(x->x_nleft_down,
x->x_nchans * sizeof(int), chs * sizeof(int));
x->x_last_in = (t_float *)resizebytes(x->x_last_in,
x->x_nchans * sizeof(t_float), chs * sizeof(t_float));
x->x_last_out = (t_float *)resizebytes(x->x_last_out,
x->x_nchans * sizeof(t_float), chs * sizeof(t_float));
x->x_start = (t_float *)resizebytes(x->x_start,
x->x_nchans * sizeof(t_float), chs * sizeof(t_float));
x->x_delta = (t_float *)resizebytes(x->x_delta,
x->x_nchans * sizeof(t_float), chs * sizeof(t_float));
x->x_nchans = chs;
}
if((ch2 > 1 && ch2 != x->x_nchans) || (ch3 > 1 && ch3 != x->x_nchans)){
dsp_add_zero(sp[3]->s_vec, chs*n);
pd_error(x, "[glide2~]: channel sizes mismatch");
}
else
dsp_add(glide2_perform, 8, x, n, ch2, ch3, sp[0]->s_vec,
sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec);
}

static void *glide2_free(t_glide2 *x){
inlet_free(x->x_inlet_ms_up);
inlet_free(x->x_inlet_ms_down);
freebytes(x->x_n_up, x->x_nchans * sizeof(*x->x_n_up));
freebytes(x->x_n_down, x->x_nchans * sizeof(*x->x_n_down));
freebytes(x->x_nleft_up, x->x_nchans * sizeof(*x->x_nleft_up));
freebytes(x->x_nleft_down, x->x_nchans * sizeof(*x->x_nleft_down));
freebytes(x->x_last_in, x->x_nchans * sizeof(*x->x_last_in));
freebytes(x->x_last_out, x->x_nchans * sizeof(*x->x_last_out));
freebytes(x->x_start, x->x_nchans * sizeof(*x->x_start));
freebytes(x->x_delta, x->x_nchans * sizeof(*x->x_delta));
return(void *)x;
}

static void *glide2_new(t_symbol *s, int ac, t_atom *av){
t_glide2 *x = (t_glide2 *)pd_new(glide2_class);
s = NULL;
float ms_up = 0;
float ms_down = 0;
x->x_n_up = (int *)getbytes(sizeof(*x->x_n_up));
x->x_n_down = (int *)getbytes(sizeof(*x->x_n_down));
x->x_nleft_up = (int *)getbytes(sizeof(*x->x_nleft_up));
x->x_nleft_down = (int *)getbytes(sizeof(*x->x_nleft_down));
x->x_last_in = (t_float *)getbytes(sizeof(*x->x_last_in));
x->x_last_out = (t_float *)getbytes(sizeof(*x->x_last_out));
x->x_start = (t_float *)getbytes(sizeof(*x->x_start));
x->x_delta = (t_float *)getbytes(sizeof(*x->x_delta));
x->x_sr_khz = sys_getsr() * 0.001;
x->x_last_in = 0.;
x->x_reset = x->x_nleft_up = 0;
x->x_reset = 0;
x->x_exp = 1.;
float ms_up = 0, ms_down = 0.;
int argnum = 0;
while(ac > 0){
if(av->a_type == A_FLOAT){
Expand Down Expand Up @@ -183,9 +233,9 @@ static void *glide2_new(t_symbol *s, int ac, t_atom *av){
}

void glide2_tilde_setup(void){
glide2_class = class_new(gensym("glide2~"), (t_newmethod)glide2_new, 0,
sizeof(t_glide2), 0, A_GIMME, 0);
CLASS_MAINSIGNALIN(glide2_class, t_glide2, x_in);
glide2_class = class_new(gensym("glide2~"), (t_newmethod)glide2_new,
(t_method)glide2_free, sizeof(t_glide2), CLASS_MULTICHANNEL, A_GIMME, 0);
class_addmethod(glide2_class, nullfn, gensym("signal"), 0);
class_addmethod(glide2_class, (t_method) glide2_dsp, gensym("dsp"), A_CANT, 0);
class_addmethod(glide2_class, (t_method)glide2_reset, gensym("reset"), 0);
class_addmethod(glide2_class, (t_method)glide2_exp, gensym("exp"), A_FLOAT, 0);
Expand Down
Loading

0 comments on commit 6838314

Please sign in to comment.