isolate_axes.m

Go to the documentation of this file.

/* (Autoinserted by mtoc++)
 * This source code has been filtered by the mtoc++ executable,
 * which generates code that can be processed by the doxygen documentation tool.
 *
 * On the other hand, it can neither be interpreted by MATLAB, nor can it be compiled with a C++ compiler.
 * Except for the comments, the function bodies of your M-file functions are untouched.
 * Consequently, the FILTER_SOURCE_FILES doxygen switch (default in our Doxyfile.template) will produce
 * attached source files that are highly readable by humans.
 *
 * Additionally, links in the doxygen generated documentation to the source code of functions and class members refer to
 * the correct locations in the source code browser.
 * However, the line numbers most likely do not correspond to the line numbers in the original MATLAB source files.
 */

function fh = isolate_axes(ah,vis) {
if ~all(ishandle(ah))
    error(" ah must be an array of handles ");
end
/*  Check that the handles are all for axes or uipanels, and are all in the same figure */
fh = ancestor(ah(1), " figure ");
nAx = numel(ah);
for a = 1:nAx
    if ~ismember(get(ah(a), " Type "), [" axes ", " uipanel "])
        error(" All handles must be axes or uipanel handles. ");
    end
    if ~isequal(ancestor(ah(a), " figure "), fh)
        error(" Axes must all come from the same figure. ");
    end
end
/*  Tag the objects so we can find them in the copy */
old_tag = get(ah, " Tag ");
if nAx == 1
    old_tag = [old_tag];
end
set(ah, " Tag ", " ObjectToCopy ");
/*  Create a new figure exactly the same as the old one */
fh = copyfig(fh); /* copyobj(fh, 0); */

if nargin < 2 || ~vis
    set(fh, " Visible ", " off ");
end
/*  Reset the object tags */
for a = 1:nAx
    set(ah(a), " Tag ", old_tag[a]);
end
/*  Find the objects to save */
ah = findall(fh, " Tag ", " ObjectToCopy ");
if numel(ah) ~= nAx
    close(fh);
    error(" Incorrect number of objects found. ");
end
/*  Set the axes tags to what they should be */
for a = 1:nAx
    set(ah(a), " Tag ", old_tag[a]);
end
/*  Keep any legends and colorbars which overlap the subplots */
lh = findall(fh, " Type ", " axes ", " -and ", [" Tag ", " legend ", " -or ", " Tag ", " Colorbar "]);
nLeg = numel(lh);
if nLeg > 0
    ax_pos = get(ah, " OuterPosition ");
    if nAx > 1
        ax_pos = cell2mat(ax_pos(:));
    end
    ax_pos(:,3:4) = ax_pos(:,3:4) + ax_pos(:,1:2);
    leg_pos = get(lh, " OuterPosition ");
    if nLeg > 1;
        leg_pos = cell2mat(leg_pos);
    end
    leg_pos(:,3:4) = leg_pos(:,3:4) + leg_pos(:,1:2);
    for a = 1:nAx
            /*  Overlap test */
            ah = [ah; lh(leg_pos(:,1) < ax_pos(a,3) & leg_pos(:,2) < ax_pos(a,4) &...
                         leg_pos(:,3) > ax_pos(a,1) & leg_pos(:,4) > ax_pos(a,2))];
    end
end
/*  Get all the objects in the figure */
axs = findall(fh);
/*  Delete everything except for the input objects and associated items */
delete(axs(~ismember(axs, [ah; allchildren(ah); allancestors(ah)])));
return

}
function ah = isolateaxes>allchildren(ah) {
ah = allchild(ah);
if iscell(ah)
    ah = cell2mat(ah);
end
ah = ah(:);
return

}

function ph = isolateaxes>allancestors(ah) {
ph = [];
for a = 1:numel(ah)
    h = get(ah(a), " parent ");
    while h ~= 0
        ph = [ph; h];
        h = get(h, " parent ");
    end
end
return
}