clear

%% 
scrsz = get(0,'ScreenSize');
figure1 = figure('Position',[20 50 3*scrsz(3)/4 0.9*scrsz(4)]);

set(figure1,'Units','Inches');
pos = get(figure1,'Position');
set(figure1,'PaperPositionMode','Auto','PaperUnits','Inches','PaperSize',[pos(3), pos(4)])

% Create axes
axes1 = axes('Parent',figure1,'FontSize',40,'FontName','Helvetica');

line_width = 6;
hold on;

load('results/results_wild_clnf_general.mat');
labels = experiments.labels([1:60,62:64,66:end],:,:);
shapes = experiments.shapes([1:60,62:64,66:end],:,:);
labels = labels(18:end,:,:) - 0.5;
shapes = shapes(18:end,:,:);

clnf_error = compute_error( labels,  shapes);

[error_x, error_y] = cummErrorCurve(clnf_error);
hold on;

plot(error_x, error_y, 'g','DisplayName', 'CLNF', 'LineWidth',line_width);

load('results/results_wild_clm_general.mat');
labels = experiments.labels([1:60,62:64,66:end],:,:);
shapes = experiments.shapes([1:60,62:64,66:end],:,:);
labels = labels(18:end,:,:) - 0.5;
shapes = shapes(18:end,:,:);

clm_error = compute_error( labels,  shapes);

[error_x, error_y] = cummErrorCurve(clm_error);

% plot(error_x, error_y, '--b','DisplayName', 'CLM+', 'LineWidth',line_width);

load('results/results_wild_clnf_general_final_inner.mat');
labels = experiments.labels([1:60,62:64,66:end],:,:);
shapes = experiments.shapes([1:60,62:64,66:end],:,:);
labels = labels(18:end,:,:) - 0.5;
shapes = shapes(18:end,:,:);

clnf_hierarch_error = compute_error( labels,  shapes);

[error_x, error_y] = cummErrorCurve(clnf_hierarch_error);

plot(error_x, error_y, 'r','DisplayName', 'OpenFace', 'LineWidth',line_width);


set(gca,'xtick',[0:0.02:0.06])
xlim([0,0.08]);
xlabel('IOD normalised shape error','FontName','Helvetica');
ylabel('Proportion of images','FontName','Helvetica');
grid on
% title('Fitting in the wild without outline','FontSize',60,'FontName','Helvetica');

legend('show', 'Location', 'SouthEast');

%% 
scrsz = get(0,'ScreenSize');
figure1 = figure('Position',[20 50 3*scrsz(3)/4 0.9*scrsz(4)]);

set(figure1,'Units','Inches');
pos = get(figure1,'Position');
set(figure1,'PaperPositionMode','Auto','PaperUnits','Inches','PaperSize',[pos(3), pos(4)])

% Create axes
axes1 = axes('Parent',figure1,'FontSize',40,'FontName','Times New Roman');

line_width = 6;
hold on;

load('results/results_wild_clnf_general.mat');
labels = experiments.labels - 0.5;
shapes = experiments.shapes;

clnf_error = compute_error( labels,  shapes);

[error_x, error_y] = cummErrorCurve(clnf_error);
hold on;

plot(error_x, error_y, '--g','DisplayName', 'CLNF', 'LineWidth',line_width);

load('results/results_wild_clm_general.mat');
experiments(1).labels = experiments(1).labels - 0.5;
experiments(1).shapes = experiments(1).shapes;

clm_error = compute_error( experiments(1).labels,  experiments(1).shapes);

[error_x, error_y] = cummErrorCurve(clm_error);

plot(error_x, error_y, '--b','DisplayName', 'CLM+', 'LineWidth',line_width);

load('results/results_wild_clnf_general_final_inner.mat');
experiments(1).labels = experiments(1).labels - 0.5;
experiments(1).shapes = experiments(1).shapes;

clnf_hierarch_error = compute_error( experiments(1).labels,  experiments(1).shapes);

[error_x, error_y] = cummErrorCurve(clnf_hierarch_error);

plot(error_x, error_y, 'r','DisplayName', 'CLNF hierarch', 'LineWidth',line_width);

set(gca,'xtick',[0:0.02:0.08])
xlim([0,0.08]);
xlabel('IOD normalised shape error','FontName','Times New Roman');
ylabel('Proportion of images','FontName','Times New Roman');
grid on
title('Fitting in the wild with outline','FontSize',60,'FontName','Times New Roman');

legend('show', 'Location', 'SouthEast');