Anexo D

Anexo D - Síntese do Sax.


% O timbre do sax é escolhido pela função TimbreSax                                 

  function y=TimbreSax2(FS,Tamanho,FreqNota) % determina o timbre do sax.

    N = Tamanho;   
% Número de amostra
    t = [0:N-1]/FS;
% vetor de amostras

    At = besselj(1,t).*envelope(Tamanho,0.15,0.30);
%Amplitude do sinal

   
% Dados da frequencia portadora
    fc = FreqNota;
% frequência portadora
    alpha = 2.*pi.*fc.*t;
    fi_c = -pi/2;
% fase da modulação

    
%Dados da frequencia de modulacao
    fm = FreqNota./2;
%Frequência de modulação
    d = fc/1.8;
    h = fm/fc;
    beta = 2.*pi.*fm.*t;
    fi_m = -pi/2;
% fase da modulação
    I0 =(d./fm);
% Indice de modulação

        y = At.*cos(alpha + (I0.*cos(beta+fi_m)) + fi_c);
    y = y./max(y);

end % Fim da Funcao TimbreSax 

                                                                                

%––––––––––––––––––––––---–-%
% Melodia do sax

mel = [
...%1 Entrada Batera
    pminimap,pseminima,pseminima,
...
    pminimap,pseminima,pseminima,
...
    pminimap,pseminima,pseminima,
...
    pminimap,pseminima,pseminima,
...
   
...%5 Vamp Piano
    pminimap,pseminima,pseminima,
...
    pminimap,pseminima,pseminima,
...
    pminimap,pseminima,pseminima,
...
    pminimap,pseminima,pseminima,
...
   
...%9 Entrada Baixo
    pminimap,pseminima,pseminima,
...
    pminimap,pseminima,pseminima,
...
    pminimap,pseminima,pseminima,
...
    pminimap,Bb2_seminima,TimbreSax2(FS,length(colcheia),f_Bb2),        

   TimbreSax2(FS,length(colcheia),f_Eb3),...
   
...%13 A
    

TimbreSax2(FS,length(colcheia),f_Gb3),TimbreSax2(FS,length(colcheia),f_Ab3),TimbreSax2(FS, length(colcheia),f_A3),TimbreSax2(FS,length(colcheia),f_Bb3),TimbreSax2(FS,length(colcheia), f_A3),TimbreSax2(FS,length(colcheia),f_Ab3),TimbreSax2(FS,length(seminima),f_Gb3),TimbreSax2(FS,length(seminima),f_Bb2),...

TimbreSax2(FS,length(seminima),f_Db3),TimbreSax2(FS,length(minimap),f_Eb3),TimbreSax2(FS, length(semicolcheia),f_F3),TimbreSax2(FS,length(semicolcheia),f_Gb3),TimbreSax2(FS,length(semicolcheia), f_F3),TimbreSax2(FS,length(semicolcheia),f_Eb3),...

TimbreSax2(FS,length(seminima),f_Db3),TimbreSax2(FS,length(minimap),f_Eb3),TimbreSax2(FS, length(semicolcheia),f_Db3),TimbreSax2(FS,length(semicolcheia),f_Eb3),TimbreSax2(FS,length(semicolcheia),f_Db3), TimbreSax2(FS,length(semicolcheia),f_Bb2),...


TimbreSax2(FS,length(seminima),f_Ab2),TimbreSax2(FS,length(minimap),f_Bb2),TimbreSax2(FS, length(colcheia),f_Bb2),TimbreSax2(FS,length(colcheia),f_Eb3),...


TimbreSax2(FS,length(colcheia),f_Gb3),TimbreSax2(FS,length(colcheia),f_Ab3),TimbreSax2(FS, length(colcheia),f_A3),TimbreSax2(FS,length(colcheia),f_Bb3),TimbreSax2(FS,length(colcheia),f_A3), TimbreSax2(FS,length(colcheia),f_Ab3),TimbreSax2(FS,length(seminima),f_Gb3),TimbreSax2(FS,length(seminima),f_Bb2),...
   

TimbreSax2(FS,length(seminima),f_Db3),TimbreSax2(FS,length(minimap),f_Eb3),TimbreSax2(FS, length(semicolcheia),f_Db3),TimbreSax2(FS,length(semicolcheia),f_Eb3),TimbreSax2(FS,length(semicolcheia), f_Db3),TimbreSax2(FS,length(semicolcheia),f_Bb2),...


TimbreSax2(FS,length(seminima),f_Ab2),TimbreSax2(FS,length(minimap),f_Bb2),TimbreSax2(FS, length(semicolcheia),f_F3),TimbreSax2(FS,length(semicolcheia),f_Gb3),TimbreSax2(FS,length(semicolcheia), f_F3),TimbreSax2(FS,length(semicolcheia),f_Eb3),...
TimbreSax2(FS,length(seminima),f_Db3),TimbreSax2(FS,length(minima2),f_Eb3),
...
   
...%21 B 

pseminima,TimbreSax2(FS,length(colcheia),f_Eb4),TimbreSax2(FS,length(seminima),f_Gb4),TimbreSax2(FS,length(colcheia),f_Eb4), TimbreSax2(FS,length(seminima),f_B3),TimbreSax2(FS,length(colcheia),f_Ab3),TimbreSax2(FS,length(colcheia),f_Bb3),...

TimbreSax2(FS,length(colcheia),f_B3),TimbreSax2(FS,length(colcheia),f_C4), TimbreSax2(FS,length(colcheia),f_Db4),TimbreSax2(FS,length(seminima),f_F4),TimbreSax2(FS,length(colcheia), f_Db4),TimbreSax2(FS,length(seminima),f_Bb3),TimbreSax2(FS,length(colcheia),f_Gb3),TimbreSax2(FS,length(colcheia),f_Ab3),...

TimbreSax2(FS,length(colcheia),f_A3),TimbreSax2(FS,length(colcheia),f_Bb3),TimbreSax2(FS,length(colcheia),f_B3), TimbreSax2(FS,length(seminima),f_Eb4),TimbreSax2(FS,length(colcheia),f_B3),TimbreSax2(FS,length(seminima),f_Ab3), TimbreSax2(FS,length(colcheia),f_F3),TimbreSax2(FS,length(colcheia),f_Gb3),...
    

TimbreSax2(FS,length(colcheia),f_Ab3),TimbreSax2(FS,length(colcheia),f_A3),TimbreSax2(FS,length(colcheia), f_Bb3),TimbreSax2(FS,length(colcheia),f_A3),TimbreSax2(FS,length(colcheia),f_Bb3),TimbreSax2(FS,length(colcheia),f_B3), TimbreSax2(FS,length(seminima),f_Db4),TimbreSax2(FS,length(colcheia),f_Db4),TimbreSax2(FS,length(colcheia),f_C4),...


TimbreSax2(FS,length(colcheia),f_Db4),TimbreSax2(FS,length(colcheia),f_D4),TimbreSax2(FS,length(colcheia),f_Eb4), TimbreSax2(FS,length(seminima),f_Gb4),TimbreSax2(FS,length(colcheia),f_Eb4),TimbreSax2(FS,length(seminima),f_B3), TimbreSax2(FS,length(colcheia),f_Ab3),TimbreSax2(FS,length(colcheia),f_Bb3),...


TimbreSax2(FS,length(colcheia),f_B3),TimbreSax2(FS,length(colcheia),f_C4), TimbreSax2(FS,length(colcheia),f_Db4),TimbreSax2(FS,length(seminima),f_F4),TimbreSax2(FS,length(colcheia),f_Db4), TimbreSax2(FS,length(seminima),f_Bb3),TimbreSax2(FS,length(colcheia),f_Gb3),TimbreSax2(FS,length(colcheia),f_Ab3),...


TimbreSax2(FS,length(colcheia),f_A3),TimbreSax2(FS,length(colcheia),f_Bb3),TimbreSax2(FS,length(colcheia),f_B3), TimbreSax2(FS,length(seminima),f_Eb4),TimbreSax2(FS,length(colcheia),f_B3),TimbreSax2(FS,length(seminima),f_Ab3), TimbreSax2(FS,length(colcheia),f_F3),TimbreSax2(FS,length(colcheia),f_Ab3),...


TimbreSax2(FS,length(colcheia),f_Db4),TimbreSax2(FS,length(colcheia),f_B3),TimbreSax2(FS,length(minimap),f_Bb3), TimbreSax2(FS,length(colcheia),f_Bb2),TimbreSax2(FS,length(colcheia),f_Eb3),... %29 A


TimbreSax2(FS,length(colcheia),f_Gb3),TimbreSax2(FS,length(colcheia),f_Ab3),TimbreSax2(FS,length(colcheia),f_A3), TimbreSax2(FS,length(colcheia),f_Bb3),TimbreSax2(FS,length(colcheia),f_A3),TimbreSax2(FS,length(colcheia),f_Ab3), TimbreSax2(FS,length(seminima),f_Gb3),TimbreSax2(FS,length(seminima),f_Bb2),...


TimbreSax2(FS,length(seminima),f_Db3),TimbreSax2(FS,length(minimap),f_Eb3),TimbreSax2(FS,length(semicolcheia),f_F3), TimbreSax2(FS,length(semicolcheia),f_Gb3),TimbreSax2(FS,length(semicolcheia),f_F3),TimbreSax2(FS,length(semicolcheia),f_Eb3),...


TimbreSax2(FS,length(seminima),f_Db3),TimbreSax2(FS,length(minimap),f_Eb3),TimbreSax2(FS,length(semicolcheia),f_Db3), TimbreSax2(FS,length(semicolcheia),f_Eb3),TimbreSax2(FS,length(semicolcheia),f_Db3),TimbreSax2(FS,length(semicolcheia),f_Bb2),...


TimbreSax2(FS,length(seminima),f_Ab2),TimbreSax2(FS,length(minimap),f_Bb2),TimbreSax2(FS,length(colcheia),f_Bb2), TimbreSax2(FS,length(colcheia),f_Eb3),...


TimbreSax2(FS,length(colcheia),f_Gb3),TimbreSax2(FS,length(colcheia),f_Ab3),TimbreSax2(FS,length(colcheia),f_A3), TimbreSax2(FS,length(colcheia),f_Bb3),TimbreSax2(FS,length(colcheia),f_A3),TimbreSax2(FS,length(colcheia),f_Ab3), TimbreSax2(FS,length(seminima),f_Gb3),TimbreSax2(FS,length(seminima),f_Bb2),...
    

TimbreSax2(FS,length(seminima),f_Db3),TimbreSax2(FS,length(minimap),f_Eb3),TimbreSax2(FS,length(semicolcheia),f_Db3), TimbreSax2(FS,length(semicolcheia),f_Eb3),TimbreSax2(FS,length(semicolcheia),f_Db3),TimbreSax2(FS,length(semicolcheia),f_Bb2),...


TimbreSax2(FS,length(seminima),f_Ab2),TimbreSax2(FS,length(minimap),f_Bb2),TimbreSax2(FS,length(semicolcheia),f_F3), TimbreSax2(FS,length(semicolcheia),f_Gb3),TimbreSax2(FS,length(semicolcheia),f_F3),TimbreSax2(FS,length(semicolcheia),f_Eb3),...
    TimbreSax2(FS,length(seminima),f_Db3),TimbreSax2(FS,length(minima2),f_Eb3),
...
   
...%37 fim
    pminimap];

Ć
Anexo_D_sax.mp3
(998k)
Marco Pinheiro,
26 de mar de 2015 16:01
Comments