====== MATLAB Code ======

<code matlab>
%Basic Comm
s = serial('COM8');
set(s,'BaudRate',9600);
set(s,'DataBits',8);
set(s,'StopBits',1);
fopen(s);
fprintf(s,'*IDN?')

vid = videoinput('winvideo',1,'RGB24_320x240');
preview(vid);


figure
hold on

data = [];
pirOneStore =[];
pirTwoStore = [];
pirThreeStore = [];
pirFourStore = [];
increment = [];

for p = 1:1
    hold on
    startlist = [];
    pirOne =[];
    pirTwo =[];
    pirThree =[];
    pirFour =[];
    axis([0 100 0 50])

    for i = 1:100
        startlist = [startlist i];



        out = fscanf(s, '%d');
        pirOne =[pirOne out];
        pirOneStore = [pirOneStore out];
        subplot(4,1,1);
        axis([0 100 0 50])
        plot(startlist, pirOne)
        axis([0 100 0 50])

        out = fscanf(s, '%d');
        pirTwo =[pirTwo out];
        pirTwoStore = [pirTwoStore out];
        subplot(4,1,2);
        axis([0 100 0 50])
        plot(startlist, pirTwo);
        axis([0 100 0 50])

        out = fscanf(s, '%d');
        pirThree =[pirThree out];
        pirThreeStore = [pirThreeStore out];
        subplot(4,1,3);
        axis([0 100 0 50])
        plot(startlist, pirThree);
        axis([0 100 0 50])

        out = fscanf(s, '%d');
        pirFour =[pirFour out];
        pirFourStore = [pirFourStore out];
        subplot(4,1,4);
        axis([0 100 0 50])
        plot(startlist, pirFour);
        axis([0 100 0 50])

        drawnow

        if(p == 1 && i == 1)
            tic;
        else
            increment = [increment toc];
            tic;
        end

        %if(mod(i,3) == 0)
            data = [data getsnapshot(vid)];
            
        %end

    end
    clf
end

fclose(s)
delete(s)
clear s
</code>