Commit b150a765 authored by Jérôme Abel's avatar Jérôme Abel

smp-vocoder bash direct in the [pack], not with [loadband]

parent e42fb060
......@@ -7,20 +7,20 @@
#X obj 180 68 bng 10 250 50 0 \$0-load \$0-load-in o 3 4 1 9 -187776
-33289 -33289;
#X obj 161 100 nbx 3 10 1 1000 0 0 \$0-speedpercent \$0-speedpercent-r
speed -28 5 1 9 -187776 -33289 -33289 1 256;
speed -28 5 1 9 -187776 -33289 -33289 100 256;
#X obj 53 90 hsl 135 10 0 1 0 0 \$0-crossfade \$0-crossfade-r crossfade
1 5 1 9 -187776 -33289 -33289 0 1;
1 5 1 9 -187776 -33289 -33289 3350 1;
#X obj 53 110 hsl 65 10 0 1 0 0 \$0-duration \$0-duration-r duration
1 5 1 9 -187776 -33289 -33289 0 1;
1 5 1 9 -187776 -33289 -33289 6400 1;
#X obj 170 68 bng 10 250 50 0 \$0-reset \$0-reset-in r 4 4 1 9 -228856
-33289 -33289;
#X obj 123 110 hsl 65 10 0 1 0 0 \$0-gain \$0-gain-r gain 1 5 1 9 -187776
-33289 -33289 0 1;
#X obj 91 100 nbx 3 10 1 1200 0 0 \$0-pitchpercent \$0-pitchpercent-r
pitch(%) -35 5 1 9 -187776 -33289 -33289 117.825 256;
pitch(%) -35 5 1 9 -187776 -33289 -33289 100 256;
#X obj 121 79 cnv 10 68 10 empty \$0-display ws:1024 2 5 1 9 -146618
-66577 0;
#N canvas 730 245 575 284 \$0-INIT 1;
#N canvas 730 245 575 284 \$0-INIT 0;
#X msg 157 129 bang;
#X obj 157 151 s \$0-reset;
#X obj 231 150 s \$0-duration-r;
......@@ -45,12 +45,9 @@ pitch(%) -35 5 1 9 -187776 -33289 -33289 117.825 256;
#X connect 10 0 8 0;
#X connect 11 0 9 0;
#X restore 234 61 pd \$0-INIT;
#N canvas 488 305 707 307 \$0-TABLE-SAMPLE 0;
#N canvas 488 305 707 307 \$0-TABLE-SAMPLE 1;
#X obj 164 181 soundfiler;
#X obj 164 128 pack s f;
#X obj 209 104 f \$0;
#X obj 164 56 openpanel;
#X obj 210 84 loadbang;
#X obj 164 202 s \$0-samplelength;
#X obj 164 28 r \$0-load;
#X obj 61 128 splitfilename /;
......@@ -67,24 +64,23 @@ pitch(%) -35 5 1 9 -187776 -33289 -33289 117.825 256;
#X obj 437 236 s \$0-samplelength;
#X msg 440 172 symbol \$2-\$1;
#X obj 358 196 s \$0-table;
#X connect 0 0 5 0;
#X connect 1 0 9 0;
#X connect 2 0 1 1;
#X obj 164 128 pack s \$0;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 1 0 18 0;
#X connect 3 0 1 0;
#X connect 3 0 7 0;
#X connect 4 0 2 0;
#X connect 6 0 3 0;
#X connect 7 1 8 0;
#X connect 9 0 0 0;
#X connect 10 0 1 0;
#X connect 12 0 17 0;
#X connect 12 0 19 0;
#X connect 13 0 12 0;
#X connect 14 0 16 0;
#X connect 15 0 12 1;
#X connect 16 0 18 0;
#X connect 17 0 20 0;
#X connect 19 0 14 0;
#X connect 4 1 5 0;
#X connect 6 0 0 0;
#X connect 7 0 18 0;
#X connect 9 0 14 0;
#X connect 9 0 16 0;
#X connect 10 0 9 0;
#X connect 11 0 13 0;
#X connect 12 0 9 1;
#X connect 13 0 15 0;
#X connect 14 0 17 0;
#X connect 16 0 11 0;
#X connect 18 0 6 0;
#X restore 233 95 pd \$0-TABLE-SAMPLE;
#N canvas 277 118 989 542 \$0-COMMANDS 0;
#X obj 376 434 *;
......@@ -270,7 +266,7 @@ snd;
#X obj 124 218 -~;
#X obj 18 431 *~;
#X obj 51 432 *~;
#X obj 19 349 +~ 1e-015;
#X obj 19 349 +~ 1e-15;
#X obj 19 598 *~;
#X obj 135 639 expr 2/(3*$f1);
#X obj 97 425 q8_rsqrt~;
......@@ -281,7 +277,7 @@ recorded sound.;
#X obj 89 69 *~;
#X obj 89 91 +~;
#X obj 159 94 q8_rsqrt~;
#X obj 159 71 +~ 1e-020;
#X obj 159 71 +~ 1e-20;
#X obj 73 119 *~;
#X obj 19 118 *~;
#X obj 29 245 lrshift~ 1;
......@@ -293,14 +289,14 @@ recorded sound.;
#X obj 19 325 +~;
#X obj 125 331 +~;
#X text 282 92 divide by the magnitude to make a unit-magnitude complex
amplitude (phase only). The 1e-020 is to prevent overflows. q8_rsqrt~
amplitude (phase only). The 1e-20 is to prevent overflows. q8_rsqrt~
is reciprocal square root.;
#X text 282 191 Take FT of the window in back. Multiply its conjugate
by the normalized previous output. The result has the magnitude of
the input sound and phase (previous output phase) minus (back window
phase).;
#X text 284 396 Normalize again \, this time taking care to salt each
channel with 1e-015 so that we get a unit complex number even if everything
channel with 1e-15 so that we get a unit complex number even if everything
was zero heretofore.;
#X text 323 453 Now take the FT of the forward window and multiply
it by the unit complex number from above. The magnitude will be that
......
......@@ -4,7 +4,7 @@
#X obj 176 171 s \$0-notein;
#X obj 50 147 inlet;
#X obj 265 147 inlet;
#X obj 51 67 cnv 12 138 39 empty \$0-cnv-preset-nb 1 22 9 1 10 -187776
#X obj 51 67 cnv 12 138 39 empty \$0-cnv-preset-nb 0 22 9 1 10 -187776
-33289 0;
#X obj 86 67 bng 16 250 50 0 \$0-plus empty > 4 5 1 9 -262144 -1 -1
;
......@@ -12,14 +12,14 @@
;
#X obj 51 67 cnv 16 16 16 empty \$0-cnv-moins < 5 7 1 12 -187776 -1
0;
#X obj 106 67 cnv 14 20 14 \$0-cnv-preset \$0-cnv-preset-in E-piano
3 8 1 11 -187776 -66577 0;
#X obj 106 67 cnv 14 20 14 \$0-cnv-preset \$0-cnv-preset-in Piano 3
8 1 11 -187776 -66577 0;
#X obj 51 107 cnv 2 8 2 empty \$0-cnv-out-l empty 20 12 0 14 -35136
-35136 0;
#X obj 173 68 tgl 15 0 \$0-harmony \$0-harmonyin H 4 7 1 10 -187776
-66577 -66577 0 1;
#X obj 53 86 hsl 135 20 0.01 1 0 0 \$0-note \$0-notein NOTE 5 9 1 10
-187776 -66577 -66577 1218 0;
-187776 -66577 -66577 8200 0;
#X obj 181 51 cnv 2 8 2 empty \$0-cnv-r empty 0 -8 1 10 -262144 -262144
0;
#X obj 86 67 cnv 16 16 16 empty \$0-cnv-plus > 5 7 1 12 -187776 -1
......@@ -45,9 +45,7 @@
#X obj 212 157 t b f;
#X obj 212 136 i;
#X text 34 94 wait for sound tables;
#X obj 212 94 del 1;
#X obj 212 230 f \$2;
#X obj 212 209 delay 210;
#X text 33 110 sampler object;
#X text 37 208 wait for presets ??;
#X connect 0 0 1 0;
......@@ -55,17 +53,15 @@
#X connect 1 0 2 0;
#X connect 4 0 5 0;
#X connect 6 0 7 0;
#X connect 8 1 14 0;
#X connect 8 0 14 0;
#X connect 8 1 9 0;
#X connect 8 2 4 0;
#X connect 8 3 6 0;
#X connect 9 0 12 0;
#X connect 10 0 8 0;
#X connect 11 0 16 0;
#X connect 11 1 3 0;
#X connect 12 0 11 0;
#X connect 14 0 9 0;
#X connect 15 0 0 0;
#X connect 16 0 15 0;
#X connect 14 0 0 0;
#X restore 209 71 pd -\$0-INIT-;
#N canvas 411 53 661 598 \$0-AUDIO- 0;
#X obj 216 84 + 1;
......
......@@ -86,12 +86,17 @@
1;
#X obj 81 242 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 43 301 synth-classic 1 0.1;
#X obj 445 300 sampler;
#X connect 3 0 23 0;
#X connect 6 0 22 0;
#X connect 9 0 22 1;
#X connect 20 0 22 0;
#X connect 21 0 22 0;
#X connect 22 0 4 0;
#X connect 23 0 18 0;
#X obj 510 407 synth-percussion;
#X obj 225 303 synth-classic;
#X obj 43 301 synth-classic 1 0.1;
#X connect 3 0 22 0;
#X connect 6 0 25 0;
#X connect 9 0 24 0;
#X connect 9 0 25 1;
#X connect 10 0 24 1;
#X connect 20 0 25 0;
#X connect 21 0 25 0;
#X connect 22 0 18 0;
#X connect 24 0 17 0;
#X connect 25 0 4 0;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment