#N canvas 213 9 614 383 12;
#X msg 225 315 bang;
#X obj 201 341 print~;
#X graph graph1 0 -1 63 1 367 335 567 185;
#X array array1 64 float;
#X pop;
#X msg 155 317 bang;
#X obj 45 206 tabreceive~ array1;
#X obj 131 343 print~;
#X text 48 110 click here first;
#X msg 74 314 bang;
#X obj 50 340 print~;
#X text 93 23 This is a test of the "lrshift~" object \, which can be used for calculations that compare neighboring bins of an FFT. The "tabreceive~" picks up the contents of "array1' (consisting of 0 \, 1 \, 0 \, 0 \, ...) and the three print~ objects show the input and the two outputs.;
#X text 155 224 shift left;
#X text 182 260 shift right;
#X obj 128 240 lrshift~ 1;
#X obj 149 276 lrshift~ -1;
#X msg 49 131 \; pd dsp 1 \; array1 1 1;
#X text 223 5 SAMPLE SHIFTS;
#X connect 0 0 1 0;
#X connect 3 0 5 0;
#X connect 4 0 8 0;
#X connect 4 0 12 0;
#X connect 4 0 13 0;
#X connect 7 0 8 0;
#X connect 12 0 5 0;
#X connect 13 0 1 0;