Facebook
From Mature Gibbon, 7 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 282
  1. imaqhwinfo
  2. info = imaqhwinfo('winvideo')
  3. vid = videoinput('winvideo')
  4. preview(vid)
  5. get(vid)
  6. get(getselectedsource(vid))
  7. set(vid, 'TriggerRepeat', Inf)
  8.  
  9. figure; %utworzenie okna graficznego
  10. set(gcf, 'doublebuffer', 'on') %zapewnia płynne wyświetlanie
  11.  
  12. start(vid) %uruchomienie obiektu (powoduje automatyczne wyzwolenie akwizycji)
  13.  
  14. while (vid.FramesAcquired <= 100)
  15. data = getdata(vid, 1); %pobranie danych obrazowych
  16.  
  17. greyData = rgb2gray(data);
  18.  
  19. imshow(greyData)
  20. flushdata(vid)
  21. end
  22. stop(vid)