In case any of y'all is interested, I made a GOP version of the example
Derek posted earlier. It works very nicely for me, but no guarantees.
Cheers,
ian
derek holzer wrote:
If you really wanna see the math, or at least two different versions
that involve using sampling rate, see here:
http://www-ccrma.stanford.edu/~serafin/320/assign5/Implementing_basic_Karplu...
and here:
http://www.sfu.ca/~truax/reson.html
derek
pix wrote:
On Wed, Feb 16, 2005 at 04:35:09PM +0100, Davide Morelli wrote:
why must we do
deltime (msec) = (samplerate~ / Freq(Hz)) / 1000 instead?
you shouldn't have to do this, you would only need to involve
samplerate~ if you were calculating the number of samples in the delay
line. but you don't need to, you just give it milliseconds and vd~ sorts
out the annoying stuff internally.
the 1000/freq function you found should work as it gives you the
wavelength (in msecs) of the given frequency.
--
Ian Smith-Heisters
http://www.0x09.com
#N canvas 658 339 104 78 10;
#N canvas 258 594 450 300 guts 0;
#N canvas 0 0 483 366 comb_filter 0;
#X obj 235 0 inlet~ delay_length;
#X obj 119 0 inlet feedback;
#X obj 35 187 *~;
#X obj 18 0 inlet~ signal;
#X obj 19 214 +~;
#X obj 119 119 line;
#X obj 19 245 delwrite~ $0-pluck 124;
#X obj 235 245 outlet~;
#X obj 295 245 block~ 1;
#X obj 236 96 vd~ $0-pluck;
#X obj 119 96 pack 0 50;
#X connect 0 0 9 0;
#X connect 1 0 10 0;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 2 1;
#X connect 9 0 7 0;
#X connect 9 0 2 0;
#X connect 10 0 5 0;
#X restore 24 236 pd comb_filter;
#X obj 14 12 inlet~;
#X obj 78 13 r $0-s_ctrl_feedback;
#X obj 235 13 r $0-s_ctrl_resfreq;
#X obj 233 69 samplerate~;
#X obj 233 90 /;
#X obj 233 49 t b f;
#X obj 233 199 sig~;
#X obj 249 109 / 1000;
#X obj 233 129 /;
#X obj 233 176 line;
#X obj 233 151 pack 0 50;
#X obj 23 278 outlet~;
#X text 76 270 Based on Derek Holzer's notes on the Pd-mailing list
, February 15th , 2005;
#X connect 0 0 12 0;
#X connect 1 0 0 0;
#X connect 2 0 0 1;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 4 0 8 0;
#X connect 5 0 9 0;
#X connect 6 0 4 0;
#X connect 6 1 5 1;
#X connect 7 0 0 2;
#X connect 8 0 9 1;
#X connect 9 0 11 0;
#X connect 10 0 7 0;
#X connect 11 0 10 0;
#X restore 47 1 pd guts;
#X obj 4 29 hsl 90 13 0.9 0.999 0 0 $0-s_ctrl_feedback empty feedback
-2 -6 1 8 -128992 -44926 -1 8400 1;
#X obj 1 60 nbx 8 14 -1e+37 1e+37 0 0 $0-s_ctrl_resfreq empty res_freq
0 -6 1 8 -128992 -44926 -1 1384 256;
#X obj 1 1 inlet~;
#X obj 101 1 outlet~;
#X obj 158 2 inlet;
#X obj 201 3 inlet;
#X connect 0 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X coords 0 0 1 1 100 70 1;
