clear all

Data = dlmread('cal1.0');
%Data = Data';

%Data = Data/10;

Data(:,1) = Data(:,1) - mean(Data(:,1));
Data(:,2) = Data(:,2) - mean(Data(:,2));
Data(:,1) = Data(:,1) - 0.1;

L = length(Data);
A = colormap('jet');
Lcol = length(A);
m = L/Lcol;

% assume total time is 330ms
milliSecondMarker = (330/64)*10


for i = 1:L
    colorRow(i) = floor(i/m);
end

% Create figure
figure1 = figure('Color',[1 1 1]);

% Create axes
axes1 = axes('Parent',figure1,...
    'FontSize',16,...
    'FontName','Arial',...
    'DataAspectRatio',[1 1 1]);

xlim(axes1,[-1 1]);
ylim(axes1,[-1 1]);

box(axes1,'on');
hold(axes1,'all');
%plot(Data(:,1),Data(:,2),'Parent',axes1);

for n=1:L-1
    colour = A(colorRow(n)+1,:);
    plot(Data(n:n+1,1),-Data(n:n+1,2),'Parent',axes1,'Color',colour,'LineWidth',3);
    hold all
end

%axis auto
axis equal

% Create colorbar
colorbar('peer',axes1,'FontSize',24,'FontName','Arial');

%