
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 rectnagular
    %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;
    
    step=2;
    scl_img=bw_img(lvb:step:uvb, lhb:step:rhb);
    
    se = strel('square',10);
    scl_img = imtophat(scl_img,se);
    scl_img = imadjust(scl_img,[0 0.5],[]);

    th = graythresh(scl_img);
    bin_img = im2bw(scl_img,th);
    %Final Pré-Processamento.

    %Cálculo Spectral Imagens
    [srad_220_6(n,:), sang(n,:), S]=specxture(scl_img);
    beep;
    n
    R=input('next sample...');;
    %imshow(o_img);
   
    
%Apresentação Resultados
%     figure(1),
%     
%     subplot(2,3,1)
%     imshow(bw_img),
%     title('rgb2gray')
%     
%     figure(1),
%     subplot(2,3,2)
%     imshow(scl_img),
%     title('imadjust')
%     
%     figure(1),
%     subplot(2,3,3)
%     imshow(bin_img),
%     title('im2bw')
%   
%     figure(1),
%     subplot(2,3,4)
%     plot(srad), 
%     title('srad')
%     
%     figure(1),
%     subplot(2,3,5)
%     plot(sang), 
%     title('sang')
%     
%     figure(1),
%     subplot(2,3,6)
%     imshow(S),
%     title('Spectrum Image')
% 
end

stop(iv1);
