Play_Piano

%Funkcja generująca zadany dźwięk
%
%   Graj(dzwiek, czas);
%
%dzwiek - nazwa dźwięku, który ma być wygenerowany,
%czas - czas trwania dźwięku w sekundach.
%
function Graj(dzwiek, czas);

if dzwiek(1) == ' ',
    return;
end;

Fs = 8192;
Vol = 0.8;

mnoznik_polton = 1.059463;
C = 261.6;
Cis = C*mnoznik_polton;
D = 293.7;
Dis = D*mnoznik_polton;
E = 329.6;
F = 349.6;
Fis = F*mnoznik_polton;
G = 391.9;
Gis = G*mnoznik_polton;
A = 440;
B = A*mnoznik_polton;
H = 493.9;
C2 = 523.2;

dzwiek = upper(deblank(dzwiek));
if strcmp(dzwiek, 'C') || strcmp(dzwiek, 'DO'),
    f = C;
elseif strcmp(dzwiek, 'CIS'),
    f = Cis;
elseif strcmp(dzwiek, 'D') || strcmp(dzwiek, 'RE'),
    f = D;
elseif strcmp(dzwiek, 'DIS'),
    f = Dis;
elseif strcmp(dzwiek, 'E') || strcmp(dzwiek, 'MI'),
    f = E;
elseif strcmp(dzwiek, 'F') || strcmp(dzwiek, 'FA'),
    f = F;
elseif strcmp(dzwiek, 'FIS'),
    f = Fis;
elseif strcmp(dzwiek, 'G') || strcmp(dzwiek, 'SOL'),
    f = G;
elseif strcmp(dzwiek, 'GIS'),
    f = Gis;
elseif strcmp(dzwiek, 'A') || strcmp(dzwiek, 'LA'),
    f = A;
elseif strcmp(dzwiek, 'AIS'),
    f = B;
elseif strcmp(dzwiek, 'H') || strcmp(dzwiek, 'SI'),
    f = H;
elseif strcmp(dzwiek, 'C2') || strcmp(dzwiek, 'DO2'),
    f = C2;
end;

%czas = 1; %czas trwania pojedynczego dzwieku w sekundach
t=0:1/Fs:czas;
for i = 1:length(F),
    %f = Fr(i);
    %disp(f);
    y = sin(f*2*pi*t);
    sound(y*Vol,Fs);
    %pause(czas);
end;