[PD] rjdj, was : Re: [equalizer] / [lowshelf] / [highshelf] in purepd!

[Frank Barknecht]

Hallo,
cyrille henry hat gesagt: // cyrille henry wrote:

> ok.here is a version using [pow~ -1] to replace [>~ 0]
> it should work with vanilla pd version >= 0.42 and with rjdj.
> and certainly with pd-extended.

I also did one which replaces >~ with the tabread lookup from Enrique's [>~] embedded.

Ciao
-- 
Frank
-------------- next part --------------
#N canvas 232 120 725 608 10;
#X obj 105 96 phasor~;
#X obj 173 131 -~ 0.5;
#X obj 421 192 *~ 2;
#X obj 328 217 wrap~;
#X obj 329 243 *~ 2;
#X obj 329 268 -~ 1;
#X obj 459 191 /~;
#X obj 458 146 sig~ 22050;
#X obj 421 219 *~;
#X obj 422 241 abs~;
#X obj 421 263 +~ 1.8955;
#X obj 106 49 inlet~;
#X obj 87 542 outlet~;
#X obj 458 97 samplerate~;
#X obj 458 74 loadbang;
#X obj 458 120 * 0.5;
#X obj 174 427 +~;
#N canvas 104 42 701 480 sin(x)/x 0;
#X obj 220 229 cos~;
#X obj 221 204 -~ 0.25;
#X msg 288 90 1;
#X floatatom 288 162 5 0 0 0 - - -;
#X obj 288 116 atan;
#X obj 288 137 * 8;
#X obj 220 181 /~ 6.238;
#X obj 288 67 loadbang;
#X obj 221 148 inlet~;
#X obj 219 291 outlet~;
#X obj 220 255 /~;
#X connect 0 0 10 0;
#X connect 1 0 0 0;
#X connect 2 0 4 0;
#X connect 3 0 6 1;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 8 0 6 0;
#X connect 8 0 10 1;
#X connect 10 0 9 0;
#X restore 421 293 pd sin(x)/x;
#X obj 330 392 *~;
#X text 357 387 v2*sin(v4)/v4;
#X text 208 426 + v3;
#X obj 87 482 -~;
#X obj 557 476 loadbang;
#X obj 557 539 table \$0-lookup 2;
#X obj 175 333 tabread~ \$0-lookup;
#X obj 174 311 +~ 1;
#X obj 557 518 s \$0-lookup;
#X msg 557 497 0 0 1;
#X connect 0 0 1 0;
#X connect 0 0 21 1;
#X connect 1 0 2 0;
#X connect 1 0 3 0;
#X connect 1 0 25 0;
#X connect 2 0 8 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 18 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 17 0;
#X connect 11 0 0 0;
#X connect 11 0 6 1;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 7 0;
#X connect 16 0 21 0;
#X connect 17 0 18 1;
#X connect 18 0 16 1;
#X connect 21 0 12 0;
#X connect 22 0 27 0;
#X connect 24 0 16 0;
#X connect 25 0 24 0;
#X connect 27 0 26 0;