prepare_for_export_half.m

%% Prepares a plot with half textwidth for export
function [] = prepare_for_export_half(figure_high, comma)
ax = gca;
figure1 = gcf;
ax.XGrid = 'on';
ax.YGrid = 'on';
ax.XMinorGrid = 'on';
ax.YMinorGrid = 'on';
ax.Box = 'on';
ax.BoxStyle = 'full';
ax.LabelFontSizeMultiplier = 1;
ax.TitleFontSizeMultiplier = 1;
ax.FontSizeMode = 'manual';
ax.FontSize = 9;
ax.FontName = 'CMU Serif'; % Use listfonts to see all available fonts
set(figure1,'units','centimeters','position',[0 0 0.5*14.7 figure_high])
    if (comma==true)
        xl = get(ax,'YTickLabel');
        new_xl = strrep(xl(:),'.',',');
        set(ax,'YTickLabel',new_xl);
    end
end