diff options
Diffstat (limited to 'samplebox~.c')
| -rw-r--r-- | samplebox~.c | 520 |
1 files changed, 294 insertions, 226 deletions
diff --git a/samplebox~.c b/samplebox~.c index f937faf..ea8bb65 100644 --- a/samplebox~.c +++ b/samplebox~.c @@ -82,83 +82,107 @@ typedef struct _samplebox } t_samplebox;
- /* clean up */
-static void samplebox_free(t_samplebox *x)
+/* clean up */
+static void samplebox_free(t_samplebox *x)
{
- if ( x->x_rdata != NULL ) {
- freebytes(x->x_rdata, x->x_size*x->x_blocksize*sizeof(float) );
- post( "Freed %d bytes", x->x_size*x->x_blocksize*sizeof(float) );
- x->x_rdata = NULL;
+ if ( x->x_rdata != NULL )
+ {
+ freebytes(x->x_rdata, x->x_size*x->x_blocksize*sizeof(float) );
+ post( "Freed %d bytes", x->x_size*x->x_blocksize*sizeof(float) );
+ x->x_rdata = NULL;
}
- if ( x->x_idata != NULL ) {
- freebytes(x->x_idata, x->x_size*x->x_blocksize*sizeof(float) );
- post( "Freed %d bytes", x->x_size*x->x_blocksize*sizeof(float) );
- x->x_idata = NULL;
+ if ( x->x_idata != NULL )
+ {
+ freebytes(x->x_idata, x->x_size*x->x_blocksize*sizeof(float) );
+ post( "Freed %d bytes", x->x_size*x->x_blocksize*sizeof(float) );
+ x->x_idata = NULL;
}
- if ( x->x_rootsquares != NULL ) {
- freebytes(x->x_rootsquares, x->x_size*sizeof(float) );
- post( "Freed %d bytes", x->x_size*sizeof(float) );
- x->x_rootsquares = NULL;
+ if ( x->x_rootsquares != NULL )
+ {
+ freebytes(x->x_rootsquares, x->x_size*sizeof(float) );
+ post( "Freed %d bytes", x->x_size*sizeof(float) );
+ x->x_rootsquares = NULL;
}
}
- /* allocate tables for storing sound */
+/* allocate tables for storing sound */
static t_int samplebox_allocate(t_samplebox *x)
{
- if ( !(x->x_rdata = getbytes( x->x_size*x->x_blocksize*sizeof(float) ) ) ) {
- return -1;
- } else {
- post( "samplebox~ : allocated %d bytes", x->x_size*x->x_blocksize*sizeof(float) );
+ if ( !(x->x_rdata = getbytes( x->x_size*x->x_blocksize*sizeof(float) ) ) )
+ {
+ return -1;
}
- if ( !(x->x_idata = getbytes( x->x_size*x->x_blocksize*sizeof(float) ) ) ) {
- return -1;
- } else {
- post( "samplebox~ : allocated %d bytes", x->x_size*x->x_blocksize*sizeof(float) );
+ else
+ {
+ post( "samplebox~ : allocated %d bytes", x->x_size*x->x_blocksize*sizeof(float) );
}
- if ( !(x->x_rootsquares = getbytes( x->x_size*sizeof(float) ) ) ) {
- return -1;
- } else {
- post( "samplebox~ : allocated %d bytes", x->x_size*sizeof(float) );
+ if ( !(x->x_idata = getbytes( x->x_size*x->x_blocksize*sizeof(float) ) ) )
+ {
+ return -1;
+ }
+ else
+ {
+ post( "samplebox~ : allocated %d bytes", x->x_size*x->x_blocksize*sizeof(float) );
+ }
+ if ( !(x->x_rootsquares = getbytes( x->x_size*sizeof(float) ) ) )
+ {
+ return -1;
+ }
+ else
+ {
+ post( "samplebox~ : allocated %d bytes", x->x_size*sizeof(float) );
}
return 0;
}
- /* reallocate tables for storing sound */
+/* reallocate tables for storing sound */
static t_int samplebox_reallocate(t_samplebox *x, t_int ioldsize, t_int inewsize)
{
- t_float *prdata=x->x_rdata, *pidata=x->x_idata, *prootsquares=x->x_rootsquares;
+ t_float *prdata=x->x_rdata, *pidata=x->x_idata, *prootsquares=x->x_rootsquares;
- if ( !(x->x_rdata = getbytes( inewsize*x->x_blocksize*sizeof(float) ) ) ) {
- return -1;
- } else {
- post( "samplebox~ : allocated %d bytes", inewsize*x->x_blocksize*sizeof(float) );
+ if ( !(x->x_rdata = getbytes( inewsize*x->x_blocksize*sizeof(float) ) ) )
+ {
+ return -1;
+ }
+ else
+ {
+ post( "samplebox~ : allocated %d bytes", inewsize*x->x_blocksize*sizeof(float) );
}
- if ( !(x->x_idata = getbytes( inewsize*x->x_blocksize*sizeof(float) ) ) ) {
- return -1;
- } else {
- post( "samplebox~ : allocated %d bytes", inewsize*x->x_blocksize*sizeof(float) );
+ if ( !(x->x_idata = getbytes( inewsize*x->x_blocksize*sizeof(float) ) ) )
+ {
+ return -1;
}
- if ( !(x->x_rootsquares = getbytes( inewsize*sizeof(float) ) ) ) {
- return -1;
- } else {
- post( "samplebox~ : allocated %d bytes", inewsize*sizeof(float) );
+ else
+ {
+ post( "samplebox~ : allocated %d bytes", inewsize*x->x_blocksize*sizeof(float) );
}
- if ( prdata != NULL ) {
- freebytes(prdata, ioldsize*x->x_blocksize*sizeof(float) );
- post( "Freed %d bytes", ioldsize*x->x_blocksize*sizeof(float) );
+ if ( !(x->x_rootsquares = getbytes( inewsize*sizeof(float) ) ) )
+ {
+ return -1;
}
- if ( pidata != NULL ) {
- freebytes(pidata, ioldsize*x->x_blocksize*sizeof(float) );
- post( "Freed %d bytes", ioldsize*x->x_blocksize*sizeof(float) );
+ else
+ {
+ post( "samplebox~ : allocated %d bytes", inewsize*sizeof(float) );
}
- if ( prootsquares != NULL ) {
- freebytes(prootsquares, ioldsize*sizeof(float) );
- post( "Freed %d bytes", ioldsize*sizeof(float) );
+ if ( prdata != NULL )
+ {
+ freebytes(prdata, ioldsize*x->x_blocksize*sizeof(float) );
+ post( "Freed %d bytes", ioldsize*x->x_blocksize*sizeof(float) );
+ }
+ if ( pidata != NULL )
+ {
+ freebytes(pidata, ioldsize*x->x_blocksize*sizeof(float) );
+ post( "Freed %d bytes", ioldsize*x->x_blocksize*sizeof(float) );
+ }
+ if ( prootsquares != NULL )
+ {
+ freebytes(prootsquares, ioldsize*sizeof(float) );
+ post( "Freed %d bytes", ioldsize*sizeof(float) );
}
return 0;
}
- /* records or playback the sonogram */
+/* records or playback the sonogram */
static t_int *samplebox_perform(t_int *w)
{
t_float *rin = (t_float *)(w[1]);
@@ -175,13 +199,14 @@ static t_int *samplebox_perform(t_int *w) t_float z[4];
// reallocate tables if blocksize has been changed
- if ( n != x->x_blocksize ) {
- post( "samplebox~ : reallocating tables" );
- x->x_allocate = 1;
- samplebox_free(x);
- x->x_blocksize = n;
- samplebox_allocate(x);
- x->x_allocate = 0;
+ if ( n != x->x_blocksize )
+ {
+ post( "samplebox~ : reallocating tables" );
+ x->x_allocate = 1;
+ samplebox_free(x);
+ x->x_blocksize = n;
+ samplebox_allocate(x);
+ x->x_allocate = 0;
}
// new block : energy is set to zero
@@ -189,103 +214,122 @@ static t_int *samplebox_perform(t_int *w) // *(x->x_rootsquares+x->x_writepos) = 0.0;
// }
- if ( x->x_play || x->x_record ) {
- bi = 0;
- while (bi<n) {
- // eventually records input
- if ( !x->x_allocate && x->x_record) {
- *(x->x_rdata+(x->x_writepos*x->x_blocksize)+bi)=*rin;
- *(x->x_idata+(x->x_writepos*x->x_blocksize)+bi)=*iin;
- // *(x->x_rootsquares+x->x_writepos) += sqrt( pow((*rin),2) + pow((*iin),2) );
+ if ( x->x_play || x->x_record )
+ {
+ bi = 0;
+ while (bi<n)
+ {
+ // eventually records input
+ if ( !x->x_allocate && x->x_record)
+ {
+ *(x->x_rdata+(x->x_writepos*x->x_blocksize)+bi)=*rin;
+ *(x->x_idata+(x->x_writepos*x->x_blocksize)+bi)=*iin;
+ // *(x->x_rootsquares+x->x_writepos) += sqrt( pow((*rin),2) + pow((*iin),2) );
+ }
+ // set outputs
+ if ( !x->x_allocate && x->x_play)
+ {
+ *rout = 0.;
+ *iout = 0.;
+ // interpolates 4 points like tabread4
+ rpoint = ((int)x->x_readpos*x->x_blocksize)+bi;
+
+ if ( rpoint == 0 )
+ {
+ v[0]=0.0;
+ v[1]=*(x->x_rdata+rpoint);
+ v[2]=*(x->x_rdata+rpoint+1);
+ v[3]=*(x->x_rdata+rpoint+2);
+ z[0]=0.0;
+ z[1]=*(x->x_idata+rpoint);
+ z[2]=*(x->x_idata+rpoint+1);
+ z[3]=*(x->x_idata+rpoint+2);
+ }
+ else if ( rpoint == (x->x_size*x->x_blocksize-1) )
+ {
+ v[0]=*(x->x_rdata+rpoint-1);
+ v[1]=*(x->x_rdata+rpoint);
+ v[2]=*(x->x_rdata+rpoint+1);
+ v[3]=0.0;
+ z[0]=*(x->x_idata+rpoint-1);
+ z[1]=*(x->x_idata+rpoint);
+ z[2]=*(x->x_idata+rpoint+1);
+ z[3]=0.0;
+ }
+ else if ( rpoint == (x->x_size*x->x_blocksize) )
+ {
+ v[0]=*(x->x_rdata+rpoint-1);
+ v[1]=*(x->x_rdata+rpoint);
+ v[2]=0.0;
+ v[3]=0.0;
+ z[0]=*(x->x_idata+rpoint-1);
+ z[1]=*(x->x_idata+rpoint);
+ z[2]=0.0;
+ z[3]=0.0;
+ }
+ else
+ {
+ v[0]=*(x->x_rdata+rpoint-1);
+ v[1]=*(x->x_rdata+rpoint);
+ v[2]=*(x->x_rdata+rpoint+1);
+ v[3]=*(x->x_rdata+rpoint+2);
+ z[0]=*(x->x_idata+rpoint-1);
+ z[1]=*(x->x_idata+rpoint);
+ z[2]=*(x->x_idata+rpoint+1);
+ z[3]=*(x->x_idata+rpoint+2);
+ }
+
+ {
+ t_float frac = rpoint-(int)rpoint;
+
+ // taken from tabread4_tilde
+ *rout = v[1]+frac*((v[2]-v[1])-0.5f*(frac-1.)*((v[0]-v[3]+3.0f*(v[2]-v[1]))*frac+(2.0f*v[1]-v[0]-v[2])));
+ *iout = z[1]+frac*((z[2]-z[1])-0.5f*(frac-1.)*((z[0]-z[3]+3.0f*(z[2]-z[1]))*frac+(2.0f*z[1]-z[0]-z[2])));
+ }
+
+ // add phase argument
+ fspectrum = sqrt( pow( *rout, 2) + pow( *iout, 2) );
+ fphase = atan2( *iout, *rout );
+ fphase += (x->x_phase/180.0)*(M_PI);
+ *rout = fspectrum*cos( fphase );
+ *iout = fspectrum*sin( fphase );
+ }
+ else
+ {
+ *rout=0.0;
+ *iout=0.0;
+ }
+ rout++;
+ iout++;
+ rin++;
+ iin++;
+ bi++;
}
- // set outputs
- if ( !x->x_allocate && x->x_play) {
- *rout = 0.;
- *iout = 0.;
- // interpolates 4 points like tabread4
- rpoint = ((int)x->x_readpos*x->x_blocksize)+bi;
-
- if ( rpoint == 0 ) {
- v[0]=0.0;
- v[1]=*(x->x_rdata+rpoint);
- v[2]=*(x->x_rdata+rpoint+1);
- v[3]=*(x->x_rdata+rpoint+2);
- z[0]=0.0;
- z[1]=*(x->x_idata+rpoint);
- z[2]=*(x->x_idata+rpoint+1);
- z[3]=*(x->x_idata+rpoint+2);
- } else if ( rpoint == (x->x_size*x->x_blocksize-1) ) {
- v[0]=*(x->x_rdata+rpoint-1);
- v[1]=*(x->x_rdata+rpoint);
- v[2]=*(x->x_rdata+rpoint+1);
- v[3]=0.0;
- z[0]=*(x->x_idata+rpoint-1);
- z[1]=*(x->x_idata+rpoint);
- z[2]=*(x->x_idata+rpoint+1);
- z[3]=0.0;
- } else if ( rpoint == (x->x_size*x->x_blocksize) ) {
- v[0]=*(x->x_rdata+rpoint-1);
- v[1]=*(x->x_rdata+rpoint);
- v[2]=0.0;
- v[3]=0.0;
- z[0]=*(x->x_idata+rpoint-1);
- z[1]=*(x->x_idata+rpoint);
- z[2]=0.0;
- z[3]=0.0;
- } else {
- v[0]=*(x->x_rdata+rpoint-1);
- v[1]=*(x->x_rdata+rpoint);
- v[2]=*(x->x_rdata+rpoint+1);
- v[3]=*(x->x_rdata+rpoint+2);
- z[0]=*(x->x_idata+rpoint-1);
- z[1]=*(x->x_idata+rpoint);
- z[2]=*(x->x_idata+rpoint+1);
- z[3]=*(x->x_idata+rpoint+2);
+ // reset playing position until next play
+ if ( x->x_play )
+ {
+ x->x_readpos+=x->x_readspeed;
+ // post( "xreadpos : %f (added %f)", x->x_readpos, x->x_readspeed );
+ if ( x->x_readpos >= (x->x_readend*x->x_size)/100 )
+ {
+ x->x_play=0;
+ x->x_readpos=(x->x_readstart*x->x_size)/100;
+ // post( "samplebox~ : stopped playing (readpos=%d)", x->x_readpos );
+ outlet_bang(x->x_playend);
}
-
+ }
+ // reset recording position until next record
+ if ( x->x_record )
+ {
+ x->x_writepos++;
+ if ( x->x_writepos >= x->x_size )
{
- t_float frac = rpoint-(int)rpoint;
-
- // taken from tabread4_tilde
- *rout = v[1]+frac*((v[2]-v[1])-0.5f*(frac-1.)*((v[0]-v[3]+3.0f*(v[2]-v[1]))*frac+(2.0f*v[1]-v[0]-v[2])));
- *iout = z[1]+frac*((z[2]-z[1])-0.5f*(frac-1.)*((z[0]-z[3]+3.0f*(z[2]-z[1]))*frac+(2.0f*z[1]-z[0]-z[2])));
+ x->x_record=0;
+ x->x_writepos=0;
+ outlet_bang(x->x_recordend);
+ // post( "samplebox~ : stopped recording" );
}
-
- // add phase argument
- fspectrum = sqrt( pow( *rout, 2) + pow( *iout, 2) );
- fphase = atan2( *iout, *rout );
- fphase += (x->x_phase/180.0)*(M_PI);
- *rout = fspectrum*cos( fphase );
- *iout = fspectrum*sin( fphase );
- } else {
- *rout=0.0;
- *iout=0.0;
}
- rout++;iout++;
- rin++;iin++;
- bi++;
- }
- // reset playing position until next play
- if ( x->x_play ) {
- x->x_readpos+=x->x_readspeed;
- // post( "xreadpos : %f (added %f)", x->x_readpos, x->x_readspeed );
- if ( x->x_readpos >= (x->x_readend*x->x_size)/100 ) {
- x->x_play=0;
- x->x_readpos=(x->x_readstart*x->x_size)/100;
- // post( "samplebox~ : stopped playing (readpos=%d)", x->x_readpos );
- outlet_bang(x->x_playend);
- }
- }
- // reset recording position until next record
- if ( x->x_record ) {
- x->x_writepos++;
- if ( x->x_writepos >= x->x_size ) {
- x->x_record=0;
- x->x_writepos=0;
- outlet_bang(x->x_recordend);
- // post( "samplebox~ : stopped recording" );
- }
- }
}
return (w+7);
}
@@ -295,14 +339,14 @@ static void samplebox_dsp(t_samplebox *x, t_signal **sp) dsp_add(samplebox_perform, 6, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec, sp[0]->s_n, x);
}
- /* record the sonogram */
+/* record the sonogram */
static void samplebox_record(t_samplebox *x)
{
x->x_record=1;
x->x_writepos=0;
}
- /* play the sonogram */
+/* play the sonogram */
static void samplebox_play(t_samplebox *x)
{
x->x_play=1;
@@ -310,79 +354,93 @@ static void samplebox_play(t_samplebox *x) x->x_readpos=(x->x_readstart*x->x_size)/100;
}
- /* setting the starting point for reading ( in percent ) */
+/* setting the starting point for reading ( in percent ) */
static void samplebox_readstart(t_samplebox *x, t_floatarg fstart)
{
- t_float startpoint = fstart;
+ t_float startpoint = fstart;
if (startpoint < 0) startpoint = 0;
if (startpoint > 100) startpoint = 100;
- if ( startpoint > x->x_readend ) {
- x->x_readstart = x->x_readend;
- post( "samplebox~ : warning : range for reading is null" );
- } else {
- x->x_readstart=startpoint;
+ if ( startpoint > x->x_readend )
+ {
+ x->x_readstart = x->x_readend;
+ post( "samplebox~ : warning : range for reading is null" );
+ }
+ else
+ {
+ x->x_readstart=startpoint;
}
}
- /* setting the starting point for modification ( in percent ) */
+/* setting the starting point for modification ( in percent ) */
static void samplebox_modstart(t_samplebox *x, t_floatarg fstart)
{
- t_float startpoint = fstart;
+ t_float startpoint = fstart;
if (startpoint < 0) startpoint = 0;
if (startpoint > 100) startpoint = 100;
- if ( startpoint > x->x_modend ) {
- x->x_modstart = x->x_modend;
- post( "samplebox~ : warning : range for modifications is null" );
- } else {
- x->x_modstart=startpoint;
+ if ( startpoint > x->x_modend )
+ {
+ x->x_modstart = x->x_modend;
+ post( "samplebox~ : warning : range for modifications is null" );
+ }
+ else
+ {
+ x->x_modstart=startpoint;
}
}
- /* setting the ending point for reading ( in percent ) */
+/* setting the ending point for reading ( in percent ) */
static void samplebox_readend(t_samplebox *x, t_floatarg fend)
{
- t_float endpoint = fend;
+ t_float endpoint = fend;
if (endpoint < 0) endpoint = 0;
if (endpoint > 100) endpoint = 100;
- if ( endpoint < x->x_readstart ) {
- x->x_readend = x->x_readstart;
- post( "samplebox~ : warning : range for reading is null" );
- } else {
- x->x_readend=endpoint;
+ if ( endpoint < x->x_readstart )
+ {
+ x->x_readend = x->x_readstart;
+ post( "samplebox~ : warning : range for reading is null" );
+ }
+ else
+ {
+ x->x_readend=endpoint;
}
}
- /* setting the ending point for modification ( in percent ) */
+/* setting the ending point for modification ( in percent ) */
static void samplebox_modend(t_samplebox *x, t_floatarg fend)
{
- t_float endpoint = fend;
+ t_float endpoint = fend;
if (endpoint < 0) endpoint = 0;
if (endpoint > 100) endpoint = 100;
- if ( endpoint < x->x_modstart ) {
- x->x_modend = x->x_modstart;
- post( "samplebox~ : warning : range for modifications is null" );
- } else {
- x->x_modend=endpoint;
+ if ( endpoint < x->x_modstart )
+ {
+ x->x_modend = x->x_modstart;
+ post( "samplebox~ : warning : range for modifications is null" );
+ }
+ else
+ {
+ x->x_modend=endpoint;
}
}
- /* sets the reading speed */
+/* sets the reading speed */
static void samplebox_readspeed(t_samplebox *x, t_floatarg freadspeed)
{
- if ((int)freadspeed < 0 ) {
- post( "samplebox~ : wrong readspeed argument" );
+ if ((int)freadspeed < 0 )
+ {
+ post( "samplebox~ : wrong readspeed argument" );
}
x->x_readspeed=freadspeed;
}
- /* resize sonogram */
+/* resize sonogram */
static void samplebox_resize(t_samplebox *x, t_floatarg fnewsize )
{
- if (fnewsize <= 0) {
+ if (fnewsize <= 0)
+ {
post( "samplebox~ : error : wrong size" );
return;
}
@@ -395,56 +453,60 @@ static void samplebox_resize(t_samplebox *x, t_floatarg fnewsize ) x->x_allocate = 0;
}
- /* flip blocks */
+/* flip blocks */
static void samplebox_flipblocks(t_samplebox *x)
{
- t_int samplestart, sampleend, middlesample, fi, si;
- t_float fvalue;
+ t_int samplestart, sampleend, middlesample, fi, si;
+ t_float fvalue;
samplestart=(x->x_modstart*(x->x_size-1))/100;
sampleend=(x->x_modend*(x->x_size-1))/100;
middlesample = ( sampleend+samplestart+1 ) / 2;
post( "flip blocks [%d,%d] and [%d,%d]", samplestart, middlesample, middlesample, sampleend );
- for ( si=samplestart; si<=middlesample; si++ ) {
- for ( fi=0; fi<x->x_blocksize; fi++ ) {
- fvalue = *(x->x_rdata+((si)*x->x_blocksize)+fi);
- *(x->x_rdata+((si)*x->x_blocksize)+fi) = *(x->x_rdata+((sampleend+samplestart-si)*x->x_blocksize)+fi);
- *(x->x_rdata+((sampleend+samplestart-si)*x->x_blocksize)+fi) = fvalue;
- fvalue = *(x->x_idata+((si)*x->x_blocksize)+fi);
- *(x->x_idata+((si)*x->x_blocksize)+fi) = *(x->x_idata+((sampleend+samplestart-si)*x->x_blocksize)+fi);
- *(x->x_idata+((sampleend+samplestart-si)*x->x_blocksize)+fi) = fvalue;
- }
+ for ( si=samplestart; si<=middlesample; si++ )
+ {
+ for ( fi=0; fi<x->x_blocksize; fi++ )
+ {
+ fvalue = *(x->x_rdata+((si)*x->x_blocksize)+fi);
+ *(x->x_rdata+((si)*x->x_blocksize)+fi) = *(x->x_rdata+((sampleend+samplestart-si)*x->x_blocksize)+fi);
+ *(x->x_rdata+((sampleend+samplestart-si)*x->x_blocksize)+fi) = fvalue;
+ fvalue = *(x->x_idata+((si)*x->x_blocksize)+fi);
+ *(x->x_idata+((si)*x->x_blocksize)+fi) = *(x->x_idata+((sampleend+samplestart-si)*x->x_blocksize)+fi);
+ *(x->x_idata+((sampleend+samplestart-si)*x->x_blocksize)+fi) = fvalue;
+ }
}
}
- /* change the phase */
+/* change the phase */
static void samplebox_phase(t_samplebox *x, t_floatarg fincphase)
{
- if (fincphase < 0 || fincphase > 90) {
+ if (fincphase < 0 || fincphase > 90)
+ {
post( "samplebox~ : error : wrong phase in phase function : out of [0,90]" );
return;
}
x->x_phase = fincphase;
}
- /* swap blocks */
+/* swap blocks */
static void samplebox_swapblocks(t_samplebox *x, t_floatarg fperstart, t_floatarg fperend, t_floatarg fpersize)
{
- t_int samplestart, samplestartb, samplesize, sp, sf;
- t_int iperstart, iperend, ipersize;
- t_float s1, s2;
- t_float fvalue;
+ t_int samplestart, samplestartb, samplesize, sp, sf;
+ t_int iperstart, iperend, ipersize;
+ t_float s1, s2;
+ t_float fvalue;
iperstart = fperstart;
iperend = fperend;
ipersize = fpersize;
if (iperstart < 0 || iperstart > iperend ||
- iperend <= 0 || iperend+ipersize > 100 ||
- ipersize < 0 || fpersize > 100 ) {
+ iperend <= 0 || iperend+ipersize > 100 ||
+ ipersize < 0 || fpersize > 100 )
+ {
post( "samplebox~ : error : wrong interval [%d%%, %d%%] <-> [%d%%, %d%%]",
- iperstart, iperstart+ipersize, iperend, iperend+ipersize );
+ iperstart, iperstart+ipersize, iperend, iperend+ipersize );
return;
}
samplestart=(x->x_modstart*(x->x_size-1))/100;
@@ -454,15 +516,17 @@ static void samplebox_swapblocks(t_samplebox *x, t_floatarg fperstart, t_floatar samplestartb=samplestart+((samplestartb-samplestart)*iperend)/100;
// post( "swap blocks [%d,%d] and [%d,%d]", samplestart, samplestart+samplesize, samplestartb, samplestartb+samplesize );
-
- for ( sp=samplesize; sp>=0; sp-- ) {
- for ( sf=0; sf<x->x_blocksize; sf++) {
- fvalue = *(x->x_rdata+((int)(samplestart+sp)*x->x_blocksize)+sf);
- *(x->x_rdata+((int)(samplestart+sp)*x->x_blocksize)+sf) = *(x->x_rdata+((int)(samplestartb+sp)*x->x_blocksize)+sf);
- *(x->x_rdata+((int)(samplestartb+sp)*x->x_blocksize)+sf) = fvalue;
- fvalue = *(x->x_idata+((int)(samplestart+sp)*x->x_blocksize)+sf);
- *(x->x_idata+((int)(samplestart+sp)*x->x_blocksize)+sf) = *(x->x_idata+((int)(samplestartb+sp)*x->x_blocksize)+sf);
- *(x->x_idata+((int)(samplestartb+sp)*x->x_blocksize)+sf) = fvalue;
+
+ for ( sp=samplesize; sp>=0; sp-- )
+ {
+ for ( sf=0; sf<x->x_blocksize; sf++)
+ {
+ fvalue = *(x->x_rdata+((int)(samplestart+sp)*x->x_blocksize)+sf);
+ *(x->x_rdata+((int)(samplestart+sp)*x->x_blocksize)+sf) = *(x->x_rdata+((int)(samplestartb+sp)*x->x_blocksize)+sf);
+ *(x->x_rdata+((int)(samplestartb+sp)*x->x_blocksize)+sf) = fvalue;
+ fvalue = *(x->x_idata+((int)(samplestart+sp)*x->x_blocksize)+sf);
+ *(x->x_idata+((int)(samplestart+sp)*x->x_blocksize)+sf) = *(x->x_idata+((int)(samplestartb+sp)*x->x_blocksize)+sf);
+ *(x->x_idata+((int)(samplestartb+sp)*x->x_blocksize)+sf) = fvalue;
}
}
}
@@ -479,12 +543,13 @@ static void *samplebox_new(t_floatarg fsize) inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("readend"));
inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("modstart"));
inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("modend"));
-
- if ( fsize <= 0 ) {
- error( "samplebox~ : missing or negative creation arguments" );
- return NULL;
+
+ if ( fsize <= 0 )
+ {
+ error( "samplebox~ : missing or negative creation arguments" );
+ return NULL;
}
-
+
x->x_size = fsize;
x->x_blocksize = sys_getblksize();
x->x_play = 0;
@@ -502,10 +567,13 @@ static void *samplebox_new(t_floatarg fsize) x->x_rootsquares = NULL;
x->x_phase = 0.0;
x->x_samplerate = sys_getsr();
- if ( samplebox_allocate(x) <0 ) {
- return NULL;
- } else {
- return(x);
+ if ( samplebox_allocate(x) <0 )
+ {
+ return NULL;
+ }
+ else
+ {
+ return(x);
}
}
@@ -513,7 +581,7 @@ void samplebox_tilde_setup(void) {
verbose(0, samplebox_version);
samplebox_class = class_new(gensym("samplebox~"), (t_newmethod)samplebox_new, (t_method)samplebox_free,
- sizeof(t_samplebox), 0, A_DEFFLOAT, 0);
+ sizeof(t_samplebox), 0, A_DEFFLOAT, 0);
CLASS_MAINSIGNALIN( samplebox_class, t_samplebox, x_f );
class_addmethod(samplebox_class, (t_method)samplebox_dsp, gensym("dsp"), 0);
class_addmethod(samplebox_class, (t_method)samplebox_record, gensym("record"), 0);
|