Pd-cvs June 2007

pd-cvs@lists.iem.at

17 participants
220 discussions

pd/src d_ugen.c,1.3.4.1.2.5.2.9,1.3.4.1.2.5.2.10
by Mathieu Bouchard 28 Jun '07

28 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24075 Modified Files: Tag: desiredata d_ugen.c Log Message: more cleanup (resample) Index: d_ugen.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/d_ugen.c,v retrieving revision 1.3.4.1.2.5.2.9 retrieving revision 1.3.4.1.2.5.2.10 diff -C2 -d -r1.3.4.1.2.5.2.9 -r1.3.4.1.2.5.2.10 *** d_ugen.c 28 Jun 2007 15:58:10 -0000 1.3.4.1.2.5.2.9 --- d_ugen.c 28 Jun 2007 16:35:58 -0000 1.3.4.1.2.5.2.10 *************** *** 910,991 **** /* resampling code originally by Johannes Zmölnig in 2001 */ /* also "block-resampling" added by Johannes in 2004.09 */ - - #include "m_pd.h" - /* --------------------- up/down-sampling --------------------- */ - /* LATER: add some downsampling-filters for HOLD and LINEAR */ ! t_int *downsampling_perform_0(t_int *w) ! { t_float *in = (t_float *)(w[1]); /* original signal */ t_float *out = (t_float *)(w[2]); /* downsampled signal */ int down = (int)(w[3]); /* downsampling factor */ int parent = (int)(w[4]); /* original vectorsize */ - int n=parent/down; ! ! while(n--){ *out++=*in; in+=down; } ! ! return (w+5); } ! t_int *downsampling_perform_block(t_int *w) ! { /* the downsampled vector is exactly the first part of the parent vector * the rest of the parent is just skipped * cool for FFT-data, where you only want to process the significant (1st) part of the vector */ ! t_float *in = (t_float *)(w[1]); /* original signal */ ! t_float *out = (t_float *)(w[2]); /* downsampled signal */ ! int down = (int)(w[3]); /* downsampling factor */ ! int parent = (int)(w[4]); /* original vectorsize */ ! int n=parent/down; ! ! while(n--){ ! *out++=*in++; ! } ! ! return (w+5); } ! t_int *upsampling_perform_0(t_int *w) ! { ! t_float *in = (t_float *)(w[1]); /* original signal */ ! t_float *out = (t_float *)(w[2]); /* upsampled signal */ ! int up = (int)(w[3]); /* upsampling factor */ ! int parent = (int)(w[4]); /* original vectorsize */ ! int n=parent*up; t_float *dummy = out; ! ! while(n--)*out++=0; ! n = parent; out = dummy; ! while(n--){ *out=*in++; out+=up; } ! ! return (w+5); } ! t_int *upsampling_perform_hold(t_int *w) ! { ! t_float *in = (t_float *)(w[1]); /* original signal */ ! t_float *out = (t_float *)(w[2]); /* upsampled signal */ ! int up = (int)(w[3]); /* upsampling factor */ ! int parent = (int)(w[4]); /* original vectorsize */ int i=up; - int n=parent; t_float *dum_out = out; t_float *dum_in = in; - while (i--) { n = parent; --- 910,969 ---- /* resampling code originally by Johannes Zmölnig in 2001 */ /* also "block-resampling" added by Johannes in 2004.09 */ /* --------------------- up/down-sampling --------------------- */ /* LATER: add some downsampling-filters for HOLD and LINEAR */ ! t_int *downsampling_perform_0(t_int *w) { t_float *in = (t_float *)(w[1]); /* original signal */ t_float *out = (t_float *)(w[2]); /* downsampled signal */ int down = (int)(w[3]); /* downsampling factor */ int parent = (int)(w[4]); /* original vectorsize */ int n=parent/down; ! while(n--) { *out++=*in; in+=down; } ! return w+5; } ! t_int *downsampling_perform_block(t_int *w) { /* the downsampled vector is exactly the first part of the parent vector * the rest of the parent is just skipped * cool for FFT-data, where you only want to process the significant (1st) part of the vector */ ! t_float *in = (t_float *)w[1]; /* original signal */ ! t_float *out = (t_float *)w[2]; /* downsampled signal */ ! int down = int(w[3]); /* downsampling factor */ ! int parent = int(w[4]); /* original vectorsize */ int n=parent/down; ! while(n--) *out++=*in++; ! return w+5; } ! t_int *upsampling_perform_0(t_int *w) { ! t_float *in = (t_float *)w[1]; /* original signal */ ! t_float *out = (t_float *)w[2]; /* upsampled signal */ ! int up = int(w[3]); /* upsampling factor */ ! int parent = int(w[4]); /* original vectorsize */ int n=parent*up; t_float *dummy = out; ! while(n--) *out++=0; n = parent; out = dummy; ! while(n--) { *out=*in++; out+=up; } ! return w+5; } ! t_int *upsampling_perform_hold(t_int *w) { ! t_float *in = (t_float *)w[1]; /* original signal */ ! t_float *out = (t_float *)w[2]; /* upsampled signal */ ! int up = int(w[3]); /* upsampling factor */ ! int parent = int(w[4]); /* original vectorsize */ int i=up; int n=parent; t_float *dum_out = out; t_float *dum_in = in; while (i--) { n = parent; *************** *** 997,1015 **** } } ! return (w+5); } ! t_int *upsampling_perform_linear(t_int *w) ! { ! t_resample *x= (t_resample *)(w[1]); ! t_float *in = (t_float *)(w[2]); /* original signal */ ! t_float *out = (t_float *)(w[3]); /* upsampled signal */ ! const int up = (int)(w[4]); /* upsampling factor */ ! const int parent = (int)(w[5]); /* original vectorsize */ const int length = parent*up; int n; t_float *fp; ! t_float a=*x->buffer, b=*in; ! const t_float up_inv = (t_float)1.0/up; t_float findex = 0.f; --- 975,991 ---- } } ! return w+5; } ! t_int *upsampling_perform_linear(t_int *w) { ! t_resample *x= (t_resample *)w[1]; ! t_float *in = (t_float *)w[2]; /* original signal */ ! t_float *out = (t_float *)w[3]; /* upsampled signal */ ! const int up = int(w[4]); /* upsampling factor */ ! const int parent = int(w[5]); /* original vectorsize */ const int length = parent*up; int n; t_float *fp; ! t_float a=*x->buffer, b=*in; const t_float up_inv = (t_float)1.0/up; t_float findex = 0.f; *************** *** 1024,1034 **** a=(index)?*(fp-1):a; } - *x->buffer = a; ! return (w+6); } ! t_int *upsampling_perform_block(t_int *w) ! { /* 1st part of the upsampled signal-vector will be the original one * 2nd part of the upsampled signal-vector is just 0 --- 1000,1008 ---- a=(index)?*(fp-1):a; } *x->buffer = a; ! return w+6; } ! t_int *upsampling_perform_block(t_int *w) { /* 1st part of the upsampled signal-vector will be the original one * 2nd part of the upsampled signal-vector is just 0 *************** *** 1040,1093 **** int parent = (int)(w[4]); /* original vectorsize */ int i=parent; - int n=parent*(up-1); ! ! while (i--) { ! *out++=*in++; ! } ! while(n--) { ! *out++=0.f; ! } ! return (w+5); } - /* ----------------------- public -------------------------------- */ - /* utils */ ! void resample_init(t_resample *x) ! { x->method=0; - x->downsample=x->upsample=1; - x->s_n = x->coefsize = x->bufsize = 0; x->s_vec = x->coeffs = x->buffer = 0; } ! void resample_free(t_resample *x) ! { if (x->s_n) t_freebytes(x->s_vec, x->s_n*sizeof(*x->s_vec)); if (x->coefsize) t_freebytes(x->coeffs, x->coefsize*sizeof(*x->coeffs)); if (x->bufsize) t_freebytes(x->buffer, x->bufsize*sizeof(*x->buffer)); - x->s_n = x->coefsize = x->bufsize = 0; x->s_vec = x->coeffs = x->buffer = 0; } - /* dsp-adding */ - void resample_dsp(t_resample *x, ! t_sample* in, int insize, ! t_sample* out, int outsize, ! int method) ! { ! if (insize == outsize){ bug("nothing to be done"); return; } - if (insize > outsize) { /* downsampling */ if (insize % outsize) { --- 1014,1050 ---- int parent = (int)(w[4]); /* original vectorsize */ int i=parent; int n=parent*(up-1); ! while (i--) *out++=*in++; ! while(n--) *out++=0.f; ! return w+5; } /* ----------------------- public -------------------------------- */ /* utils */ ! void resample_init(t_resample *x) { x->method=0; x->downsample=x->upsample=1; x->s_n = x->coefsize = x->bufsize = 0; x->s_vec = x->coeffs = x->buffer = 0; } ! void resample_free(t_resample *x) { if (x->s_n) t_freebytes(x->s_vec, x->s_n*sizeof(*x->s_vec)); if (x->coefsize) t_freebytes(x->coeffs, x->coefsize*sizeof(*x->coeffs)); if (x->bufsize) t_freebytes(x->buffer, x->bufsize*sizeof(*x->buffer)); x->s_n = x->coefsize = x->bufsize = 0; x->s_vec = x->coeffs = x->buffer = 0; } /* dsp-adding */ void resample_dsp(t_resample *x, ! t_sample* in, int insize, ! t_sample* out, int outsize, ! int method) { ! if (insize == outsize) { bug("nothing to be done"); return; } if (insize > outsize) { /* downsampling */ if (insize % outsize) { *************** *** 1102,1106 **** dsp_add(downsampling_perform_0, 4, in, out, insize/outsize, insize); } - } else { /* upsampling */ if (outsize % insize) { --- 1059,1062 ---- *************** *** 1129,1143 **** } ! void resamplefrom_dsp(t_resample *x, ! t_sample *in, ! int insize, int outsize, int method) ! { if (insize==outsize) { ! t_freebytes(x->s_vec, x->s_n * sizeof(*x->s_vec)); x->s_n = 0; x->s_vec = in; return; } - if (x->s_n != outsize) { t_float *buf=x->s_vec; --- 1085,1095 ---- } ! void resamplefrom_dsp(t_resample *x, t_sample *in, int insize, int outsize, int method) { if (insize==outsize) { ! t_freebytes(x->s_vec, x->s_n * sizeof(*x->s_vec)); x->s_n = 0; x->s_vec = in; return; } if (x->s_n != outsize) { t_float *buf=x->s_vec; *************** *** 1151,1158 **** } ! void resampleto_dsp(t_resample *x, ! t_sample *out, ! int insize, int outsize, int method) ! { if (insize==outsize) { if (x->s_n)t_freebytes(x->s_vec, x->s_n * sizeof(*x->s_vec)); --- 1103,1107 ---- } ! void resampleto_dsp(t_resample *x, t_sample *out, int insize, int outsize, int method) { if (insize==outsize) { if (x->s_n)t_freebytes(x->s_vec, x->s_n * sizeof(*x->s_vec)); *************** *** 1161,1165 **** return; } - if (x->s_n != insize) { t_float *buf=x->s_vec; --- 1110,1113 ---- *************** *** 1169,1175 **** x->s_n = insize; } - resample_dsp(x, x->s_vec, x->s_n, out, outsize, method); - return; } --- 1117,1121 ----

1 0

pd/src d_resample.c,1.2.4.1.2.1,NONE
by Mathieu Bouchard 28 Jun '07

28 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9941 Removed Files: Tag: desiredata d_resample.c Log Message: merged d_resample.c into d_ugen.c --- d_resample.c DELETED ---

1 0

pd/src d_ugen.c, 1.3.4.1.2.5.2.8, 1.3.4.1.2.5.2.9 makefile.in, 1.4.4.2.2.21.2.28, 1.4.4.2.2.21.2.29
by Mathieu Bouchard 28 Jun '07

28 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9567 Modified Files: Tag: desiredata d_ugen.c makefile.in Log Message: merged d_resample.c into d_ugen.c Index: makefile.in =================================================================== RCS file: /cvsroot/pure-data/pd/src/makefile.in,v retrieving revision 1.4.4.2.2.21.2.28 retrieving revision 1.4.4.2.2.21.2.29 diff -C2 -d -r1.4.4.2.2.21.2.28 -r1.4.4.2.2.21.2.29 *** makefile.in 28 Jun 2007 08:33:34 -0000 1.4.4.2.2.21.2.28 --- makefile.in 28 Jun 2007 15:58:10 -0000 1.4.4.2.2.21.2.29 *************** *** 23,27 **** SRCXX = desire.c kernel.c builtins.c builtins_dsp.c s_path.c s_inter.c s_main.c \ m_sched.c s_loader.c d_soundfile.c d_ugen.c ! SRC = m_fifo.c m_simd.c s_audio.c s_midi.c d_mayer_fft.c d_fftroutine.c d_resample.c # audio drivers and midi drivers --- 23,27 ---- SRCXX = desire.c kernel.c builtins.c builtins_dsp.c s_path.c s_inter.c s_main.c \ m_sched.c s_loader.c d_soundfile.c d_ugen.c ! SRC = m_fifo.c m_simd.c s_audio.c s_midi.c d_mayer_fft.c d_fftroutine.c # audio drivers and midi drivers Index: d_ugen.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/d_ugen.c,v retrieving revision 1.3.4.1.2.5.2.8 retrieving revision 1.3.4.1.2.5.2.9 diff -C2 -d -r1.3.4.1.2.5.2.8 -r1.3.4.1.2.5.2.9 *** d_ugen.c 28 Jun 2007 15:52:02 -0000 1.3.4.1.2.5.2.8 --- d_ugen.c 28 Jun 2007 15:58:10 -0000 1.3.4.1.2.5.2.9 *************** *** 908,911 **** --- 908,1178 ---- } + /* resampling code originally by Johannes Zmölnig in 2001 */ + /* also "block-resampling" added by Johannes in 2004.09 */ + + #include "m_pd.h" + + /* --------------------- up/down-sampling --------------------- */ + + /* LATER: add some downsampling-filters for HOLD and LINEAR */ + + t_int *downsampling_perform_0(t_int *w) + { + t_float *in = (t_float *)(w[1]); /* original signal */ + t_float *out = (t_float *)(w[2]); /* downsampled signal */ + int down = (int)(w[3]); /* downsampling factor */ + int parent = (int)(w[4]); /* original vectorsize */ + + int n=parent/down; + + while(n--){ + *out++=*in; + in+=down; + } + + return (w+5); + } + + t_int *downsampling_perform_block(t_int *w) + { + /* the downsampled vector is exactly the first part of the parent vector + * the rest of the parent is just skipped + * cool for FFT-data, where you only want to process the significant (1st) part of the vector + */ + t_float *in = (t_float *)(w[1]); /* original signal */ + t_float *out = (t_float *)(w[2]); /* downsampled signal */ + int down = (int)(w[3]); /* downsampling factor */ + int parent = (int)(w[4]); /* original vectorsize */ + + int n=parent/down; + + while(n--){ + *out++=*in++; + } + + return (w+5); + } + + t_int *upsampling_perform_0(t_int *w) + { + t_float *in = (t_float *)(w[1]); /* original signal */ + t_float *out = (t_float *)(w[2]); /* upsampled signal */ + int up = (int)(w[3]); /* upsampling factor */ + int parent = (int)(w[4]); /* original vectorsize */ + + int n=parent*up; + t_float *dummy = out; + + while(n--)*out++=0; + + n = parent; + out = dummy; + while(n--){ + *out=*in++; + out+=up; + } + + return (w+5); + } + + t_int *upsampling_perform_hold(t_int *w) + { + t_float *in = (t_float *)(w[1]); /* original signal */ + t_float *out = (t_float *)(w[2]); /* upsampled signal */ + int up = (int)(w[3]); /* upsampling factor */ + int parent = (int)(w[4]); /* original vectorsize */ + int i=up; + + int n=parent; + t_float *dum_out = out; + t_float *dum_in = in; + + while (i--) { + n = parent; + out = dum_out+i; + in = dum_in; + while(n--){ + *out=*in++; + out+=up; + } + } + return (w+5); + } + + t_int *upsampling_perform_linear(t_int *w) + { + t_resample *x= (t_resample *)(w[1]); + t_float *in = (t_float *)(w[2]); /* original signal */ + t_float *out = (t_float *)(w[3]); /* upsampled signal */ + const int up = (int)(w[4]); /* upsampling factor */ + const int parent = (int)(w[5]); /* original vectorsize */ + const int length = parent*up; + int n; + t_float *fp; + t_float a=*x->buffer, b=*in; + + const t_float up_inv = (t_float)1.0/up; + t_float findex = 0.f; + for (n=0; n<length; n++) { + const int index = int(findex+=up_inv); + t_float frac=findex-index; + if(frac==0.)frac=1.; + *out++ = frac * b + (1.-frac) * a; + fp=in+index; + b=*fp; + // do we still need the last sample of the previous pointer for interpolation ? + a=(index)?*(fp-1):a; + } + + *x->buffer = a; + return (w+6); + } + + t_int *upsampling_perform_block(t_int *w) + { + /* 1st part of the upsampled signal-vector will be the original one + * 2nd part of the upsampled signal-vector is just 0 + * cool for FFT-data, where you only want to process the significant (1st) part of the vector + */ + t_float *in = (t_float *)(w[1]); /* original signal */ + t_float *out = (t_float *)(w[2]); /* upsampled signal */ + int up = (int)(w[3]); /* upsampling factor */ + int parent = (int)(w[4]); /* original vectorsize */ + int i=parent; + + int n=parent*(up-1); + + while (i--) { + *out++=*in++; + } + while(n--) { + *out++=0.f; + } + return (w+5); + } + + + /* ----------------------- public -------------------------------- */ + + /* utils */ + + void resample_init(t_resample *x) + { + x->method=0; + + x->downsample=x->upsample=1; + + x->s_n = x->coefsize = x->bufsize = 0; + x->s_vec = x->coeffs = x->buffer = 0; + } + + void resample_free(t_resample *x) + { + if (x->s_n) t_freebytes(x->s_vec, x->s_n*sizeof(*x->s_vec)); + if (x->coefsize) t_freebytes(x->coeffs, x->coefsize*sizeof(*x->coeffs)); + if (x->bufsize) t_freebytes(x->buffer, x->bufsize*sizeof(*x->buffer)); + + x->s_n = x->coefsize = x->bufsize = 0; + x->s_vec = x->coeffs = x->buffer = 0; + } + + + /* dsp-adding */ + + void resample_dsp(t_resample *x, + t_sample* in, int insize, + t_sample* out, int outsize, + int method) + { + if (insize == outsize){ + bug("nothing to be done"); + return; + } + + if (insize > outsize) { /* downsampling */ + if (insize % outsize) { + error("bad downsampling factor"); + return; + } + switch (method) { + case RESAMPLE_BLOCK: + dsp_add(downsampling_perform_block, 4, in, out, insize/outsize, insize); + break; + default: + dsp_add(downsampling_perform_0, 4, in, out, insize/outsize, insize); + } + + } else { /* upsampling */ + if (outsize % insize) { + error("bad upsampling factor"); + return; + } + switch (method) { + case RESAMPLE_HOLD: + dsp_add(upsampling_perform_hold, 4, in, out, outsize/insize, insize); + break; + case RESAMPLE_LINEAR: + if (x->bufsize != 1) { + t_freebytes(x->buffer, x->bufsize*sizeof(*x->buffer)); + x->bufsize = 1; + x->buffer = (t_float *)t_getbytes(x->bufsize*sizeof(*x->buffer)); + } + dsp_add(upsampling_perform_linear, 5, x, in, out, outsize/insize, insize); + break; + case RESAMPLE_BLOCK: + dsp_add(upsampling_perform_block, 4, in, out, outsize/insize, insize); + break; + default: + dsp_add(upsampling_perform_0, 4, in, out, outsize/insize, insize); + } + } + } + + void resamplefrom_dsp(t_resample *x, + t_sample *in, + int insize, int outsize, int method) + { + if (insize==outsize) { + t_freebytes(x->s_vec, x->s_n * sizeof(*x->s_vec)); + x->s_n = 0; + x->s_vec = in; + return; + } + + if (x->s_n != outsize) { + t_float *buf=x->s_vec; + t_freebytes(buf, x->s_n * sizeof(*buf)); + buf = (t_float *)t_getbytes(outsize * sizeof(*buf)); + x->s_vec = buf; + x->s_n = outsize; + } + resample_dsp(x, in, insize, x->s_vec, x->s_n, method); + return; + } + + void resampleto_dsp(t_resample *x, + t_sample *out, + int insize, int outsize, int method) + { + if (insize==outsize) { + if (x->s_n)t_freebytes(x->s_vec, x->s_n * sizeof(*x->s_vec)); + x->s_n = 0; + x->s_vec = out; + return; + } + + if (x->s_n != insize) { + t_float *buf=x->s_vec; + t_freebytes(buf, x->s_n * sizeof(*buf)); + buf = (t_float *)t_getbytes(insize * sizeof(*buf)); + x->s_vec = buf; + x->s_n = insize; + } + + resample_dsp(x, x->s_vec, x->s_n, out, outsize, method); + + return; + } + /* ------------------------ samplerate~ -------------------------- */

1 0

pd/src m_sched.c,1.5.4.35.2.21.2.8,1.5.4.35.2.21.2.9
by Mathieu Bouchard 28 Jun '07

28 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8056 Modified Files: Tag: desiredata m_sched.c Log Message: cleanup Index: m_sched.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_sched.c,v retrieving revision 1.5.4.35.2.21.2.8 retrieving revision 1.5.4.35.2.21.2.9 diff -C2 -d -r1.5.4.35.2.21.2.8 -r1.5.4.35.2.21.2.9 *** m_sched.c 28 Jun 2007 09:01:50 -0000 1.5.4.35.2.21.2.8 --- m_sched.c 28 Jun 2007 15:53:39 -0000 1.5.4.35.2.21.2.9 *************** *** 86,92 **** if (clock_setlist && clock_setlist->c_settime <= setticks) { t_clock *cbefore, *cafter; ! for (cbefore = clock_setlist, cafter = clock_setlist->c_next; ! cbefore; cbefore = cafter, cafter = cbefore->c_next) ! { if (!cafter || cafter->c_settime > setticks) { cbefore->c_next = x; --- 86,90 ---- if (clock_setlist && clock_setlist->c_settime <= setticks) { t_clock *cbefore, *cafter; ! for (cbefore = clock_setlist, cafter = clock_setlist->c_next; cbefore; cbefore = cafter, cafter = cbefore->c_next) { if (!cafter || cafter->c_settime > setticks) { cbefore->c_next = x; *************** *** 177,185 **** #define NRESYNC 20 ! typedef struct _resync ! { int r_ntick; int r_error; ! } t_resync; static int oss_resyncphase = 0; --- 175,182 ---- #define NRESYNC 20 ! struct t_resync { int r_ntick; int r_error; ! }; static int oss_resyncphase = 0; *************** *** 200,204 **** void glob_audiostatus (void *dummy) { int nresync, nresyncphase, i; ! nresync = (oss_nresync >= NRESYNC ? NRESYNC : oss_nresync); nresyncphase = oss_resyncphase - 1; post("audio I/O error history:"); --- 197,201 ---- void glob_audiostatus (void *dummy) { int nresync, nresyncphase, i; ! nresync = oss_nresync >= NRESYNC ? NRESYNC : oss_nresync; nresyncphase = oss_resyncphase - 1; post("audio I/O error history:"); *************** *** 209,214 **** errtype = oss_resync[nresyncphase].r_error; if (errtype < 0 || errtype > 4) errtype = 0; ! post("%9.2f\t%s", ! (sched_diddsp - oss_resync[nresyncphase].r_ntick) * ((double)sys_schedblocksize) / sys_dacsr, oss_errornames[errtype]); nresyncphase--; --- 206,210 ---- errtype = oss_resync[nresyncphase].r_error; if (errtype < 0 || errtype > 4) errtype = 0; ! post("%9.2f\t%s", (sched_diddsp - oss_resync[nresyncphase].r_ntick) * ((double)sys_schedblocksize) / sys_dacsr, oss_errornames[errtype]); nresyncphase--; *************** *** 237,241 **** int inclip, outclip, indb, outdb; static int sched_nextmeterpolltime, sched_nextpingtime; - /* if there's no GUI but we're running in "realtime", here is where we arrange to ping the watchdog every 2 seconds. */ --- 233,236 ---- *************** *** 247,251 **** } #endif - if (sched_diddsp - sched_nextmeterpolltime < 0) return; if (sched_diored && sched_diddsp-sched_dioredtime > 0) { --- 242,245 ---- *************** *** 312,330 **** outlet_setstacklim(); c->c_fn(c->c_owner); ! } ! while (clock_setlist && clock_setlist->c_settime <= next_sys_time); } } ! ! /* take the scheduler forward one DSP tick, also handling clock timeouts */ ! void sched_tick(double next_sys_time) ! { run_clock_callbacks(next_sys_time); sys_time = next_sys_time; sched_diddsp++; /* rethink: how to get rid of this stupid histogram??? */ dsp_tick(); - - /* rethink: should we really do all this midi messaging in the realtime thread ? */ sys_pollmidiqueue(); --- 306,319 ---- outlet_setstacklim(); c->c_fn(c->c_owner); ! } while (clock_setlist && clock_setlist->c_settime <= next_sys_time); } } ! /* take the scheduler forward one DSP tick, also handling clock timeouts */ ! void sched_tick(double next_sys_time) { run_clock_callbacks(next_sys_time); sys_time = next_sys_time; sched_diddsp++; /* rethink: how to get rid of this stupid histogram??? */ dsp_tick(); /* rethink: should we really do all this midi messaging in the realtime thread ? */ sys_pollmidiqueue(); *************** *** 405,426 **** } else /* tb: scheduler for callback-based dsp scheduling */ ! while(sys_keepsched) ! { /* tb: allow the audio callback to run */ sys_unlock(); sys_microsleep(sys_sleepgrain); sys_lock(); - sys_pollmidiqueue(); sys_setmiditimediff(0, 1e-6 * sys_schedadvance); ! if (sys_pollgui()) ! continue; /* do graphics updates and run idle callbacks */ sched_pollformeters(); - } sys_keepsched = 1; } - sys_close_audio(); sys_unlock(); --- 394,410 ---- } else /* tb: scheduler for callback-based dsp scheduling */ ! while(sys_keepsched) { /* tb: allow the audio callback to run */ sys_unlock(); sys_microsleep(sys_sleepgrain); sys_lock(); sys_pollmidiqueue(); sys_setmiditimediff(0, 1e-6 * sys_schedadvance); ! if (sys_pollgui()) continue; /* do graphics updates and run idle callbacks */ sched_pollformeters(); } sys_keepsched = 1; } sys_close_audio(); sys_unlock(); *************** *** 428,432 **** } - /* ------------ thread locking ------------------- */ /* added by Thomas Grill */ --- 412,415 ---- *************** *** 466,470 **** int sys_timedlock(int microsec) { struct timespec timeout; - int ret; struct timeval now; /* timedlock seems to have a resolution of 1ms */ --- 449,452 ---- *************** *** 477,481 **** timeout.tv_nsec -= 1e9; } ! ret = pthread_mutex_timedlock(&sys_mutex, &timeout); if (ret) post("timeout, %d", ret); return ret; --- 459,463 ---- timeout.tv_nsec -= 1e9; } ! int ret = pthread_mutex_timedlock(&sys_mutex, &timeout); if (ret) post("timeout, %d", ret); return ret; *************** *** 485,489 **** int sys_timedlock(int microsec) { struct timespec timeout; - int ret; struct timeval now; if (sys_trylock() == 0) return 0; --- 467,470 ---- *************** *** 499,504 **** again before waiting for the signal */ if (sys_trylock() == 0) return 0; ! ret = pthread_cond_timedwait(&sys_cond, &sys_mutex, &timeout); ! return ret; } #endif --- 480,484 ---- again before waiting for the signal */ if (sys_trylock() == 0) return 0; ! return pthread_cond_timedwait(&sys_cond, &sys_mutex, &timeout); } #endif *************** *** 555,559 **** extern "C" void run_all_idle_callbacks () { ! t_sched_callback * new_callback; /* append idle callback to ringbuffer */ while ((new_callback = (t_sched_callback*) fifo_get(callback_fifo))) { --- 535,539 ---- extern "C" void run_all_idle_callbacks () { ! t_sched_callback *new_callback; /* append idle callback to ringbuffer */ while ((new_callback = (t_sched_callback*) fifo_get(callback_fifo))) {

1 0

pd/src d_ugen.c,1.3.4.1.2.5.2.7,1.3.4.1.2.5.2.8
by Mathieu Bouchard 28 Jun '07

28 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7298 Modified Files: Tag: desiredata d_ugen.c Log Message: cleanup including removing useless struct variable prefixes Index: d_ugen.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/d_ugen.c,v retrieving revision 1.3.4.1.2.5.2.7 retrieving revision 1.3.4.1.2.5.2.8 diff -C2 -d -r1.3.4.1.2.5.2.7 -r1.3.4.1.2.5.2.8 *** d_ugen.c 28 Jun 2007 10:09:57 -0000 1.3.4.1.2.5.2.7 --- d_ugen.c 28 Jun 2007 15:52:02 -0000 1.3.4.1.2.5.2.8 *************** *** 111,132 **** static t_class *block_class; ! struct t_block { ! t_object x_obj; ! int x_vecsize; /* size of audio signals in this block */ ! int x_calcsize; /* number of samples actually to compute */ ! int x_overlap; ! int x_phase; /* from 0 to period-1; when zero we run the block */ ! int x_period; /* submultiple of containing canvas */ ! int x_frequency; /* supermultiple of comtaining canvas */ [...1294 lines suppressed...] ! x->x_canvas = canvas_getcurrent(); return x; } --- 920,935 ---- static void samplerate_tilde_bang(t_samplerate *x) { float srate = sys_getsr(); ! t_canvas *canvas = x->canvas; while (canvas) { t_block *b = (t_block *)canvas_getblock(block_class, &canvas); ! if (b) srate *= float(b->upsample) / float(b->downsample); } ! outlet_float(x->ob_outlet, srate); } static void *samplerate_tilde_new(t_symbol *s) { t_samplerate *x = (t_samplerate *)pd_new(samplerate_tilde_class); ! outlet_new(x,&s_float); ! x->canvas = canvas_getcurrent(); return x; }

1 0

externals/mapping/help curve_fade-help.pd,1.1,1.2
by Hans-Christoph Steiner 28 Jun '07

28 Jun '07

Update of /cvsroot/pure-data/externals/mapping/help In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29496/help Modified Files: curve_fade-help.pd Log Message: fixed typo Index: curve_fade-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/help/curve_fade-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** curve_fade-help.pd 23 Nov 2006 17:45:58 -0000 1.1 --- curve_fade-help.pd 28 Jun 2007 11:07:41 -0000 1.2 *************** *** 1,15 **** ! #N canvas 418 159 774 499 10; #X obj 18 168 line; #X obj 18 262 timeroll; #X obj 18 189 resample 20; - #X text 161 10 This object input and output range is 0..1; #X text 377 154 utilisation example :; ! #X obj 376 180 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 376 222 line; #X obj 376 308 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144 ! -1 -1 12700 1; #X obj 545 303 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144 ! -1 -1 12700 1; #X text 439 304 better than :; #X text 332 283 smooth fade in and out; --- 1,14 ---- ! #N canvas 57 422 778 503 10; #X obj 18 168 line; #X obj 18 262 timeroll; #X obj 18 189 resample 20; #X text 377 154 utilisation example :; ! #X obj 376 180 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 376 222 line; #X obj 376 308 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144 ! -1 -1 0 1; #X obj 545 303 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144 ! -1 -1 0 1; #X text 439 304 better than :; #X text 332 283 smooth fade in and out; *************** *** 18,35 **** from 0 to 1). The shape of this non-linearity is a 3d order polygone ; - #X text 144 92 This object is usefull when natural fade in or fade - out is neaded. (same result can be archived with the line3 external) - ; #X obj 18 210 curve_fade; #X obj 376 246 curve_fade; #X msg 18 144 0 \, 1 5000; #X msg 376 199 \$1 3000; #X connect 0 0 2 0; ! #X connect 2 0 13 0; ! #X connect 5 0 16 0; ! #X connect 6 0 8 0; ! #X connect 6 0 14 0; ! #X connect 13 0 1 0; ! #X connect 14 0 7 0; ! #X connect 15 0 0 0; ! #X connect 16 0 6 0; --- 17,35 ---- from 0 to 1). The shape of this non-linearity is a 3d order polygone ; #X obj 18 210 curve_fade; #X obj 376 246 curve_fade; #X msg 18 144 0 \, 1 5000; #X msg 376 199 \$1 3000; + #X text 144 92 This object is usefull when natural fade in or fade + out is neaded. (same result can be acheived with the line3 external) + ; + #X text 148 10 This object input and output range is 0-1; #X connect 0 0 2 0; ! #X connect 2 0 11 0; ! #X connect 4 0 14 0; ! #X connect 5 0 7 0; ! #X connect 5 0 12 0; ! #X connect 11 0 1 0; ! #X connect 12 0 6 0; ! #X connect 13 0 0 0; ! #X connect 14 0 5 0;

1 0

externals/mapping stepper.pd,1.2,1.3
by Hans-Christoph Steiner 28 Jun '07

28 Jun '07

Update of /cvsroot/pure-data/externals/mapping In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28735 Modified Files: stepper.pd Log Message: oops, forgot the loadbang for the arguments, so the didn't work Index: stepper.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/stepper.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** stepper.pd 15 Jun 2006 02:09:21 -0000 1.2 --- stepper.pd 28 Jun 2007 11:05:50 -0000 1.3 *************** *** 1,24 **** ! #N canvas 105 192 542 295 10; ! #X obj 48 33 inlet; #X obj 49 245 outlet; ! #X obj 154 32 inlet; #X obj 48 105 segment; ! #X obj 155 72 purepd/float_argument \$1; ! #X obj 357 29 inlet; ! #X obj 358 69 purepd/float_argument \$2; ! #X obj 169 155 mapping/curve; #X obj 48 134 unpack float float; #X obj 48 180 pack float float; #X obj 48 206 desegment; #X connect 0 0 3 0; ! #X connect 2 0 4 0; ! #X connect 3 0 8 0; ! #X connect 4 0 3 1; ! #X connect 4 0 10 1; ! #X connect 5 0 6 0; ! #X connect 6 0 7 1; ! #X connect 7 0 9 1; ! #X connect 8 0 9 0; ! #X connect 8 1 7 0; #X connect 9 0 10 0; ! #X connect 10 0 1 0; --- 1,27 ---- ! #N canvas 105 192 550 303 10; ! #X obj 48 13 inlet; #X obj 49 245 outlet; ! #X obj 154 12 inlet; #X obj 48 105 segment; ! #X obj 357 9 inlet; ! #X obj 151 155 mapping/curve; #X obj 48 134 unpack float float; #X obj 48 180 pack float float; #X obj 48 206 desegment; + #X obj 249 38 loadbang; + #X obj 155 72 purepd/float_argument \$1 12; + #X obj 358 69 purepd/float_argument \$2 1; #X connect 0 0 3 0; ! #X connect 2 0 10 0; ! #X connect 3 0 6 0; ! #X connect 4 0 11 0; ! #X connect 5 0 7 1; ! #X connect 6 0 7 0; ! #X connect 6 1 5 0; ! #X connect 7 0 8 0; ! #X connect 8 0 1 0; #X connect 9 0 10 0; ! #X connect 9 0 11 0; ! #X connect 10 0 3 1; ! #X connect 10 0 8 1; ! #X connect 11 0 5 1;

1 0

externals/mapping one0x2d0x3efour.pd, NONE, 1.1 one0x2d0x3ethree.pd, NONE, 1.1 one0x2d0x3etwo.pd, NONE, 1.1
by Hans-Christoph Steiner 28 Jun '07

28 Jun '07

Update of /cvsroot/pure-data/externals/mapping In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28342 Added Files: one0x2d0x3efour.pd one0x2d0x3ethree.pd one0x2d0x3etwo.pd Log Message: ported the old hid_one2two objects the mapping library --- NEW FILE: one0x2d0x3efour.pd --- #N canvas 347 139 701 325 10; #X obj 26 19 inlet; #X obj 26 278 outlet; #X obj 137 279 outlet; #X obj 253 280 outlet; #X obj 26 154 one->two; #X obj 137 191 one->two; #X obj 85 28 inlet; #X obj 101 51 loadbang; #X obj 86 98 clip 0 1; #X obj 292 27 inlet; #X obj 308 50 loadbang; #X obj 293 97 clip 0 1; #X obj 371 280 outlet; #X obj 255 221 one->two; #X obj 500 27 inlet; #X obj 516 50 loadbang; #X obj 501 97 clip 0 1; #X obj 501 76 purepd/float_argument \$3 0.75; #X obj 293 76 purepd/float_argument \$2 0.5; #X obj 86 77 purepd/float_argument \$1 0.25; #X connect 0 0 4 0; #X connect 4 0 1 0; #X connect 4 1 5 0; #X connect 5 0 2 0; #X connect 5 1 13 0; #X connect 6 0 19 0; #X connect 7 0 19 0; #X connect 8 0 4 1; #X connect 9 0 18 0; #X connect 10 0 18 0; #X connect 11 0 5 1; #X connect 13 0 3 0; #X connect 13 1 12 0; #X connect 14 0 17 0; #X connect 15 0 17 0; #X connect 16 0 13 1; #X connect 17 0 16 0; #X connect 18 0 11 0; #X connect 19 0 8 0; --- NEW FILE: one0x2d0x3etwo.pd --- #N canvas 616 92 482 348 10; #X obj 131 38 inlet; #X obj 131 253 outlet; #X obj 233 252 outlet; #X obj 233 194 /; #X obj 245 28 inlet; #X obj 261 51 loadbang; #X obj 246 77 purepd/float_argument \$1 0.5; #X obj 246 98 clip 0 1; #X msg 247 137 1 \$1; #X obj 249 165 -; #X obj 160 124 max; #X obj 160 154 -; #X connect 0 0 1 0; #X connect 0 0 10 0; #X connect 3 0 2 0; #X connect 4 0 6 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 7 0 10 1; #X connect 7 0 11 1; #X connect 8 0 9 0; #X connect 9 0 3 1; #X connect 10 0 11 0; #X connect 11 0 3 0; --- NEW FILE: one0x2d0x3ethree.pd --- #N canvas 0 22 526 323 10; #X obj 26 19 inlet; #X obj 26 278 outlet; #X obj 137 279 outlet; #X obj 253 280 outlet; #X obj 26 154 one->two; #X obj 137 221 one->two; #X obj 85 28 inlet; #X obj 101 51 loadbang; #X obj 86 98 clip 0 1; #X obj 292 27 inlet; #X obj 308 50 loadbang; #X obj 293 97 clip 0 1; #X obj 293 76 purepd/float_argument \$2 0.666667; #X obj 86 77 purepd/float_argument \$1 0.333333; #X connect 0 0 4 0; #X connect 4 0 1 0; #X connect 4 1 5 0; #X connect 5 0 2 0; #X connect 5 1 3 0; #X connect 6 0 13 0; #X connect 7 0 13 0; #X connect 8 0 4 1; #X connect 9 0 12 0; #X connect 10 0 12 0; #X connect 11 0 5 1; #X connect 12 0 11 0; #X connect 13 0 8 0;

1 0

externals/mapping/help one0x2d0x3efour-help.pd, NONE, 1.1 one0x2d0x3ethree-help.pd, NONE, 1.1 one0x2d0x3etwo-help.pd, NONE, 1.1
by Hans-Christoph Steiner 28 Jun '07

28 Jun '07

Update of /cvsroot/pure-data/externals/mapping/help In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28342/help Added Files: one0x2d0x3efour-help.pd one0x2d0x3ethree-help.pd one0x2d0x3etwo-help.pd Log Message: ported the old hid_one2two objects the mapping library --- NEW FILE: one0x2d0x3etwo-help.pd --- #N canvas 918 327 492 500 10; #X obj 5 2 cnv 15 450 20 empty empty one->two 2 11 1 18 -233017 -66577 0; #X msg 422 3 pddp; #X text 273 457 released under the GNU GPL; #X floatatom 153 110 5 0 0 0 - - -; #X floatatom 83 186 5 0 0 0 - - -; #X obj 156 91 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 86 203 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 263 186 5 0 0 0 - - -; #X obj 266 203 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X text 18 28 Simple one-to-two mapping object. The first inlet is passed thru \, the range of the output data on the second inlet starts at the point in the input range specified as an arugment.; #X text 6 457 (C) Copyright 2007 Free Software Foundation; #X floatatom 153 303 5 0 0 0 - - -; #X floatatom 83 399 5 0 0 0 - - -; #X obj 156 284 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 86 416 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 263 399 5 0 0 0 - - -; #X obj 266 416 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X text 21 243 You can set the breakpoint using the argument or the right inlet:; #X floatatom 221 333 5 0 0 0 - - -; #X obj 224 314 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 9700 1; #X obj 153 139 one->two; #X obj 153 352 one->two 0.2; #X connect 3 0 20 0; #X connect 4 0 6 0; #X connect 5 0 3 0; #X connect 7 0 8 0; #X connect 11 0 21 0; #X connect 12 0 14 0; #X connect 13 0 11 0; #X connect 15 0 16 0; #X connect 18 0 21 1; #X connect 19 0 18 0; #X connect 20 0 4 0; #X connect 20 1 7 0; #X connect 21 0 12 0; #X connect 21 1 15 0; --- NEW FILE: one0x2d0x3ethree-help.pd --- #N canvas 541 218 481 514 10; #X obj 5 2 cnv 15 450 20 empty empty one->three 2 11 1 18 -233017 -66577 0; #X msg 422 3 pddp; #X floatatom 153 110 5 0 0 0 - - -; #X floatatom 23 186 5 0 0 0 - - -; #X obj 156 91 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 26 203 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 173 186 5 0 0 0 - - -; #X obj 176 203 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 323 186 5 0 0 0 - - -; #X obj 326 203 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X text 18 28 Simple one-to-three mapping object. The first inlet is passed thru \, the range of the output data on the other inlet starts at the points in the input range specified as arugments.; #X obj 153 145 one->three; #X text 280 473 released under the GNU GPL; #X floatatom 121 299 5 0 0 0 - - -; #X floatatom 23 416 5 0 0 0 - - -; #X obj 124 280 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 26 433 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 173 416 5 0 0 0 - - -; #X obj 176 433 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 323 416 5 0 0 0 - - -; #X obj 326 433 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X text 16 473 (C) Copyright 2007 Free Software Foundation; #X text 21 243 You can set the breakpoint using the argument or the right inlet:; #X floatatom 226 356 5 0 0 0 - - -; #X obj 229 337 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 173 336 5 0 0 0 - - -; #X obj 176 317 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 121 375 one->three 0.2 0.4; #X connect 2 0 11 0; #X connect 3 0 5 0; #X connect 4 0 2 0; #X connect 6 0 7 0; #X connect 8 0 9 0; #X connect 11 0 3 0; #X connect 11 1 6 0; #X connect 11 2 8 0; #X connect 13 0 27 0; #X connect 14 0 16 0; #X connect 15 0 13 0; #X connect 17 0 18 0; #X connect 19 0 20 0; #X connect 23 0 27 2; #X connect 24 0 23 0; #X connect 25 0 27 1; #X connect 26 0 25 0; #X connect 27 0 14 0; #X connect 27 1 17 0; #X connect 27 2 19 0; --- NEW FILE: one0x2d0x3efour-help.pd --- #N canvas 90 46 633 528 10; #X obj 5 2 cnv 15 450 20 empty empty one->four 2 11 1 18 -233017 -66577 0; #X msg 422 3 pddp; #X floatatom 153 110 5 0 0 0 - - -; #X floatatom 23 186 5 0 0 0 - - -; #X obj 156 91 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 26 203 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 173 186 5 0 0 0 - - -; #X obj 176 203 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 323 186 5 0 0 0 - - -; #X obj 326 203 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X text 280 473 released under the GNU GPL; #X floatatom 121 299 5 0 0 0 - - -; #X floatatom 23 416 5 0 0 0 - - -; #X obj 124 280 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 26 433 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 173 416 5 0 0 0 - - -; #X obj 176 433 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 323 416 5 0 0 0 - - -; #X obj 326 433 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X text 16 473 (C) Copyright 2007 Free Software Foundation; #X text 21 243 You can set the breakpoint using the argument or the right inlet:; #X floatatom 226 346 5 0 0 0 - - -; #X obj 229 327 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 173 326 5 0 0 0 - - -; #X obj 176 307 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 153 145 one->four; #X text 18 28 Simple one-to-four mapping object. The first inlet is passed thru \, the range of the output data on the other inlets starts at the points in the input range specified as arguments or the cold inlets.; #X floatatom 473 186 5 0 0 0 - - -; #X obj 476 203 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 132 381 one->four 0.1 0.2 0.3; #X floatatom 266 366 5 0 0 0 - - -; #X obj 269 347 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X floatatom 473 416 5 0 0 0 - - -; #X obj 476 433 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X connect 2 0 25 0; #X connect 3 0 5 0; #X connect 4 0 2 0; #X connect 6 0 7 0; #X connect 8 0 9 0; #X connect 11 0 29 0; #X connect 12 0 14 0; #X connect 13 0 11 0; #X connect 15 0 16 0; #X connect 17 0 18 0; #X connect 21 0 29 2; #X connect 22 0 21 0; #X connect 23 0 29 1; #X connect 24 0 23 0; #X connect 25 0 3 0; #X connect 25 1 6 0; #X connect 25 2 8 0; #X connect 25 3 27 0; #X connect 27 0 28 0; #X connect 29 0 12 0; #X connect 29 1 15 0; #X connect 29 2 17 0; #X connect 29 3 32 0; #X connect 30 0 29 3; #X connect 31 0 30 0; #X connect 32 0 33 0;

1 0

pd/src d_ugen.c,1.3.4.1.2.5.2.6,1.3.4.1.2.5.2.7
by Mathieu Bouchard 28 Jun '07

28 Jun '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7731 Modified Files: Tag: desiredata d_ugen.c Log Message: cleanup Index: d_ugen.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/d_ugen.c,v retrieving revision 1.3.4.1.2.5.2.6 retrieving revision 1.3.4.1.2.5.2.7 diff -C2 -d -r1.3.4.1.2.5.2.6 -r1.3.4.1.2.5.2.7 *** d_ugen.c 28 Jun 2007 08:33:34 -0000 1.3.4.1.2.5.2.6 --- d_ugen.c 28 Jun 2007 10:09:57 -0000 1.3.4.1.2.5.2.7 *************** *** 49,67 **** }; ! t_int *zero_perform(t_int *w) /* zero out a vector */ ! { t_float *out = (t_float *)(w[1]); int n = (int)(w[2]); while (n--) *out++ = 0; ! return (w+3); } [...1415 lines suppressed...] *** 1186,1195 **** } - /* -------------------- setup routine -------------------------- */ ! void d_ugen_setup(void) ! { block_tilde_setup(); ! samplerate_tilde_setup(); } --- 1004,1011 ---- } /* -------------------- setup routine -------------------------- */ ! void d_ugen_setup () { block_tilde_setup(); ! samplerate_tilde_setup(); }

1 0

← Newer
1
2
3
4
5
6
7
8
...
22
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs June 2007