[PD] Non-transposing delay

[Jamie Bullock]

On Thu, 2008-06-05 at 19:22 +0200, Luigi Rensinghoff wrote:
> Hi
> 
> 
> what about vd~ ?? Is it not what you are looking for ? 
> 
> 
> Or is "non-transposing-delay" any kind of special term i dont know
> of ??

By 'non-transposing' I mean that the pitch of the delayed signal doesn't
get changed as a byproduct of the dynamic change in delay time.

Anyhow, I managed to work something out by porting vdb~ from the Max/MSP
ejies library. See attached.

best,

Jamie


-- 
www.postlude.co.uk
-------------- next part --------------
#N canvas 739 43 512 698 10;
#X obj -8 6 inlet~;
#X obj 133 10 inlet;
#X obj 336 12 inlet;
#X obj -7 635 outlet~;
#X obj 133 134 max 0.01;
#X obj 135 185 /;
#X msg 134 159 1000 \$1;
#X obj 136 209 phasor~ 13.3333;
#X obj 136 234 cos~;
#X obj 136 257 *~ 0.5;
#X obj 136 279 +~ 0.5;
#X obj 204 37 unpack \$1 \$2;
#X obj 204 58 sel 0;
#X obj 205 81 f 75;
#X obj 203 12 loadbang;
#X obj 9 307 sig~;
#X obj 9 342 samphold~;
#X obj 9 389 vd~ \$0-del;
#X obj 9 423 *~;
#X obj 9 458 +~;
#X obj 170 420 *~;
#X obj 170 337 samphold~;
#X obj 284 131 s \$0-delaytime;
#X obj 10 281 r \$0-delaytime;
#X obj 230 308 -~;
#X obj 230 277 sig~ 1;
#X obj 170 370 vd~ \$0-del;
#X obj 74 636 delwrite~ \$0-del 20000;
#X obj -8 570 +~;
#X obj 402 11 inlet;
#X obj 403 131 s \$0-feedback;
#X obj 49 511 r \$0-feedback;
#X obj 10 534 *~ 0.5;
#X text -7 666 Pd port of vdb~ for Max/MSP by Benjamin Thigpen & Emmanuel
Jourdan;
#X text 129 -6 Window size in ms;
#X connect 0 0 28 0;
#X connect 1 0 4 0;
#X connect 2 0 22 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 16 1;
#X connect 10 0 18 1;
#X connect 10 0 24 1;
#X connect 11 0 12 0;
#X connect 11 1 22 0;
#X connect 12 0 13 0;
#X connect 13 0 4 0;
#X connect 14 0 11 0;
#X connect 15 0 16 0;
#X connect 15 0 21 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 32 0;
#X connect 20 0 19 1;
#X connect 21 0 26 0;
#X connect 23 0 15 0;
#X connect 24 0 21 1;
#X connect 24 0 20 1;
#X connect 25 0 24 0;
#X connect 26 0 20 0;
#X connect 28 0 27 0;
#X connect 28 0 3 0;
#X connect 29 0 30 0;
#X connect 31 0 32 1;
#X connect 32 0 28 1;
-------------- next part --------------
#N canvas 211 325 221 297 10;
#X obj 39 148 vdb~;
#X obj 40 42 adc~;
#X obj 39 228 dac~;
#X obj 40 67 *~ 0.1;
#X floatatom 109 137 5 0 0 0 - - -;
#X obj 155 -22 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 12400 1;
#X floatatom 155 136 5 0 0 0 - - -;
#X text 152 -41 Feedback;
#X text 27 -42 Delay time (ms);
#X obj 110 -21 vsl 15 128 0 1270 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 0 1;
#X connect 0 0 2 0;
#X connect 0 0 2 1;
#X connect 1 0 3 0;
#X connect 3 0 0 0;
#X connect 5 0 6 0;
#X connect 5 0 0 3;
#X connect 9 0 4 0;
#X connect 9 0 0 2;