diff options
author | Thomas O Fredericks <mrtof@users.sourceforge.net> | 2009-10-25 00:39:13 +0000 |
---|---|---|
committer | Thomas O Fredericks <mrtof@users.sourceforge.net> | 2009-10-25 00:39:13 +0000 |
commit | f18d063d9312c95e25294e0777bc135ee9a3fd8a (patch) | |
tree | 54763b4c61f53c8ec696be54bc1c0e8d816c05aa /filterPeakSig~.pd |
Adding mtlsvn2git-root
svn path=/trunk/abstractions/mtl/; revision=12667
Diffstat (limited to 'filterPeakSig~.pd')
-rw-r--r-- | filterPeakSig~.pd | 211 |
1 files changed, 211 insertions, 0 deletions
diff --git a/filterPeakSig~.pd b/filterPeakSig~.pd new file mode 100644 index 0000000..387c9d6 --- /dev/null +++ b/filterPeakSig~.pd @@ -0,0 +1,211 @@ +#N canvas 814 361 667 473 10; +#X text 14 413 Version: 2007-09-15; +#X text 15 430 Author: Roman Haefeli; +#X text 15 394 taken and modified from 3.audio.examples/H12.peaking.pd +; +#N canvas 212 395 643 406 filterl 0; +#X obj 76 246 cpole~; +#X obj 77 291 czero~; +#X obj 343 185 *~ 0.01; +#X obj 398 185 *~ 0.01; +#X obj 361 146 cos~; +#X obj 398 147 cos~; +#X obj 398 125 -~ 0.25; +#X obj 378 42 samplerate~; +#X obj 362 64 /~; +#X obj 378 19 loadbang; +#X obj 76 15 inlet~; +#X obj 77 319 outlet~; +#X obj 147 212 *~; +#X obj 175 213 *~; +#N canvas 497 504 214 352 \$0-lookuptable 0; +#X obj 52 125 *~ -0.1; +#X obj 52 146 expr~ exp($v1); +#X obj 52 167 *~ -1; +#X obj 52 189 +~ 0.9999; +#X obj 52 104 line~; +#X msg 52 83 0.001 \, 100 1000; +#X obj 8 49 t b b b; +#X obj 30 226 tabwrite~ \$0-lookup1; +#X obj 8 272 del 1000; +#X obj 8 317 switch~; +#X obj 8 292 0; +#X obj 8 250 t b b; +#X obj 38 294 1; +#X obj 8 14 loadbang; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 7 0; +#X connect 4 0 0 0; +#X connect 5 0 4 0; +#X connect 6 0 11 0; +#X connect 6 1 7 0; +#X connect 6 2 5 0; +#X connect 8 0 10 0; +#X connect 10 0 9 0; +#X connect 11 0 8 0; +#X connect 11 1 12 0; +#X connect 12 0 9 0; +#X connect 13 0 6 0; +#X restore 305 276 pd \$0-lookuptable; +#X obj 305 298 table \$0-lookup1 44100; +#X obj 191 115 tabread~ \$0-lookup1; +#X obj 192 93 *~ 401; +#X obj 132 -20 mtof~; +#X obj 210 -29 sig~ 30; +#X floatatom 210 -54 5 0 0 0 - - -; +#X obj 134 -87 osc~ 2; +#X obj 134 -64 +~ 4; +#X obj 133 -42 *~ 24; +#X text 209 -73 Q; +#X text 133 -105 peakfreq; +#X obj 180 -85 inlet; +#X obj 223 -85 inlet; +#X connect 0 0 1 0; +#X connect 0 1 1 1; +#X connect 1 0 11 0; +#X connect 2 0 1 2; +#X connect 3 0 1 3; +#X connect 4 0 2 0; +#X connect 4 0 12 0; +#X connect 5 0 3 0; +#X connect 5 0 13 0; +#X connect 6 0 5 0; +#X connect 7 0 8 1; +#X connect 8 0 6 0; +#X connect 8 0 4 0; +#X connect 9 0 7 0; +#X connect 10 0 0 0; +#X connect 12 0 0 2; +#X connect 13 0 0 3; +#X connect 16 0 12 1; +#X connect 16 0 13 1; +#X connect 17 0 16 0; +#X connect 18 0 8 0; +#X connect 19 0 17 0; +#X connect 20 0 19 0; +#X connect 21 0 22 0; +#X connect 22 0 23 0; +#X connect 23 0 18 0; +#X connect 26 0 21 0; +#X connect 27 0 19 0; +#X restore 133 93 pd filterl; +#X obj 88 129 tof/crossfade~ 2; +#X obj 96 195 outlet~; +#X obj 146 195 outlet~; +#X obj 55 12 inlet~; +#X obj 105 12 inlet~; +#X obj 405 72 inlet params; +#X obj 405 94 tof/paramRoute; +#X obj 405 118 print PARAM_NOTFOUND; +#X obj 207 128 tof/param /wet 0 /g slider 0 1; +#X obj 207 171 line~; +#X msg 207 150 \$1 5; +#X obj 165 14 tof/param /frequency 2 /g slider 1 1000; +#X obj 175 34 tof/param /q 0 /g slider 0 100; +#N canvas 213 427 643 406 filterl 0; +#X obj 76 246 cpole~; +#X obj 77 291 czero~; +#X obj 343 185 *~ 0.01; +#X obj 398 185 *~ 0.01; +#X obj 361 146 cos~; +#X obj 398 147 cos~; +#X obj 398 125 -~ 0.25; +#X obj 378 42 samplerate~; +#X obj 362 64 /~; +#X obj 378 19 loadbang; +#X obj 76 15 inlet~; +#X obj 77 319 outlet~; +#X obj 147 212 *~; +#X obj 175 213 *~; +#N canvas 808 267 214 352 \$0-lookuptable 0; +#X obj 52 125 *~ -0.1; +#X obj 52 146 expr~ exp($v1); +#X obj 52 167 *~ -1; +#X obj 52 189 +~ 0.9999; +#X obj 52 104 line~; +#X msg 52 83 0.001 \, 100 1000; +#X obj 8 49 t b b b; +#X obj 8 272 del 1000; +#X obj 8 317 switch~; +#X obj 8 292 0; +#X obj 8 250 t b b; +#X obj 38 294 1; +#X obj 8 14 loadbang; +#X obj 30 226 tabwrite~ \$0-lookup2; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 13 0; +#X connect 4 0 0 0; +#X connect 5 0 4 0; +#X connect 6 0 10 0; +#X connect 6 1 13 0; +#X connect 6 2 5 0; +#X connect 7 0 9 0; +#X connect 9 0 8 0; +#X connect 10 0 7 0; +#X connect 10 1 11 0; +#X connect 11 0 8 0; +#X connect 12 0 6 0; +#X restore 305 276 pd \$0-lookuptable; +#X obj 192 93 *~ 401; +#X obj 132 -20 mtof~; +#X obj 210 -29 sig~ 30; +#X floatatom 210 -54 5 0 0 0 - - -; +#X obj 134 -87 osc~ 2; +#X obj 134 -64 +~ 4; +#X obj 133 -42 *~ 24; +#X text 209 -73 Q; +#X text 133 -105 peakfreq; +#X obj 180 -85 inlet; +#X obj 223 -85 inlet; +#X obj 305 298 table \$0-lookup2 44100; +#X obj 191 115 tabread~ \$0-lookup2; +#X connect 0 0 1 0; +#X connect 0 1 1 1; +#X connect 1 0 11 0; +#X connect 2 0 1 2; +#X connect 3 0 1 3; +#X connect 4 0 2 0; +#X connect 4 0 12 0; +#X connect 5 0 3 0; +#X connect 5 0 13 0; +#X connect 6 0 5 0; +#X connect 7 0 8 1; +#X connect 8 0 6 0; +#X connect 8 0 4 0; +#X connect 9 0 7 0; +#X connect 10 0 0 0; +#X connect 12 0 0 2; +#X connect 13 0 0 3; +#X connect 15 0 27 0; +#X connect 16 0 8 0; +#X connect 17 0 15 0; +#X connect 18 0 17 0; +#X connect 19 0 20 0; +#X connect 20 0 21 0; +#X connect 21 0 16 0; +#X connect 24 0 19 0; +#X connect 25 0 17 0; +#X connect 27 0 12 1; +#X connect 27 0 13 1; +#X restore 203 93 pd filterl; +#X connect 3 0 4 2; +#X connect 4 0 5 0; +#X connect 4 1 6 0; +#X connect 7 0 4 0; +#X connect 7 0 3 0; +#X connect 8 0 4 1; +#X connect 8 0 17 0; +#X connect 9 0 10 0; +#X connect 10 0 11 0; +#X connect 12 0 14 0; +#X connect 13 0 4 4; +#X connect 14 0 13 0; +#X connect 15 0 3 1; +#X connect 15 0 17 1; +#X connect 16 0 3 2; +#X connect 16 0 17 2; +#X connect 17 0 4 3; |