diff options
Diffstat (limited to 'externals/signal/lrshift~')
| -rw-r--r-- | externals/signal/lrshift~/help-rlshift~.pd | 29 | ||||
| -rw-r--r-- | externals/signal/lrshift~/lrshift~-help.pd | 42 | ||||
| -rw-r--r-- | externals/signal/lrshift~/lrshift~.c | 110 |
3 files changed, 0 insertions, 181 deletions
diff --git a/externals/signal/lrshift~/help-rlshift~.pd b/externals/signal/lrshift~/help-rlshift~.pd deleted file mode 100644 index c8b6c200..00000000 --- a/externals/signal/lrshift~/help-rlshift~.pd +++ /dev/null @@ -1,29 +0,0 @@ -#N canvas 143 0 673 325 12;
-#X msg 268 277 bang;
-#X obj 244 303 print~;
-#X msg 185 278 bang;
-#X obj 161 304 print~;
-#X text 53 117 click here first;
-#X msg 72 270 bang;
-#X obj 48 296 print~;
-#X text 162 222 shift left;
-#X text 243 224 shift right;
-#X obj 161 252 lrshift~ 1;
-#X obj 244 251 lrshift~ -1;
-#X text 39 37 Acting at whatever vector size the window is running at \, lrshift~ shifts samples to the left (toward the beginning sample) or to the right. The argument gives the direction and the amount of the shift. The rightmost (or leftmost) samples are set to zero.;
-#X graph graph2 0 0 63 1 448 258 648 118;
-#X array shiftin 64 float;
-#X pop;
-#X obj 47 11 rlshift~;
-#X text 115 11 -- shift signal vector elements left or right;
-#X msg 54 138 \; pd dsp 1 \; shiftin 1 1;
-#X obj 48 204 tabreceive~ shiftin;
-#X text 525 308 Updated for Pd 0.31.;
-#X connect 0 0 1 0;
-#X connect 2 0 3 0;
-#X connect 5 0 6 0;
-#X connect 9 0 3 0;
-#X connect 10 0 1 0;
-#X connect 16 0 6 0;
-#X connect 16 0 9 0;
-#X connect 16 0 10 0;
diff --git a/externals/signal/lrshift~/lrshift~-help.pd b/externals/signal/lrshift~/lrshift~-help.pd deleted file mode 100644 index 14801ecb..00000000 --- a/externals/signal/lrshift~/lrshift~-help.pd +++ /dev/null @@ -1,42 +0,0 @@ -#N canvas 552 267 685 337 12;
-#X msg 268 277 bang;
-#X obj 244 303 print~;
-#X msg 185 278 bang;
-#X obj 161 304 print~;
-#X text 53 117 click here first;
-#X msg 72 270 bang;
-#X obj 48 296 print~;
-#X text 162 222 shift left;
-#X text 243 224 shift right;
-#X obj 161 252 lrshift~ 1;
-#X obj 244 251 lrshift~ -1;
-#X text 39 37 Acting at whatever vector size the window is running
-at \, lrshift~ shifts samples to the left (toward the beginning sample)
-or to the right. The argument gives the direction and the amount of
-the shift. The rightmost (or leftmost) samples are set to zero.;
-#N canvas 0 0 450 300 (subpatch) 0;
-#X array shiftin 64 float 0;
-#X coords 0 1 63 0 200 140 1;
-#X restore 448 118 graph;
-#X text 115 11 -- shift signal vector elements left or right;
-#X msg 54 138 \; pd dsp 1 \; shiftin 1 1;
-#X obj 48 204 tabreceive~ shiftin;
-#X text 525 308 Updated for Pd 0.31.;
-#X obj 47 11 lrshift~;
-#X floatatom 339 209 5 0 0 0 - - -;
-#X msg 363 277 bang;
-#X obj 339 303 print~;
-#X text 277 186 change shift amount;
-#X obj 339 251 lrshift~;
-#X connect 0 0 1 0;
-#X connect 2 0 3 0;
-#X connect 5 0 6 0;
-#X connect 9 0 3 0;
-#X connect 10 0 1 0;
-#X connect 15 0 6 0;
-#X connect 15 0 9 0;
-#X connect 15 0 10 0;
-#X connect 15 0 22 0;
-#X connect 18 0 22 0;
-#X connect 19 0 20 0;
-#X connect 22 0 20 0;
diff --git a/externals/signal/lrshift~/lrshift~.c b/externals/signal/lrshift~/lrshift~.c deleted file mode 100644 index 87ac1029..00000000 --- a/externals/signal/lrshift~/lrshift~.c +++ /dev/null @@ -1,110 +0,0 @@ -#include "m_pd.h"
-
-/* ------------------------ lrshift~ ----------------------------- */
-
-static t_class *lrshift_tilde_class;
-
-typedef struct _lrshift_tilde
-{
- t_object x_obj;
- int x_n;
-} t_lrshift_tilde;
-
-#ifdef OBSOLETE
-static t_int *leftshift_perform(t_int *w)
-{
- t_float *in = (t_float *)(w[1]);
- t_float *out= (t_float *)(w[2]);
- int n = (int)(w[3]);
- int shift = (int)(w[4]);
- in += shift;
- n -= shift;
- while (n--)
- *out++ = *in++;
- while (shift--)
- *out++ = 0;
- return (w+5);
-}
-
-static t_int *rightshift_perform(t_int *w)
-{
- t_float *in = (t_float *)(w[1]);
- t_float *out= (t_float *)(w[2]);
- int n = (int)(w[3]);
- int shift = (int)(w[4]);
- n -= shift;
- in -= shift;
- while (n--)
- *--out = *--in;
- while (shift--)
- *--out = 0;
- return (w+5);
-}
-#endif
-
-static t_int *lrshift_perform(t_int *w)
-{
- t_float *in = (t_float *)(w[1]);
- t_float *out= (t_float *)(w[2]);
- int n = (int)(w[3]);
- t_lrshift_tilde *x = (t_lrshift_tilde *)w[4];
- int shift = x->x_n;
-
- if (shift > n)
- shift = n;
- if (shift < -n)
- shift = -n;
- if (shift < 0)
- {
- shift = -shift;
- out += n;
- in += n;
- n -= shift;
- in -= shift;
- while (n--)
- *--out = *--in;
- while (shift--)
- *--out = 0;
- }
- else
- {
- in += shift;
- n -= shift;
- while (n--)
- *out++ = *in++;
- while (shift--)
- *out++ = 0;
- }
- return (w+5);
-}
-
-static void lrshift_tilde_dsp(t_lrshift_tilde *x, t_signal **sp)
-{
- int n = sp[0]->s_n;
- dsp_add(lrshift_perform, 4, sp[0]->s_vec, sp[1]->s_vec, n, x);
-
-}
-
-static void *lrshift_tilde_new(t_floatarg f)
-{
- t_lrshift_tilde *x = (t_lrshift_tilde *)pd_new(lrshift_tilde_class);
- x->x_n = f;
- outlet_new(&x->x_obj, gensym("signal"));
- return (x);
-}
-
-static void lrshift_tilde_float(t_lrshift_tilde *x, t_floatarg f)
-{
- x->x_n = f;
-}
-
-void lrshift_tilde_setup(void)
-{
- lrshift_tilde_class = class_new(gensym("lrshift~"),
- (t_newmethod)lrshift_tilde_new, 0, sizeof(t_lrshift_tilde), 0,
- A_DEFFLOAT, 0);
- class_addmethod(lrshift_tilde_class, nullfn, gensym("signal"), 0);
- class_addmethod(lrshift_tilde_class, (t_method)lrshift_tilde_dsp,
- gensym("dsp"), 0);
- class_addfloat(lrshift_tilde_class, (t_method)lrshift_tilde_float);
-}
|