#N canvas 68 231 1019 397 10;
#X obj 634 49 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#X obj 480 223 bng 30 250 50 0 \$0-bng empty empty 17 7 0 10 -228856
-1 -1;
#X obj 531 103 loadbang;
#X obj 480 183 metro 6000;
#X obj 480 131 tgl 30 0 empty empty empty 17 7 0 10 -204786 -1 -1 1
1;
#X obj 688 273 catch~ \$0-osc;
#X obj 688 299 /~ 16;
#N canvas 0 22 531 320 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X obj 242 189 expr~ pow($v1 \, 4);
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 8 0;
#X connect 3 0 7 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 8 0 3 1;
#X restore 634 73 pd parcial;
#X obj 704 49 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 704 73 pd parcial;
#X obj 773 49 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 773 73 pd parcial;
#X obj 843 49 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 843 73 pd parcial;
#X obj 635 99 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 635 123 pd parcial;
#X obj 705 99 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 705 123 pd parcial;
#X obj 774 99 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 774 123 pd parcial;
#X obj 844 99 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 844 123 pd parcial;
#X obj 635 149 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 635 173 pd parcial;
#X obj 705 149 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 705 173 pd parcial;
#X obj 774 149 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 774 173 pd parcial;
#X obj 844 149 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 844 173 pd parcial;
#X obj 636 199 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 636 223 pd parcial;
#X obj 706 199 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 706 223 pd parcial;
#X obj 775 199 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 775 223 pd parcial;
#X obj 845 199 bng 15 250 50 0 empty \$0-bng empty 17 7 0 10 -228856
-1 -1;
#N canvas 0 22 450 300 parcial 0;
#X obj 94 179 osc~;
#X obj 242 61 inlet;
#X obj 242 165 vline~;
#X obj 242 189 expr~ pow($v1 \, 4);
#X obj 94 214 *~;
#X msg 242 138 1 10 \, 0 6000 10;
#X obj 94 118 expr random(200 \, 1500);
#X floatatom 94 144 0 0 0 0 - - -;
#X obj 94 250 throw~ \$0-osc;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X restore 845 223 pd parcial;
#X text 47 51 Na verdade já vimos algo de Síntese Aditiva \, pois é
o princícpio que está por trás dos comandos "sinesum" e "cosinesum"
\, por exemplo.;
#X text 48 99 Vimos então formas de onda que são formadas por uma somatória
de parciais harmônicos. Dessas incluem as ondas dente-de-serra \, triangulares
e quadradas.;
#X text 49 145 Mas o interessante mesmo em Síntese Aditiva é criar
sonoridades ricas com parciais inarmônicos a partir de uma somatória
de senóides.;
#X text 49 190 As possibilidades são inúmeras. É fato que \, inclusive
\, qualquer som pode ser recrido de forma aceitável com um bom número
de osciladores - princípio que veremos depois com ressíntese e até
FFT.;
#X obj 736 300 hsl 128 15 0 1 0 0 empty ganho empty -2 -8 0 10 -204786
-1 -1 8890 1;
#N canvas 0 22 237 305 ganho 0;
#X obj 79 176 *~;
#X obj 67 208 dac~;
#X obj 108 146 line~;
#X msg 108 120 \$1 10;
#X obj 108 94 pow 4;
#X obj 108 67 inlet;
#X obj 79 36 inlet~;
#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 restore 688 327 pd ganho;
#X msg 531 128 \; ganho 0.7 \; pd dsp 1;
#X text 49 249 Este é um patch simples que cria uma sonoridade inarmônica
a partir de senóides com frequências aleatórias entre 200 e 1500 Hz.
Fora isso temos apenas um envelope simples de AR logarítmico com duração
de 6 segundos.;
#X text 50 314 Por fim \, ao somar e mixar todos os parciais com [throw~]
e [catch~] \, dividimos por 16 que é o número de vozes/parciais.;
#X connect 0 0 7 0;
#X connect 2 0 44 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 43 0;
#X connect 8 0 9 0;
#X connect 10 0 11 0;
#X connect 12 0 13 0;
#X connect 14 0 15 0;
#X connect 16 0 17 0;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 22 0 23 0;
#X connect 24 0 25 0;
#X connect 26 0 27 0;
#X connect 28 0 29 0;
#X connect 30 0 31 0;
#X connect 32 0 33 0;
#X connect 34 0 35 0;
#X connect 36 0 37 0;
#X connect 42 0 43 1;
