% Programme de jeu de notes au clavier

%-------------------------------------------------------------
% on fabrique une gamme chromatique (choisir qwerty ou azerty)
%-------------------------------------------------------------
clear all
% clavier qwerty :
notes = ['a' 'w' 's' 'e' 'd' 'f' 't' 'g' 'y' 'h' 'u' 'j' 'k'];
% clavier azerty :
% notes = ['q' 'z' 's' 'e' 'd' 'f' 't' 'g' 'y' 'h' 'u' 'j' 'k'];

Fe = 22050;
f0 = 220;
ht = 2.001^(1/12);
fr = ht.^(0:12)*f0;

T = 1.7;
for k = 1:13
    note = notes(k);
    eval([note '= clavecin(fr(k),T,Fe);']);
end
%-------------------------------------------------------------
% et on joue :
%-------------------------------------------------------------

disp('pour jouer, rentrez une note parmi :');
disp('clavier qwerty : a w s e d f t g y h u j k');
disp('clavier azerty : q z s e d f t g y h u j k');
disp('suivie par la touche enter');

x = 0;
note = [1 1];

while length(note) > 1
    note = input('note suivante ? (pour terminer, taper x) : ');
    if length(note) == 1
        disp('termine');
        break
    end
    sound(note,Fe);
    %wavplay(note,Fe,'async');
end


