[PD] delay effects in PD: suggestions?

[Frank Barknecht]

Hallo,
derek holzer hat gesagt: // derek holzer wrote:

> All of these are easily built using [delwrite~], [delread~] and [vd~]. 
> See attached patch from my workshop examples.

Small correction: The panner doesn't pan correctly. Attached is a fix.

Ciao
-- 
 Frank Barknecht                 _ ______footils.org_ __goto10.org__
-------------- next part --------------
#N canvas 455 145 626 459 10;
#X obj 23 36 adc~;
#X obj 96 36 hsl 128 15 0 0.99 0 1 empty empty feedback_(0-.99) -2
-6 0 8 -24198 -1 -1 8900 1;
#X text 445 407 derek at umatic.nl;
#X msg 366 391 \; pd dsp \$1;
#X obj 366 368 tgl 20 0 empty empty on/off 25 8 0 8 -258699 -1 -1 1
1;
#X obj 30 349 dac~;
#X obj 60 320 *~;
#X obj 148 280 dbtorms;
#X obj 30 320 *~;
#X obj 22 126 cnv 15 150 120 empty empty TAP_ONE 80 110 0 14 -233017
-66577 0;
#X obj 34 135 hsl 128 15 0 1000 0 1 empty empty delay_time -2 -6 0
8 -24198 -1 -1 5700 1;
#X obj 31 159 vd~ delay_two;
#N canvas 0 0 391 265 panner 0;
#X obj 31 18 inlet~;
#X obj 29 185 outlet~ left;
#X obj 179 185 outlet~ right;
#X obj 30 154 *~;
#X obj 47 110 pack 0 50;
#X obj 47 131 line~;
#X obj 196 19 inlet slider;
#X obj 179 154 *~;
#X obj 196 110 pack 0 50;
#X obj 196 131 line~;
#X text 252 224 derek at umatic.nl;
#X obj 128 67 -;
#X msg 128 47 1 \$1;
#X connect 0 0 3 0;
#X connect 0 0 7 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 3 1;
#X connect 6 0 12 0;
#X connect 6 0 8 0;
#X connect 7 0 2 0;
#X connect 8 0 9 0;
#X connect 9 0 7 1;
#X connect 11 0 4 0;
#X connect 12 0 11 0;
#X restore 31 211 pd panner;
#X obj 60 190 hsl 100 15 0 1 0 1 empty empty panner -2 -6 0 8 -24198
-1 -1 1200 1;
#X obj 177 126 cnv 15 150 120 empty empty TAP_TWO 80 110 0 14 -233017
-66577 0;
#X obj 188 135 hsl 128 15 0 1000 0 1 empty empty delay_time -2 -6 0
8 -24198 -1 -1 200 1;
#X obj 185 159 vd~ delay_two;
#N canvas 21 15 391 265 panner 0;
#X obj 31 18 inlet~;
#X obj 29 185 outlet~ left;
#X obj 179 185 outlet~ right;
#X obj 30 154 *~;
#X obj 47 110 pack 0 50;
#X obj 47 131 line~;
#X obj 196 19 inlet slider;
#X obj 179 154 *~;
#X obj 196 110 pack 0 50;
#X obj 196 131 line~;
#X text 252 224 derek at umatic.nl;
#X obj 128 67 -;
#X msg 128 47 1 \$1;
#X connect 0 0 3 0;
#X connect 0 0 7 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 3 1;
#X connect 6 0 8 0;
#X connect 6 0 12 0;
#X connect 7 0 2 0;
#X connect 8 0 9 0;
#X connect 9 0 7 1;
#X connect 11 0 4 0;
#X connect 12 0 11 0;
#X restore 185 211 pd panner;
#X obj 214 190 hsl 100 15 0 1 0 1 empty empty panner -2 -6 0 8 -24198
-1 -1 5200 1;
#X obj 332 126 cnv 15 150 120 empty empty TAP_THREE 60 110 0 14 -233017
-66577 0;
#X obj 342 135 hsl 128 15 0 1000 0 1 empty empty delay_time -2 -6 0
8 -24198 -1 -1 12500 1;
#X obj 339 159 vd~ delay_two;
#N canvas 0 0 391 265 panner 0;
#X obj 31 18 inlet~;
#X obj 29 185 outlet~ left;
#X obj 179 185 outlet~ right;
#X obj 30 154 *~;
#X obj 47 110 pack 0 50;
#X obj 47 131 line~;
#X obj 196 19 inlet slider;
#X obj 179 154 *~;
#X obj 196 110 pack 0 50;
#X obj 196 131 line~;
#X text 252 224 derek at umatic.nl;
#X obj 128 67 -;
#X msg 128 47 1 \$1;
#X connect 0 0 3 0;
#X connect 0 0 7 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 3 1;
#X connect 6 0 8 0;
#X connect 6 0 12 0;
#X connect 7 0 2 0;
#X connect 8 0 9 0;
#X connect 9 0 7 1;
#X connect 11 0 4 0;
#X connect 12 0 11 0;
#X restore 338 211 pd panner;
#X obj 367 190 hsl 100 15 0 1 0 1 empty empty panner -2 -6 0 8 -24198
-1 -1 9200 1;
#X obj 216 279 cnv 15 110 20 empty empty empty 20 12 0 14 -24198 -66577
0;
#X floatatom 218 280 0 0 100 1 master_gain - -;
#X obj 93 56 pack 0 50;
#X obj 93 77 line~;
#N canvas 0 0 327 195 feedback 0;
#X obj 14 16 inlet~;
#X obj 66 95 *~;
#X text 179 161 derek at umatic.nl;
#X obj 83 16 inlet~ fader;
#X obj 15 123 delwrite~ delay_two 1000;
#X obj 67 59 delread~ delay_two 1000;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 3 0 1 1;
#X connect 5 0 1 0;
#X restore 22 99 pd feedback;
#X text 178 65 Here we have a multi-tap delay \, each tap has been
set to a different length in ms \, and has also been panned to different
locations in the setreo field. Jah Rastafari!!!;
#X connect 0 0 28 0;
#X connect 1 0 26 0;
#X connect 4 0 3 0;
#X connect 6 0 5 1;
#X connect 7 0 6 1;
#X connect 7 0 8 1;
#X connect 8 0 5 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X connect 12 1 6 0;
#X connect 13 0 12 1;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 8 0;
#X connect 17 1 6 0;
#X connect 18 0 17 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 8 0;
#X connect 22 1 6 0;
#X connect 23 0 22 1;
#X connect 25 0 7 0;
#X connect 26 0 27 0;
#X connect 27 0 28 1;