clc
clear all
close all

iv1 = videoinput('winvideo', 1);
set(iv1, 'FramesPerTrigger', 1);
set(iv1, 'TriggerRepeat', Inf);
triggerconfig(iv1,'manual');
start(iv1);
pause(2.0);

for n= 1:50
    
    o_img = getsnapshot(iv1);
    
    %Pré-Processamento Imagem:
    bw_img = rgb2gray(o_img);
    %limites que definem a zona rectangular
    %central da imagem com qualidade para
    %ser analizada.
    %- vertical:
    uvb = size(bw_img,1)-151;
    lvb = 150;
    %- horizontal:
    lhb = 350;
    rhb = size(bw_img,2)-351;
    %redução do tamanho da imagem:
    step=2;
    scl_img=bw_img(lvb:step:uvb, lhb:step:rhb);
    %processamento para realçar o grão:
    se = strel('square',10);
    scl_img = imtophat(scl_img,se);
    scl_img = imadjust(scl_img,[0 0.5],[]);
    %Final Pré-Processamento.
    %cálcula descritores estatíticos textura:
    statxt_500_max(n,:)= statxture(scl_img);
    beep;
    n
    R=input('next sample...');
end
 stop(iv1)