From 951d994871814946ae3d48bdeb15cb3408033eab Mon Sep 17 00:00:00 2001
From: giuliaghirardini <giuliaghirardini2001@gmail.com>
Date: Thu, 19 Dec 2024 11:02:30 +0100
Subject: [PATCH] [export-standardized-figure][utilities] Created GUI for
exportStandardizedFigure
---
functions/utilities/exportFigureGUI.m | 160 ++++++
.../utilities/exportStandardizedFigure.m | 79 +--
.../utilities/exportStandardizedFigure_old.m | 468 ++++++++++++++++++
3 files changed, 673 insertions(+), 34 deletions(-)
create mode 100644 functions/utilities/exportFigureGUI.m
create mode 100644 functions/utilities/exportStandardizedFigure_old.m
diff --git a/functions/utilities/exportFigureGUI.m b/functions/utilities/exportFigureGUI.m
new file mode 100644
index 0000000..473589c
--- /dev/null
+++ b/functions/utilities/exportFigureGUI.m
@@ -0,0 +1,160 @@
+function exportFigureGUI
+% exportFigureGUI - GUI for exportStandardizedFigure function
+
+%% Positioning GUI at screen center
+% Get the screen size
+screenSize = get(0, 'ScreenSize'); % [left, bottom, width, height]
+
+% Set the uifigure size
+figWidth = 600;
+figHeight = 600;
+
+% Calculate position to center the figure
+figX = (screenSize(3) - figWidth) / 2;
+figY = (screenSize(4) - figHeight) / 2;
+
+%% Create main figure window
+fig = uifigure('Name', 'Export Standardized Figure', 'Position', [figX, figY, figWidth, figHeight]);
+
+% Add title
+titleLabel = uilabel(fig);
+titleLabel.Text = 'Figure Export Settings';
+titleLabel.FontSize = 18;
+titleLabel.FontWeight = 'bold';
+titleLabel.HorizontalAlignment = 'center';
+titleLabel.Position = [0, fig.Position(4)-50, fig.Position(3), 30];
+
+%% Input fields
+% Figure Name
+uilabel(fig, 'Text', 'Figure Name:', 'Position', [50 500 100 30]);
+figNameField = uitextarea(fig, 'Position', [150 500 200 30]);
+
+% Percentage of Text Width
+uilabel(fig, 'Text', 'Percentage of Text Width:', 'Position', [50 460 200 30]);
+percTextField = uieditfield(fig, 'numeric', 'Position', [250 460 100 30]);
+
+% WHratio Input
+uilabel(fig, 'Text', 'Width/Height Ratio:', 'Position', [50 110 150 30]);
+WHratioField = uieditfield(fig, 'numeric', 'Value', 0, 'Position', [180 110 100 30]);
+
+% Forced Markers Input
+uilabel(fig, 'Text', 'Forced Markers:', 'Position', [320 110 150 30]);
+forcedMarkersField = uieditfield(fig, 'numeric', 'Value', 0, 'Position', [430 110 100 30]);
+
+%% Checkboxes
+%%% Create a panel to group flags
+flagsPanel = uipanel(fig, ...
+ 'Title', 'Flags', ...
+ 'FontSize', 12, ...
+ 'Position', [40 340 520 100]); % Position: [x, y, width, height]
+
+% Checkboxes for optional parameters
+addMarkersBox = uicheckbox(flagsPanel, 'Text', 'Add Markers', 'Value', true, ...
+ 'Position', [10 40 150 20]);
+changeColorsBox = uicheckbox(flagsPanel, 'Text', 'Change Colors', 'Value', true, ...
+ 'Position', [120 40 150 20]);
+changeLineStyleBox = uicheckbox(flagsPanel, 'Text', 'Change Line Style', 'Value', false, ...
+ 'Position', [240 40 150 20]);
+gridBox = uicheckbox(flagsPanel, 'Text', 'Show Grid', 'Value', true, ...
+ 'Position', [10 10 150 20]);
+satelliteMapColorsBox = uicheckbox(flagsPanel, 'Text', 'Satellite Map Colors', 'Value', false, ...
+ 'Position', [350 10 150 20]);
+
+%%% Create a panel to group export settings
+exportPanel = uipanel(fig, ...
+ 'Title', 'Export setting', ...
+ 'FontSize', 12, ...
+ 'Position', [40 250 520 70]); % Position: [x, y, width, height]
+
+% Checkboxes for optional parameters
+exportPDFBox = uicheckbox(exportPanel, 'Text', 'Export PDF', 'Value', true, ...
+ 'Position', [10 10 150 20]);
+exportFIGBox = uicheckbox(exportPanel, 'Text', 'Export FIG', 'Value', false, ...
+ 'Position', [120 10 150 20]);
+overwriteFigureBox = uicheckbox(exportPanel, 'Text', 'Overwrite', 'Value', false, ...
+ 'Position', [240 10 150 20]);
+
+%% Dropdown menus
+%%% Create a panel to group dropdown menus
+legendPanel = uipanel(fig, ...
+ 'Title', 'Legend', ...
+ 'FontSize', 12, ...
+ 'Position', [40 160 520 70]); % Position: [x, y, width, height]
+
+% Dropdowns for Legend Location and Orientation
+uilabel(legendPanel, 'Text', 'Location:', 'Position', [10 10 60 20]);
+legendPositions = {'north', 'south', 'east', 'west', ...
+ 'northeast', 'northwest', 'southeast', 'southwest', ...
+ 'northoutside', 'southoutside', 'eastoutside', 'westoutside', ...
+ 'northeastoutside', 'northwestoutside', 'southeastoutside', 'southwestoutside', ...
+ 'best', 'bestoutside'};
+legendLocationDropDown = uidropdown(legendPanel, 'Items', legendPositions, ...
+ 'Value', 'southoutside', ...
+ 'Position', [80 10 150 22]);
+
+uilabel(legendPanel, 'Text', 'Orientation:', 'Position', [250 10 70 20]);
+legendOrientations = {'horizontal', 'vertical'};
+legendOrientationDropDown = uidropdown(legendPanel, 'Items', legendOrientations, ...
+ 'Value', 'horizontal', ...
+ 'Position', [330 10 150 22]);
+
+%% Further developments
+% File Path Input
+% uilabel(fig, 'Text', 'Figure Save Path:', 'Position', [50 70 150 30]);
+% pathField = uitextarea(fig, 'Position', [200 70 300 30]);
+
+%% Buttons
+% Submit Button
+submitButton = uibutton(fig, 'Text', 'Export Figure', ...
+ 'Position', [250 20 100 30], ...
+ 'ButtonPushedFcn', @(src, event) exportFigureCallback());
+
+% Callback Function for Button
+ function exportFigureCallback()
+ % Get values from the GUI components
+ figName = figNameField.Value;
+ percTextwidth = percTextField.Value;
+ addMarkers = addMarkersBox.Value;
+ forcedMarkers = forcedMarkersField.Value;
+ changeColors = changeColorsBox.Value;
+ changeLineStyle = changeLineStyleBox.Value;
+ gridOption = gridBox.Value;
+ legendLocation = legendLocationDropDown.Value;
+ legendOrientation = legendOrientationDropDown.Value;
+ exportPDF = exportPDFBox.Value;
+ exportFIG = exportFIGBox.Value;
+ satelliteMapColors = satelliteMapColorsBox.Value;
+ % figurePath = pathField.Value;
+ WHratio = WHratioField.Value;
+ overwriteFigure = overwriteFigureBox.Value;
+
+ % Check for required inputs
+ if isempty(figName) || isempty(percTextwidth)
+ uialert(fig, 'Please enter both Figure Name and Percentage Text Width.', 'Input Error');
+ return;
+ end
+
+ % Try to export figure
+ try
+ % Call the exportStandardizedFigure function
+ figToExp = gcf;
+ exportStandardizedFigure(figToExp, figName, percTextwidth, ...
+ 'addMarkers', addMarkers, ...
+ 'forcedMarkers', forcedMarkers, ...
+ 'changeColors', changeColors, ...
+ 'changeLineStyle', changeLineStyle, ...
+ 'grid', gridOption, ...
+ 'legendLocation', legendLocation, ...
+ 'legendOrientation', legendOrientation, ...
+ 'exportPDF', exportPDF, ...
+ 'exportFIG', exportFIG, ...
+ 'satelliteMapColors', satelliteMapColors, ...
+ 'WHratio', WHratio, ...
+ 'overwriteFigure', overwriteFigure);
+ uialert(fig, 'Figure exported successfully!', 'Success', 'Icon', 'success');
+ catch ME
+ % Display error if the function fails
+ uialert(fig, ['Error exporting figure: ' ME.message], 'Error');
+ end
+ end
+end
diff --git a/functions/utilities/exportStandardizedFigure.m b/functions/utilities/exportStandardizedFigure.m
index 5b2c798..ecdeabd 100644
--- a/functions/utilities/exportStandardizedFigure.m
+++ b/functions/utilities/exportStandardizedFigure.m
@@ -188,28 +188,28 @@ end
%%
for k = 1:length(f.Children) % for each subfigure
-
+
if strcmp(f.Children(k).Type, 'uicontextmenu')
continue; % To avoid errors on ContextMenu
end
-
+
ax = f.Children(k); % axes
-
+
% no minor grid
if isfield(ax,'MinorGridLineStyle')
ax.MinorGridLineStyle = 'none';
end
-
+
% interpreter
listFieldnames = fieldnames(ax);
indexInterpreter = find(contains(listFieldnames,'Interpreter'));
-
+
if ~isempty(indexInterpreter)
for i = 1:length(indexInterpreter)
ax.(listFieldnames{indexInterpreter(i)}) = 'latex';
end
end
-
+
for i = 1:length(listFieldnames)
try
subfieldNames = fieldnames(ax.(listFieldnames{i}));
@@ -222,8 +222,8 @@ for k = 1:length(f.Children) % for each subfigure
catch
end
end
-
-
+
+
% fontName
indexFontName = find(contains(listFieldnames,'FontName'));
if ~isempty(indexFontName)
@@ -231,7 +231,7 @@ for k = 1:length(f.Children) % for each subfigure
ax.(listFieldnames{indexFontName(i)}) = 'Palatino Linotype';
end
end
-
+
% fontSize
indexFontSize = find(contains(listFieldnames,'FontSize'));
if ~isempty(indexFontSize)
@@ -243,7 +243,7 @@ for k = 1:length(f.Children) % for each subfigure
end
end
end
-
+
ax.LineWidth = 0.5;
if isa(ax,'matlab.graphics.illustration.Legend') % check if axes is a legend
leg = ax;
@@ -264,7 +264,7 @@ for k = 1:length(f.Children) % for each subfigure
ax.YGrid = "off";
ax.ZGrid = "off";
end
-
+
jLines = 0;
jHistograms = 0;
jSurface = 0;
@@ -323,7 +323,7 @@ for k = 1:length(f.Children) % for each subfigure
leg.NumColumns = leg.NumColumns-1;
end
end
-
+
%% change graphics
existLines = ~isempty(indexLinesColors);
existSurfaces = ~isempty(indexSurfaceColors);
@@ -331,7 +331,7 @@ for k = 1:length(f.Children) % for each subfigure
existStairs = ~isempty(indexStairColors);
existConstantLines = exist("constLines", 'var');
existHistograms = exist('histgrams','var');
-
+
if existConstantLines
nCLines = length(constLines);
for i = 1:nCLines
@@ -339,7 +339,7 @@ for k = 1:length(f.Children) % for each subfigure
constLines(nCLines+1-i).LineStyle = linestylesList{index};
end
end
-
+
if existLines || existSurfaces || existScatters || existStairs || existHistograms
if ~existLines
lines = [];
@@ -353,12 +353,12 @@ for k = 1:length(f.Children) % for each subfigure
if ~existStairs
stairs = [];
end
-
+
Nlines = length(lines);
Nsurface = length(surfaces);
Nscatter = length(scatters);
Nstair = length(stairs);
-
+
%%% change colors
if changeColors
nIndexColors = Nlines + Nsurface + Nscatter + Nstair;
@@ -384,7 +384,7 @@ for k = 1:length(f.Children) % for each subfigure
stairs(Nstair+1-iStair).Color = colors{index};
end
end
-
+
if existHistograms
Nhist = length(histgrams);
for i = 1:Nhist
@@ -394,7 +394,7 @@ for k = 1:length(f.Children) % for each subfigure
end
end
end
-
+
%%% addMarkers
if addMarkers
nIndexMarkers = Nlines + Nscatter;
@@ -413,7 +413,7 @@ for k = 1:length(f.Children) % for each subfigure
end
end
end
-
+
%%% lines
for i = 1:Nlines
% changeLineStyle
@@ -421,40 +421,51 @@ for k = 1:length(f.Children) % for each subfigure
index = mod(i-1, nStyles) + 1;
lines(Nlines+1-i).LineStyle = linestylesList{index};
end
-
+
% forcedMarkers
nElements = length(lines(Nlines+1-i).XData);
if forcedMarkers && nElements>nForcedMarkers(k)
markerIndices = linspace(1,nElements,nForcedMarkers(k));
lines(Nlines+1-i).MarkerIndices = round(markerIndices,0);
end
- lines(Nlines+1-i).LineWidth = 1.5*mult; % general settings
+ lines(Nlines+1-i).LineWidth = mult*1.5; % general settings
end
end
-
+
clear('lines', 'histgrams', 'surfaces', 'scatters', 'stairs', 'constLines');
end
end
%% export
+% Export PDF
if p.Results.exportPDF
- s1 = strcat(figPath, figureName,'.pdf');
-
- if exist(s1,"file")==0 || p.Results.overwriteFigure
- exportgraphics(f,s1,"ContentType","vector")
+ % Costruisci il nome del file
+ figPath = p.Results.figurePath;
+ if ~isempty(figPath) && ~(strcmp(figPath(end), '\') || strcmp(figPath(end), '/'))
+ figPath = strcat(figPath, '\');
else
- time = string(datetime('now','Format','yyyy-MM-dd-HHmmss'));
+ figPath = fullfile(fileparts(mfilename("fullpath")), '\');
+ end
+
+ s1 = string(strcat(figPath, figureName, '.pdf'));
+
+ % Verifica il tipo di s1
+ if ~ischar(s1) && ~isstring(s1)
+ error('Invalid file name or path.');
+ end
+
+ % Controllo di esistenza e salvataggio
+ if exist(s1, 'file') == 0 || p.Results.overwriteFigure
+ exportgraphics(f, s1, "ContentType", "vector");
+ else
+ time = string(datetime('now', 'Format', 'yyyy-MM-dd-HHmmss'));
s2 = strcat(figPath, figureName, time, '.pdf');
- exportgraphics(f,s2,"ContentType","vector")
- warning('figure named ''%s'' instead of ''%s''',s2,s1)
+ exportgraphics(f, s2, "ContentType", "vector");
+ warning('figure named ''%s'' instead of ''%s''', s2, s1);
end
-
- fprintf('Figure saved successfully!\n\ntext to copy:\n')
- latexstr = strcat('\includegraphics[width=',num2str(percTextwidth,2),...
- '\textwidth]{<add figure path>\',figureName,'.pdf}');
- disp(latexstr)
end
+
if p.Results.exportFIG
s1 = strcat(figPath, figureName, '.fig');
if p.Results.overwriteFigure || exist(s1,"file")==0
diff --git a/functions/utilities/exportStandardizedFigure_old.m b/functions/utilities/exportStandardizedFigure_old.m
new file mode 100644
index 0000000..5b2c798
--- /dev/null
+++ b/functions/utilities/exportStandardizedFigure_old.m
@@ -0,0 +1,468 @@
+function exportStandardizedFigure(fig, figureName, percTextwidth, varargin)
+% exportStandardizedFigure - this function standardizes plot graphics and exports the
+% figure as a .pdf file
+%
+% INPUTS:
+% fig - figure variable
+% figureName - figure name, string, (note: do not add '.pdf')
+% percTextwidth - percentage of the linewitdth as indicated in LaTeX,
+% (70% -> 0.7), double
+% varargin - optional inputs:
+% addMarkers - logic, if true every lines has a different
+% marker, default: true
+% changeColors - logic, if true the colors of the lines will
+% be changed, default: true
+% changeLineStyle - logic, if both 'changeLineStyle' and
+% 'changeColors' are true the lines
+% with the same color will have two
+% different line styles, default: false
+% WHratio - double, width/height ratio; if 'WHratio' is 0
+% the ratio will not change,
+% default: 0 (current ratio)
+% forcedMarkers - double, number of markers for each line. If it
+% is set to 0, all points will have a
+% marker; default: 0 (all points)
+% grid - logic, true to show grid, false otherwise,
+% default: true
+% legendLocation - string, location of the legend;
+% default: 'southoutside'
+% legendOrientation - string, orientation of the legend;
+% default: 'horizontal'
+% exportPDF - logic, true to export pdf file, default: true
+% exportFIG - logic, true to export fig file, defalut: false
+% satelliteMapColors - logic, if true, color palette for satellite
+% map is chosen, default: false
+% figurePath - string, path in which the pdf file and/or the
+% fig file will be saved, default: ''
+% overwriteFigure - logic, if true it will overwrite the .pdf
+% file and the .fig file with the same
+% name, default: false
+%
+% --------------------------------EXAMPLE--------------------------------
+% >> exportStandardizedFigure(gcf,'nameFig',0.67, 'forcedMarkers', 6, ...
+% 'WHratio', 1)
+% Figure saved successfully!
+%
+% text to copy:
+% \includegraphics[width=0.67\textwidth]{<add figure path>\nameFig.pdf}
+%------------------------------------------------------------------------
+%
+% VERSIONS: #0, release, Maria Teresa Cazzola
+% #1, update, Riccardo Cadamuro, Maria Teresa Cazzola,
+% Marco Marchesi
+% some improvements
+%
+
+%% check input validity
+if percTextwidth>1
+ error('figure width is larger than the page!')
+end
+
+%% Parse input
+p = inputParser;
+
+addParameter(p, 'addMarkers', true, @islogical);
+addParameter(p, 'forcedMarkers', 0);
+addParameter(p, 'changeColors', true, @islogical);
+addParameter(p, 'changeLineStyle', false, @islogical);
+addParameter(p, 'WHratio', 0);
+addParameter(p, 'grid', true, @islogical);
+addParameter(p, 'exportPDF', true, @islogical);
+addParameter(p, 'exportFIG', false, @islogical);
+addParameter(p, 'satelliteMapColors', false, @islogical);
+addParameter(p, 'figurePath', '');
+addParameter(p, 'overwriteFigure', false, @islogical);
+addParameter(p, 'legendLocation', 'southoutside');
+addParameter(p, 'legendOrientation', 'horizontal');
+
+parse(p, varargin{:});
+
+%% Recall data
+%%% diplay plot config
+addMarkers = p.Results.addMarkers; % add different markers to lines
+changeColors = p.Results.changeColors; % change lines colors
+changeLineStyle = p.Results.changeLineStyle; % to diversify lines of the same color;
+% change colors has to be true
+legendLocation = p.Results.legendLocation;
+legendOrientation = p.Results.legendOrientation;
+
+% width\height ratio
+if p.Results.WHratio == 0
+ changeWHratio = false; % true = change width/height ratio; false = keep the same ratio
+else
+ changeWHratio = true;
+ WHratio = p.Results.WHratio;
+end
+% forced markers
+if p.Results.forcedMarkers == 0
+ forcedMarkers = false;
+ nForcedMarkers = nan;
+else
+ forcedMarkers = true;
+ nForcedMarkers = p.Results.forcedMarkers*ones(1,length(fig.Children));
+end
+
+if (~addMarkers) && (forcedMarkers)
+ warning('addMarker is false and forcedMarkers is true: markers are not displayed')
+end
+
+figPath = p.Results.figurePath;
+if ~strcmp(figPath,'') && ~(strcmp(figPath(end),'\') || strcmp(figPath(end),'/'))
+ figPath = strcat(figPath,'\');
+end
+
+%%% dimensions setup
+mult = 1.5; % multiplier for .fig file view
+textwidthCm = 16.54; % \textwidth length in centimeters
+
+fontsize = 9; % reference font size
+fontsizeLegend = fontsize*0.8;
+
+%% colors and options lists
+if not(p.Results.satelliteMapColors)
+ colors = {
+ '#4658A9' % SkywardBlue
+ '#D3212D' % AmaranthRed
+ '#00A86B' % Jade
+ '#FDAF00' % yellowHoney
+ '#E94196' % Pink
+ '#FF5A36' % PortlandOrange
+ '#6CC407' % AppleGreen
+ '#B100FF' % violet
+ '#88ACE0' % LightCobalt
+ };
+else
+ colors = {
+ '#D3212D' % AmaranthRed
+ '#FDAF00' % yellowHoney
+ '#E94196' % Pink
+ '#6CC407' % AppleGreen
+ '#B100FF' % violet
+ '#FF5A36' % PortlandOrange
+ '#4658D9' % SkywardBlue (more blue)
+ '#04B96D' % Jade (lighter)
+ '#80A9DD' % LightCobalt (darker)
+ };
+end
+
+markers = {
+ 'o'
+ '<'
+ 'square'
+ 'p'
+ '+'
+ '>'
+ 'h'
+ 'diamond'
+ 'v'
+ '+'
+ '*'
+ '^'
+ 'x'};
+
+linestylesList = {'-'
+ '--';
+ ':';
+ '-.'};
+
+nColors = length(colors);
+nMarkers = length(markers);
+nStyles = length(linestylesList);
+
+%% figure
+f = fig; % figure
+
+widthPos = textwidthCm*percTextwidth*mult;
+if ~changeWHratio
+ WHratio = f.Position(3)/f.Position(4); % retrieve current WHratio
+end
+heightPos = widthPos/WHratio;
+
+f.Units = "centimeters";
+f.Position(3:4) = [widthPos heightPos];
+
+%% check if figure is a tiledchart
+if isa(f.Children,'matlab.graphics.layout.TiledChartLayout')
+ f = fig.Children;
+end
+
+%%
+for k = 1:length(f.Children) % for each subfigure
+
+ if strcmp(f.Children(k).Type, 'uicontextmenu')
+ continue; % To avoid errors on ContextMenu
+ end
+
+ ax = f.Children(k); % axes
+
+ % no minor grid
+ if isfield(ax,'MinorGridLineStyle')
+ ax.MinorGridLineStyle = 'none';
+ end
+
+ % interpreter
+ listFieldnames = fieldnames(ax);
+ indexInterpreter = find(contains(listFieldnames,'Interpreter'));
+
+ if ~isempty(indexInterpreter)
+ for i = 1:length(indexInterpreter)
+ ax.(listFieldnames{indexInterpreter(i)}) = 'latex';
+ end
+ end
+
+ for i = 1:length(listFieldnames)
+ try
+ subfieldNames = fieldnames(ax.(listFieldnames{i}));
+ indexSubInterpreter = find(strcmp(subfieldNames, 'Interpreter'));
+ if ~isempty(indexSubInterpreter)
+ for j = 1:length(indexSubInterpreter)
+ ax.(listFieldnames{i}).(subfieldNames{indexSubInterpreter(j)}) = 'latex';
+ end
+ end
+ catch
+ end
+ end
+
+
+ % fontName
+ indexFontName = find(contains(listFieldnames,'FontName'));
+ if ~isempty(indexFontName)
+ for i = 1:length(indexFontName)
+ ax.(listFieldnames{indexFontName(i)}) = 'Palatino Linotype';
+ end
+ end
+
+ % fontSize
+ indexFontSize = find(contains(listFieldnames,'FontSize'));
+ if ~isempty(indexFontSize)
+ removeInd = [find(contains(listFieldnames,'FontSizeMode')); ...
+ find(contains(listFieldnames, 'FontSizeMultiplier'))];
+ for i = 1:length(indexFontSize)
+ if sum(removeInd == indexFontSize(i))==0
+ ax.(listFieldnames{indexFontSize(i)}) = fontsize*mult;
+ end
+ end
+ end
+
+ ax.LineWidth = 0.5;
+ if isa(ax,'matlab.graphics.illustration.Legend') % check if axes is a legend
+ leg = ax;
+ leg.Location = legendLocation;
+ leg.Orientation = legendOrientation;
+ leg.FontSize = fontsizeLegend*mult;
+ while leg.Position(3)>0.8 && leg.NumColumns>1
+ leg.NumColumns = leg.NumColumns-1;
+ end
+ elseif isa(ax, 'matlab.graphics.axis.Axes') || isa(ax, 'matlab.graphics.axis.GeographicAxes')
+ % grid
+ if isa(ax, 'matlab.graphics.axis.Axes') && p.Results.grid
+ ax.XGrid = "on";
+ ax.YGrid = "on";
+ ax.ZGrid = "on";
+ elseif isa(ax, 'matlab.graphics.axis.Axes')
+ ax.XGrid = "off";
+ ax.YGrid = "off";
+ ax.ZGrid = "off";
+ end
+
+ jLines = 0;
+ jHistograms = 0;
+ jSurface = 0;
+ jScatter = 0;
+ jStair = 0;
+ jCostantLines = 0;
+ countColors = 0;
+ countMarkers = 0;
+ indexLinesColors = [];
+ indexSurfaceColors = [];
+ indexScatterColors = [];
+ indexStairColors = [];
+ indexLinesMarkers = [];
+ indexScatterMarkers = [];
+ indexStairMarkers = [];
+ for j = 1:length(ax.Children)
+ if isa(ax.Children(j),'matlab.graphics.chart.primitive.Line')
+ jLines = jLines+1; countColors = countColors + 1;
+ countMarkers = countMarkers + 1;
+ lines(jLines) = ax.Children(j);
+ indexLinesColors = [indexLinesColors countColors];
+ indexLinesMarkers = [indexLinesMarkers countMarkers];
+ elseif isa(ax.Children(j),'matlab.graphics.chart.decoration.ConstantLine')
+ jCostantLines = jCostantLines+1;
+ ax.Children(j).LineWidth = 1*mult;
+ ax.Children(j).Color = [0 0 0];
+ constLines(jCostantLines) = ax.Children(j);
+ elseif changeColors && isa(ax.Children(j),'matlab.graphics.chart.primitive.Histogram')
+ jHistograms = jHistograms+1;
+ histgrams(jHistograms) = ax.Children(j);
+ elseif isa(ax.Children(j), 'matlab.graphics.chart.primitive.Surface')
+ jSurface = jSurface + 1; countColors = countColors + 1;
+ surfaces(jSurface) = ax.Children(j);
+ indexSurfaceColors = [indexSurfaceColors countColors];
+ elseif isa(ax.Children(j), 'matlab.graphics.chart.primitive.Scatter')
+ jScatter = jScatter + 1; countColors = countColors + 1;
+ countMarkers = countMarkers + 1;
+ scatters(jScatter) = ax.Children(j);
+ indexScatterColors = [indexScatterColors countColors];
+ indexScatterMarkers = [indexScatterMarkers countMarkers];
+ elseif isa(ax.Children(j), 'matlab.graphics.chart.primitive.Stair')
+ jStair = jStair + 1; countColors = countColors +1;
+ countMarkers = countMarkers + 1;
+ stairs(jStair) = ax.Children(j);
+ indexStairColors = [indexStairColors countColors];
+ indexStairMarkers = [indexStairMarkers countMarkers];
+ end
+ end
+ existLegend = isfield(ax,'Legend');
+ if existLegend
+ leg = ax.Legend;
+ leg.Location = legendLocation;
+ leg.Orientation = legendOrientation;
+ leg.FontSize = fontsizeLegend*mult;
+ while leg.Position(3)>0.8
+ leg.NumColumns = leg.NumColumns-1;
+ end
+ end
+
+ %% change graphics
+ existLines = ~isempty(indexLinesColors);
+ existSurfaces = ~isempty(indexSurfaceColors);
+ existScatters = ~isempty(indexScatterColors);
+ existStairs = ~isempty(indexStairColors);
+ existConstantLines = exist("constLines", 'var');
+ existHistograms = exist('histgrams','var');
+
+ if existConstantLines
+ nCLines = length(constLines);
+ for i = 1:nCLines
+ index = mod(i-1, nStyles) + 1;
+ constLines(nCLines+1-i).LineStyle = linestylesList{index};
+ end
+ end
+
+ if existLines || existSurfaces || existScatters || existStairs || existHistograms
+ if ~existLines
+ lines = [];
+ end
+ if ~existSurfaces
+ surfaces = [];
+ end
+ if ~existScatters
+ scatters = [];
+ end
+ if ~existStairs
+ stairs = [];
+ end
+
+ Nlines = length(lines);
+ Nsurface = length(surfaces);
+ Nscatter = length(scatters);
+ Nstair = length(stairs);
+
+ %%% change colors
+ if changeColors
+ nIndexColors = Nlines + Nsurface + Nscatter + Nstair;
+ iLines = 0;
+ iSurface = 0;
+ iScatter = 0;
+ iStair = 0;
+ for i = 1:nIndexColors
+ index = mod(i-1, nColors) + 1;
+ if any((nIndexColors+1-i)==indexLinesColors)
+ iLines = iLines+1;
+ lines(Nlines+1-iLines).Color = colors{index};
+ elseif any((nIndexColors+1-i)==indexSurfaceColors)
+ iSurface = iSurface + 1;
+ surfaces(Nsurface+1-iSurface).FaceColor = colors{index};
+ surfaces(Nsurface+1-iSurface).EdgeColor = colors{index};
+ elseif any((nIndexColors+1-i)==indexScatterColors)
+ iScatter = iScatter+1;
+ scatters(Nscatter+1-iScatter).MarkerEdgeColor = colors{index};
+ scatters(Nscatter+1-iScatter).MarkerFaceColor = 'none';
+ elseif any((nIndexColors+1-i)==indexStairColors)
+ iStair = iStair + 1;
+ stairs(Nstair+1-iStair).Color = colors{index};
+ end
+ end
+
+ if existHistograms
+ Nhist = length(histgrams);
+ for i = 1:Nhist
+ index = mod(i-1, nColors) + 1;
+ histgrams(Nhist+1-i).FaceColor = colors{index};
+ histgrams(Nhist+1-i).EdgeColor = [0 0 0];
+ end
+ end
+ end
+
+ %%% addMarkers
+ if addMarkers
+ nIndexMarkers = Nlines + Nscatter;
+ iLines = 0;
+ iScatter = 0;
+ for i = 1:nIndexMarkers
+ index = mod(i-1, nMarkers) + 1;
+ if any((nIndexMarkers+1-i)==indexLinesMarkers)
+ iLines = iLines + 1;
+ lines(Nlines+1-iLines).Marker = markers{index};
+ lines(Nlines+1-iLines).MarkerSize = mult*3;
+ else
+ iScatter = iScatter + 1;
+ scatters(Nscatter+1-iScatter).Marker = markers{index};
+ scatters(Nscatter+1-iScatter).LineWidth = mult*1.5;
+ end
+ end
+ end
+
+ %%% lines
+ for i = 1:Nlines
+ % changeLineStyle
+ if changeLineStyle
+ index = mod(i-1, nStyles) + 1;
+ lines(Nlines+1-i).LineStyle = linestylesList{index};
+ end
+
+ % forcedMarkers
+ nElements = length(lines(Nlines+1-i).XData);
+ if forcedMarkers && nElements>nForcedMarkers(k)
+ markerIndices = linspace(1,nElements,nForcedMarkers(k));
+ lines(Nlines+1-i).MarkerIndices = round(markerIndices,0);
+ end
+ lines(Nlines+1-i).LineWidth = 1.5*mult; % general settings
+ end
+ end
+
+ clear('lines', 'histgrams', 'surfaces', 'scatters', 'stairs', 'constLines');
+ end
+end
+
+%% export
+if p.Results.exportPDF
+ s1 = strcat(figPath, figureName,'.pdf');
+
+ if exist(s1,"file")==0 || p.Results.overwriteFigure
+ exportgraphics(f,s1,"ContentType","vector")
+ else
+ time = string(datetime('now','Format','yyyy-MM-dd-HHmmss'));
+ s2 = strcat(figPath, figureName, time, '.pdf');
+ exportgraphics(f,s2,"ContentType","vector")
+ warning('figure named ''%s'' instead of ''%s''',s2,s1)
+ end
+
+ fprintf('Figure saved successfully!\n\ntext to copy:\n')
+ latexstr = strcat('\includegraphics[width=',num2str(percTextwidth,2),...
+ '\textwidth]{<add figure path>\',figureName,'.pdf}');
+ disp(latexstr)
+end
+
+if p.Results.exportFIG
+ s1 = strcat(figPath, figureName, '.fig');
+ if p.Results.overwriteFigure || exist(s1,"file")==0
+ savefig(f,s1)
+ else
+ time = string(datetime('now','Format','yyyy-MM-dd-HHmmss'));
+ s2 = strcat(figPath, figureName, time, '.fig');
+ savefig(f,s2)
+ warning('figure saved as ''%s'' instead of ''%s''',s2,s1)
+ end
+end
--
GitLab