kamera_start;
klaw = PrzygotujKlawiature();
skala =  WyliczSkale(vid, klaw);

% Metoda 1
%tlo = PobierzTlo(vid, skala);
% Metoda 2
probka_koloru = PobierzObrazModeluKoloru(vid);
wzorzec_koloru = GenerujModel(probka_koloru)

for i=1:200
    obraz = PobierzBiezacyObraz(vid);
    obraz = imresize(obraz, skala);
    obr_klaw = NalozKlawiature(obraz, klaw, 1);
    figure(2); imshow(obr_klaw); szer_wsk=-1;

    % Metoda 1
    %dzwiek = ZnajdzKlawisz13tlo(obraz, tlo, szer_wsk);
    % Metoda 2
    dzwiek = ZnajdzKlawisz13model(obraz, wzorzec_koloru, szer_wsk);

    dzwiek
end
kamera_stop