#N canvas 117 28 833 561 10;
#X obj 485 130 cnv 15 180 40 empty empty empty 20 12 0 14 -171382 -66577
0;
#X obj 63 331 cnv 15 298 138 empty empty empty 20 12 0 14 -174629 -66577
0;
#N canvas 0 22 478 328 (subpatch) 0;
#X array \$0-Espectro 128 float 0;
#X coords 0 3248 127 0 300 140 1;
#X restore 62 330 graph;
#X text 154 470 500Hz;
#X text 101 469 250Hz;
#X text 61 469 50Hz;
#X text 209 469 750Hz;
#X text 268 469 1KHz;
#X text 313 470 1.25KHz;
#X obj 616 92 nbx 5 16 -2000 2000 0 0 empty mod empty 0 -8 0 13 -204800
-1 -1 100 256;
#X obj 511 66 nbx 5 16 -2000 2000 0 0 empty empty empty 0 -8 0 13 -261682
-1 -1 0 256;
#X text 621 69 Moduladora;
#N canvas 244 63 686 458 Super-Modulator 0;
#X obj 53 318 expr~ ($v1 * $v3) - ($v2 * $v4);
#X obj 269 62 inlet~;
#X obj 346 62 inlet~;
#X obj 269 367 outlet~;
#X obj 506 109 loadbang;
#N canvas 77 67 612 360 hilbert~ 0;
#X obj 308 157 biquad~ 0.83774 -0.06338 0.06338 -0.83774 1;
#X obj 308 129 biquad~ 1.94632 -0.94657 0.94657 -1.94632 1;
#X obj 28 132 biquad~ -0.02569 0.260502 -0.260502 0.02569 1;
#X obj 28 158 biquad~ 1.8685 -0.870686 0.870686 -1.8685 1;
#X obj 308 26 inlet~;
#X obj 308 183 outlet~;
#X obj 28 186 outlet~;
#X obj 405 271 hilbert~;
#X text 297 271 clique e abra =>;
#X text 119 240 Copiado da abstração [hilbert~] que vem no Pd-Vanilla.
;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 1 0;
#X connect 4 0 2 0;
#X restore 148 200 pd hilbert~;
#X obj 346 235 cos~;
#X obj 387 235 cos~;
#X obj 346 186 phasor~;
#X obj 387 214 -~ 0.25;
#X obj 346 153 *~ -1;
#X obj 329 318 expr~ ($v1 * $v3) - ($v2 * $v4);
#X obj 471 281 cos~;
#X obj 512 281 cos~;
#X obj 471 232 phasor~;
#X obj 512 260 -~ 0.25;
#X obj 329 367 outlet~;
#X obj 53 367 outlet~;
#X msg 505 135 \; pd dsp 1 \; mod 100;
#X connect 0 0 17 0;
#X connect 1 0 5 0;
#X connect 1 0 3 0;
#X connect 2 0 10 0;
#X connect 2 0 14 0;
#X connect 4 0 18 0;
#X connect 5 0 0 0;
#X connect 5 0 11 0;
#X connect 5 1 0 1;
#X connect 5 1 11 1;
#X connect 6 0 0 2;
#X connect 7 0 0 3;
#X connect 8 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 7 0;
#X connect 10 0 8 0;
#X connect 11 0 16 0;
#X connect 12 0 11 2;
#X connect 13 0 11 3;
#X connect 14 0 12 0;
#X connect 14 0 15 0;
#X connect 15 0 13 0;
#X restore 511 144 pd Super-Modulator;
#X obj 605 427 hsl 128 15 0 1 0 0 empty empty ganho -2 -6 0 10 -203904
-1 -1 0 0;
#N canvas 267 136 529 373 gain 0;
#X obj 234 176 *~;
#X obj 222 208 dac~;
#X obj 263 146 line~;
#X msg 263 120 \$1 10;
#X obj 263 94 pow 4;
#X obj 263 67 inlet;
#X obj 234 36 inlet~;
#N canvas 131 60 278 287 plot-spectrum 0;
#X obj 53 64 inlet~;
#X obj 53 99 rfft~;
#X obj 132 98 loadbang;
#X obj 132 146 metro 250;
#X obj 132 125 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 89 224 block~ 4096;
#X obj 41 137 cartopol~;
#X obj 51 188 tabwrite~ \$0-Espectro;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 1 1 6 1;
#X connect 2 0 4 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 6 0 7 0;
#X restore 165 250 pd plot-spectrum;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 2 0 0 1;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 0 0;
#X connect 6 0 7 0;
#X restore 563 451 pd gain;
#X obj 616 375 *~;
#X obj 563 375 *~;
#X obj 511 375 *~;
#X obj 631 185 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -158834
-1 -1 0 1;
#X obj 631 350 line~;
#X msg 631 328 \$1 10;
#X obj 578 185 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -158834
-1 -1 0 1;
#X obj 578 350 line~;
#X msg 578 328 \$1 10;
#X obj 526 185 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -158834
-1 -1 0 1;
#X obj 526 350 line~;
#X msg 526 328 \$1 10;
#X text 52 46 Agora podemos voltar atrás no exemplo de modulação de
amplitude \, onde com um ajuste de DC Offset é possível controlar a
intensidade das bandas geradas variando entre a modulação em anel e
a modulação de amplitude clássica. Vimos então que era possível controlar
com o DC Offdet a energia das bandas laterais e do componente original.
;
#X obj 511 102 osc~ 440;
#X text 54 138 Pois bem \, com a modulação complexa \, podemos ter
um controle mais simples e refinado da energia de cada uma das bandas
e de forma independente em um "super modulator".;
#X text 55 187 A implementação é baseada em dois spectral shifters
com frequências opostas \, que faz com que se criem duas bandas laterais.
Além disso \, mantermos o sinal original intacto. Na saída \, temos
3 sliders controlando a amplitude de cada banda \, sendo que o slider
central é do sinal original e os sliders laterais das bandas laterais.
Mexa nos sliders \, confira o patch ao lado e o espectro abaixo.;
#X connect 9 0 12 1;
#X connect 10 0 28 0;
#X connect 12 0 17 0;
#X connect 12 1 16 0;
#X connect 12 2 15 0;
#X connect 13 0 14 1;
#X connect 15 0 14 0;
#X connect 16 0 14 0;
#X connect 17 0 14 0;
#X connect 18 0 20 0;
#X connect 19 0 15 1;
#X connect 20 0 19 0;
#X connect 21 0 23 0;
#X connect 22 0 16 1;
#X connect 23 0 22 0;
#X connect 24 0 26 0;
#X connect 25 0 17 1;
#X connect 26 0 25 0;
#X connect 28 0 12 0;
