2 files changed, 103 insertions, 0 deletions
diff --git a/externals/signal/lrshift~/help-rlshift~.pd b/externals/signal/lrshift~/help-rlshift~.pd
new file mode 100644
index 00000000..c8b6c200
--- /dev/null
+++ b/externals/signal/lrshift~/help-rlshift~.pd
@@ -0,0 +1,29 @@
+#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~.c b/externals/signal/lrshift~/lrshift~.c
new file mode 100644
index 00000000..c0fc4c1f
--- /dev/null
+++ b/externals/signal/lrshift~/lrshift~.c
@@ -0,0 +1,74 @@
+#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;
+
+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);
+}
+
+static void lrshift_tilde_dsp(t_lrshift_tilde *x, t_signal **sp)
+{
+    int n = sp[0]->s_n;
+    int shift = x->x_n;
+    if (shift > n)
+    	shift = n;
+    if (shift < -n)
+    	shift = -n;
+    if (shift < 0)
+    	dsp_add(rightshift_perform, 4,
+    	    sp[0]->s_vec + n, sp[1]->s_vec + n, n, -shift);
+    else dsp_add(leftshift_perform, 4,
+    	    sp[0]->s_vec, sp[1]->s_vec, n, shift);
+}
+
+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);
+}
+
+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);
+}