% arpeges majeurs sur les trois gammes 
%-------------------------------------

clear all; close all;

Fe = 22050; h = 1/Fe;
f0 = 110*2^(1/4); t = .5;

% arpege tempere
%---------------
fr = f0*2.^([0 4 7 12]/12);
x = [];
for k = 1:4
    x = [x, orgue(fr(k),t,Fe)];
end
sound(x,Fe);
pause(3)
%wavwrite(x,Fe,'../SONS/304arptemp.wav');

% arpege Pyhtagore
%-----------------
fr = f0*[1 81/64 3/2 2];
x = [];
for k = 1:4
    x = [x, orgue(fr(k),t,Fe)];
end
sound(x,Fe);
pause(3)
%wavwrite(x,Fe,'../SONS/305arppyth.wav');

% arpege Zarlino
%---------------
fr = f0*[1 5/4 3/2 2];
x = [];
for k = 1:4
    x = [x, orgue(fr(k),t,Fe)];
end
sound(x,Fe);
%wavwrite(x,Fe,'../SONS/306arpzarl.wav');