kamera_start
flushdata(vid);
klaw = PrzygotujKlawiature();
skala = WyliczSkale(vid, klaw);
tlo = PobierzTlo(vid, skala);


obraz = PobierzBiezacyObraz(vid); 
   obraz = imresize(obraz, skala);
   xx= imshow(obraz);

%probka_koloru = PobierzObrazModeluKoloru(vid);
%wzorzec_koloru = GenerujModel(probka_koloru);


for i=1:2000
   obraz = PobierzBiezacyObraz(vid); 
   obraz = imresize(obraz, skala);
   obraz_klaw = NalozKlawiature(obraz, klaw, 1);
   set(xx, 'CData', obraz_klaw);
   klawisz = ZnajdzKlawisz13tlo(obraz, tlo, -1)
   
   %klawisz = ZnajdzsKlawisz13model(obraz, wzorzec_koloru, -1);
   Graj(klawisz, 0.2);
   %pause(0.05);
end

kamera_stop