clear all
close all
clc

file_name=input('Please Enter Name(in quotes):');

vid = videoinput('kinect',1);

vid.FramesPerTrigger = 1;

vid.TriggerRepeat = 2000;

triggerconfig([vid],'manual');

vid.ROIPosition = [791 434 647 398];

start([vid]);

Data=zeros(500,398,647);


for i = 1:500
    trigger([vid])
    [I, ts_color, metaData_Color] = getdata(vid);
    Data(i,:,:)=I(:,:,2);
    imagesc(I)
    i
end


stop([vid]);

save(file_name,'Data');

clc


user=[file_name, 'Data'];
file_name='R3'

load(file_name)


size(Data)

for i = 1:size(Data,1)

    D=squeeze(Data(i,:,:));

    X=D(:,1:300);
    Y=D(:,300:end);
    Y=fliplr(Y);

    Y=Y(119:137, 58:83);




    imagesc(Y)
    colormap(gray)
    pause


    drawnow()
    saveas(gcf,['file_name_', num2str(i), '.png'])
end