From 11021db5316f4e75fb210cbc8d3b6f8e315c9a65 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sat, 7 Aug 2010 18:40:16 +0000 Subject: fixed up two abstractions svn path=/trunk/externals/motex/; revision=13767 --- examples/polvoc.pd | 178 +++++++++++++++++++++++++++++++++++++++++++++++++++++ noisegate~-help.pd | 6 ++ polvoc-help.pd | 178 ----------------------------------------------------- 3 files changed, 184 insertions(+), 178 deletions(-) create mode 100644 examples/polvoc.pd create mode 100644 noisegate~-help.pd delete mode 100644 polvoc-help.pd diff --git a/examples/polvoc.pd b/examples/polvoc.pd new file mode 100644 index 0000000..02ea2e1 --- /dev/null +++ b/examples/polvoc.pd @@ -0,0 +1,178 @@ +#N canvas 0 37 876 567 10; +#N canvas 217 33 719 609 fft-analysis 0; +#X obj 213 68 *~; +#X obj 261 23 inlet~; +#X obj 213 91 rfft~; +#X obj 46 403 *~; +#X obj 76 66 *~; +#X obj 113 1 inlet~; +#X obj 61 34 tabreceive~ hanning; +#X obj 78 91 rfft~; +#X obj 77 541 outlet~; +#X obj 81 170 rec2pol~; +#X obj 128 127 *~; +#X obj 88 127 *~; +#X obj 248 118 *~; +#X obj 213 118 *~; +#X obj 97 379 rifft~; +#X obj 170 333 pol2rec~; +#X obj 159 222 *~; +#X obj 191 160 rec2pol~; +#X obj 221 259 *~ 0.02; +#X obj 221 286 *~ 1.4; +#X obj 502 311 block~ 1024 4; +#X obj 141 474 *~ 0.05; +#X text 251 439 noisegate arguments: threshold \, fadein time \, fadeout time; +#X obj 112 441 noisegate~ 80 100 200; +#X obj 302 74 sig~ 0.0097; +#X obj 130 88 sig~ 0.001; +#X connect 0 0 2 0; +#X connect 1 0 0 1; +#X connect 2 0 13 0; +#X connect 2 1 12 0; +#X connect 3 0 23 0; +#X connect 4 0 7 0; +#X connect 5 0 4 1; +#X connect 6 0 4 0; +#X connect 6 0 0 0; +#X connect 6 0 3 0; +#X connect 7 0 11 0; +#X connect 7 1 10 0; +#X connect 9 0 15 0; +#X connect 9 1 16 0; +#X connect 10 0 9 1; +#X connect 11 0 9 0; +#X connect 12 0 17 1; +#X connect 13 0 17 0; +#X connect 14 0 3 1; +#X connect 15 0 14 0; +#X connect 15 1 14 1; +#X connect 16 0 19 0; +#X connect 17 1 16 1; +#X connect 17 1 18 0; +#X connect 18 0 19 0; +#X connect 19 0 15 1; +#X connect 23 0 8 0; +#X connect 23 0 21 0; +#X connect 24 0 12 1; +#X connect 24 0 13 1; +#X connect 25 0 11 1; +#X connect 25 0 10 1; +#X restore 326 407 pd fft-analysis; +#X obj 326 431 *~; +#X obj 474 448 line~; +#X floatatom 680 49 0 0 0; +#N canvas 194 37 397 591 output 0; +#X obj 62 191 t b; +#X obj 62 144 f; +#X obj 62 96 inlet; +#X text 67 76 mute; +#X obj 62 215 f; +#X msg 127 230 0; +#X msg 62 120 bang; +#X obj 62 167 moses 1; +#X obj 127 207 t b f; +#X obj 91 417 outlet; +#X msg 91 393 set \$1; +#X obj 175 154 moses 1; +#X obj 212 419 dbtorms; +#X obj 212 443 pack 0 100; +#X obj 175 130 r master-lvl; +#X obj 91 360 r master-lvl; +#X obj 78 269 s master-lvl; +#X obj 212 467 s master-amp; +#X connect 0 0 4 0; +#X connect 1 0 7 0; +#X connect 2 0 6 0; +#X connect 4 0 16 0; +#X connect 5 0 16 0; +#X connect 6 0 1 0; +#X connect 7 0 0 0; +#X connect 7 1 8 0; +#X connect 8 0 5 0; +#X connect 10 0 9 0; +#X connect 11 1 4 1; +#X connect 12 0 13 0; +#X connect 13 0 17 0; +#X connect 14 0 1 1; +#X connect 14 0 11 0; +#X connect 15 0 10 0; +#X connect 15 0 12 0; +#X restore 680 26 pd output; +#X msg 680 2 mute; +#X text 717 43 MASTER; +#X text 717 57 LEVEL; +#X obj 680 74 s master-lvl; +#X obj 472 421 r master-amp; +#N canvas 275 71 767 761 hanning-window 0; +#X obj 92 206 phasor~; +#X obj 92 234 cos~; +#X obj 23 328 tabwrite~ hanning; +#X obj 30 252 -~; +#X obj 30 218 sig~ 1; +#X msg 37 180 0; +#X text 141 13 CALCULATE HANNING; +#X text 141 27 WINDOW TABLE; +#X graph graph1 0 -1 1024 1 275 581 675 281; +#X array hanning 1024 float; +#X pop; +#X msg 275 547 \; hanning resize 1024; +#X obj 93 131 / 1024; +#X obj 93 171 sig~; +#X text 175 148 sample rate / window size; +#X msg 23 144 bang; +#X obj 66 269 sig~ 0.5; +#X obj 49 300 *~; +#X obj 67 96 samplerate~; +#X obj 25 23 r window-size; +#X obj 25 53 t b f; +#X connect 0 0 1 0; +#X connect 1 0 3 1; +#X connect 3 0 15 0; +#X connect 4 0 3 0; +#X connect 5 0 0 1; +#X connect 10 0 11 0; +#X connect 11 0 0 0; +#X connect 13 0 2 0; +#X connect 13 0 5 0; +#X connect 14 0 15 1; +#X connect 15 0 2 0; +#X connect 16 0 10 0; +#X connect 17 0 18 0; +#X connect 18 0 16 0; +#X connect 18 0 13 0; +#X connect 18 1 10 1; +#X restore 675 143 pd hanning-window; +#X msg 393 66 \; window-size 1024 \; pd dsp 1; +#X text 434 370 filter; +#X text 436 385 input; +#X obj 326 254 phasor~ 220; +#X floatatom 358 151 4 0 0; +#X obj 341 185 mtof; +#X obj 351 293 noise~; +#X obj 351 317 *~ 0.12; +#X obj 201 247 adc~; +#X obj 393 12 loadbang; +#X msg 295 80 36; +#X text 13 81 Example using rec2pol & pol2rec; +#X text 84 245 talk into this:; +#X text 401 150 adjust pitch; +#X text 654 419 IM 2001; +#X obj 322 468 dac~; +#X connect 0 0 1 0; +#X connect 1 0 26 0; +#X connect 1 0 26 1; +#X connect 2 0 1 1; +#X connect 3 0 8 0; +#X connect 4 0 3 0; +#X connect 5 0 4 0; +#X connect 9 0 2 0; +#X connect 14 0 0 0; +#X connect 15 0 16 0; +#X connect 16 0 14 0; +#X connect 17 0 18 0; +#X connect 18 0 0 0; +#X connect 19 0 0 1; +#X connect 20 0 11 0; +#X connect 20 0 21 0; +#X connect 21 0 15 0; diff --git a/noisegate~-help.pd b/noisegate~-help.pd new file mode 100644 index 0000000..0d434c0 --- /dev/null +++ b/noisegate~-help.pd @@ -0,0 +1,6 @@ +#N canvas 1 52 450 300 10; +#X obj 131 140 noisegate~; +#X obj 122 200 dac~; +#X text 49 67 comment; +#X connect 0 0 1 0; +#X connect 0 0 1 1; diff --git a/polvoc-help.pd b/polvoc-help.pd deleted file mode 100644 index 02ea2e1..0000000 --- a/polvoc-help.pd +++ /dev/null @@ -1,178 +0,0 @@ -#N canvas 0 37 876 567 10; -#N canvas 217 33 719 609 fft-analysis 0; -#X obj 213 68 *~; -#X obj 261 23 inlet~; -#X obj 213 91 rfft~; -#X obj 46 403 *~; -#X obj 76 66 *~; -#X obj 113 1 inlet~; -#X obj 61 34 tabreceive~ hanning; -#X obj 78 91 rfft~; -#X obj 77 541 outlet~; -#X obj 81 170 rec2pol~; -#X obj 128 127 *~; -#X obj 88 127 *~; -#X obj 248 118 *~; -#X obj 213 118 *~; -#X obj 97 379 rifft~; -#X obj 170 333 pol2rec~; -#X obj 159 222 *~; -#X obj 191 160 rec2pol~; -#X obj 221 259 *~ 0.02; -#X obj 221 286 *~ 1.4; -#X obj 502 311 block~ 1024 4; -#X obj 141 474 *~ 0.05; -#X text 251 439 noisegate arguments: threshold \, fadein time \, fadeout time; -#X obj 112 441 noisegate~ 80 100 200; -#X obj 302 74 sig~ 0.0097; -#X obj 130 88 sig~ 0.001; -#X connect 0 0 2 0; -#X connect 1 0 0 1; -#X connect 2 0 13 0; -#X connect 2 1 12 0; -#X connect 3 0 23 0; -#X connect 4 0 7 0; -#X connect 5 0 4 1; -#X connect 6 0 4 0; -#X connect 6 0 0 0; -#X connect 6 0 3 0; -#X connect 7 0 11 0; -#X connect 7 1 10 0; -#X connect 9 0 15 0; -#X connect 9 1 16 0; -#X connect 10 0 9 1; -#X connect 11 0 9 0; -#X connect 12 0 17 1; -#X connect 13 0 17 0; -#X connect 14 0 3 1; -#X connect 15 0 14 0; -#X connect 15 1 14 1; -#X connect 16 0 19 0; -#X connect 17 1 16 1; -#X connect 17 1 18 0; -#X connect 18 0 19 0; -#X connect 19 0 15 1; -#X connect 23 0 8 0; -#X connect 23 0 21 0; -#X connect 24 0 12 1; -#X connect 24 0 13 1; -#X connect 25 0 11 1; -#X connect 25 0 10 1; -#X restore 326 407 pd fft-analysis; -#X obj 326 431 *~; -#X obj 474 448 line~; -#X floatatom 680 49 0 0 0; -#N canvas 194 37 397 591 output 0; -#X obj 62 191 t b; -#X obj 62 144 f; -#X obj 62 96 inlet; -#X text 67 76 mute; -#X obj 62 215 f; -#X msg 127 230 0; -#X msg 62 120 bang; -#X obj 62 167 moses 1; -#X obj 127 207 t b f; -#X obj 91 417 outlet; -#X msg 91 393 set \$1; -#X obj 175 154 moses 1; -#X obj 212 419 dbtorms; -#X obj 212 443 pack 0 100; -#X obj 175 130 r master-lvl; -#X obj 91 360 r master-lvl; -#X obj 78 269 s master-lvl; -#X obj 212 467 s master-amp; -#X connect 0 0 4 0; -#X connect 1 0 7 0; -#X connect 2 0 6 0; -#X connect 4 0 16 0; -#X connect 5 0 16 0; -#X connect 6 0 1 0; -#X connect 7 0 0 0; -#X connect 7 1 8 0; -#X connect 8 0 5 0; -#X connect 10 0 9 0; -#X connect 11 1 4 1; -#X connect 12 0 13 0; -#X connect 13 0 17 0; -#X connect 14 0 1 1; -#X connect 14 0 11 0; -#X connect 15 0 10 0; -#X connect 15 0 12 0; -#X restore 680 26 pd output; -#X msg 680 2 mute; -#X text 717 43 MASTER; -#X text 717 57 LEVEL; -#X obj 680 74 s master-lvl; -#X obj 472 421 r master-amp; -#N canvas 275 71 767 761 hanning-window 0; -#X obj 92 206 phasor~; -#X obj 92 234 cos~; -#X obj 23 328 tabwrite~ hanning; -#X obj 30 252 -~; -#X obj 30 218 sig~ 1; -#X msg 37 180 0; -#X text 141 13 CALCULATE HANNING; -#X text 141 27 WINDOW TABLE; -#X graph graph1 0 -1 1024 1 275 581 675 281; -#X array hanning 1024 float; -#X pop; -#X msg 275 547 \; hanning resize 1024; -#X obj 93 131 / 1024; -#X obj 93 171 sig~; -#X text 175 148 sample rate / window size; -#X msg 23 144 bang; -#X obj 66 269 sig~ 0.5; -#X obj 49 300 *~; -#X obj 67 96 samplerate~; -#X obj 25 23 r window-size; -#X obj 25 53 t b f; -#X connect 0 0 1 0; -#X connect 1 0 3 1; -#X connect 3 0 15 0; -#X connect 4 0 3 0; -#X connect 5 0 0 1; -#X connect 10 0 11 0; -#X connect 11 0 0 0; -#X connect 13 0 2 0; -#X connect 13 0 5 0; -#X connect 14 0 15 1; -#X connect 15 0 2 0; -#X connect 16 0 10 0; -#X connect 17 0 18 0; -#X connect 18 0 16 0; -#X connect 18 0 13 0; -#X connect 18 1 10 1; -#X restore 675 143 pd hanning-window; -#X msg 393 66 \; window-size 1024 \; pd dsp 1; -#X text 434 370 filter; -#X text 436 385 input; -#X obj 326 254 phasor~ 220; -#X floatatom 358 151 4 0 0; -#X obj 341 185 mtof; -#X obj 351 293 noise~; -#X obj 351 317 *~ 0.12; -#X obj 201 247 adc~; -#X obj 393 12 loadbang; -#X msg 295 80 36; -#X text 13 81 Example using rec2pol & pol2rec; -#X text 84 245 talk into this:; -#X text 401 150 adjust pitch; -#X text 654 419 IM 2001; -#X obj 322 468 dac~; -#X connect 0 0 1 0; -#X connect 1 0 26 0; -#X connect 1 0 26 1; -#X connect 2 0 1 1; -#X connect 3 0 8 0; -#X connect 4 0 3 0; -#X connect 5 0 4 0; -#X connect 9 0 2 0; -#X connect 14 0 0 0; -#X connect 15 0 16 0; -#X connect 16 0 14 0; -#X connect 17 0 18 0; -#X connect 18 0 0 0; -#X connect 19 0 0 1; -#X connect 20 0 11 0; -#X connect 20 0 21 0; -#X connect 21 0 15 0; -- cgit v1.2.1