Eye Tracking using Viola jones algorithm

Question

can any one help me in this code i'm anable to track eye moment
%% IRIS movement
 
clear all; 
close all;
clc;
 
info = imaqhwinfo('winvideo',1);
celldisp(info.SupportedFormats);
vid=videoinput('winvideo',1,'YUY2_176x144'); 
count=1000;
 loop=1;
while ~isequal(count,loop)
    
    nFrames = 600;
    alpha = 0.05;
    fmt = '.png';
    disp(['Processing frame: ' num2str(loop)]);
    set(vid,'ReturnedColorSpace','rgb'); 
    a1 = getsnapshot(vid); 
    I = rgb2gray(a1);

    %% EYE Dtection Process
    EyeDetect = vision.CascadeObjectDetector('EyePairBig');
    righteye = vision.CascadeObjectDetector('RightEye');
 
    BB=step(EyeDetect,I);
    BB1=step(righteye,I);
    figure(1);
if length(BB)<4
    imshow(I);
    hold on     
    else
    if size(BB,1)>2        
        BB=BB(1:2,:);
    end
end

    for i = 1:size(BB,1)
    imshow(I);
    rectangle('Position',BB(i,:),'LineWidth',4,'LineStyle','-','EdgeColor','r');
    rectangle('Position',BB1(i,:),'LineWidth',4,'LineStyle','-','EdgeColor','g');
    hold on     
     wa = imcrop(I,[BB(i,1) BB(i,2) BB(i,3) BB(i,4)]);
     ra = imcrop(I,[BB1(i,1) BB1(i,2) BB1(i,3) BB1(i,4)]);
    end

    title('Eyes Detection');
    I = double(I);
    cd ..
    figure(2);
    subplot(121);
    imshow(wa);
    subplot(122);
    imshow(ra);
     hold on


    arows=size(ra,1);
    acols=size(ra,2);
    ath=zeros(arows,acols);
    for i =1:arows
        for j=1:acols
            if ra(i,j)>80
                ath(i,j)=255;
            end
        end 
    end
    loop =  loop + 1
end

Eye Tracking using Viola jones algorithm

0 个评论
显示 -2更早的评论隐藏 -2更早的评论

回答（0 个）

另请参阅

类别

标签

产品

版本

Community Treasure Hunt

Eye Tracking using Viola jones algorithm

0 个评论 显示 -2更早的评论隐藏 -2更早的评论

回答（0 个）

另请参阅

类别

标签

产品

版本

Community Treasure Hunt

0 个评论
显示 -2更早的评论隐藏 -2更早的评论