Changeset 19571 for issm/trunk-jpl/externalpackages/export_fig/isolate_axes.m

Timestamp:

09/21/15 13:50:48 (10 years ago)

Author:

Mathieu Morlighem

Message:

CHG: new version of export_fig

File:

• issm/trunk-jpl/externalpackages/export_fig/isolate_axes.m (modified) (2 diffs)

issm/trunk-jpl/externalpackages/export_fig/isolate_axes.m

@@ +1 @@
+function fh = isolate_axes(ah, vis)
 %ISOLATE_AXES Isolate the specified axes in a figure on their own
 %
@@ -22 +23 @@
 
 % Thank you to Rosella Blatt for reporting a bug to do with axes in GUIs
-% 16/3/2012 Moved copyfig to its own function. Thanks to Bob Fratantonio
-% for pointing out that the function is also used in export_fig.m.
-% 12/12/12 - Add support for isolating uipanels. Thanks to michael for
-% suggesting it.
-% 08/10/13 - Bug fix to allchildren suggested by Will Grant (many thanks!).
-% 05/12/13 - Bug fix to axes having different units. Thanks to Remington
-% Reid for reporting the issue.
+% 16/03/12: Moved copyfig to its own function. Thanks to Bob Fratantonio
+%           for pointing out that the function is also used in export_fig.m
+% 12/12/12: Add support for isolating uipanels. Thanks to michael for suggesting it
+% 08/10/13: Bug fix to allchildren suggested by Will Grant (many thanks!)
+% 05/12/13: Bug fix to axes having different units. Thanks to Remington Reid for reporting
+% 21/04/15: Bug fix for exporting uipanels with legend/colorbar on HG1 (reported by Alvaro
+%           on FEX page as a comment on 24-Apr-2014); standardized indentation & help section
+% 22/04/15: Bug fix: legends and colorbars were not exported when exporting axes handle in HG2
 
-function fh = isolate_axes(ah, vis)
-% Make sure we have an array of handles
-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.');
+    % Make sure we have an array of handles
+    if ~all(ishandle(ah))
+        error('ah must be an array of handles');
     end
-    if ~isequal(ancestor(ah(a), 'figure'), fh)
-        error('Axes must all come from the same figure.');
+    % 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
-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
-    set([ah(:); lh(:)], 'Units', 'normalized');
-    ax_pos = get(ah, 'OuterPosition');
-    if nAx > 1
-        ax_pos = cell2mat(ax_pos(:));
+    % Tag the objects so we can find them in the copy
+    old_tag = get(ah, 'Tag');
+    if nAx == 1
+        old_tag = {old_tag};
     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);
+    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
-    leg_pos(:,3:4) = leg_pos(:,3:4) + leg_pos(:,1:2);
-    ax_pos = shiftdim(ax_pos, -1);
-    % Overlap test
-    M = bsxfun(@lt, leg_pos(:,1), ax_pos(:,:,3)) & ...
-        bsxfun(@lt, leg_pos(:,2), ax_pos(:,:,4)) & ...
-        bsxfun(@gt, leg_pos(:,3), ax_pos(:,:,1)) & ...
-        bsxfun(@gt, leg_pos(:,4), ax_pos(:,:,2));
-    ah = [ah; lh(any(M, 2))];
-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)])));
+    % 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
+    % Note: in HG1 these are axes objects; in HG2 they are separate objects, therefore we
+    %       don't test for the type, only the tag (hopefully nobody but Matlab uses them!)
+    lh = findall(fh, 'Tag', 'legend', '-or', 'Tag', 'Colorbar');
+    nLeg = numel(lh);
+    if nLeg > 0
+        set([ah(:); lh(:)], 'Units', 'normalized');
+        try
+            ax_pos = get(ah, 'OuterPosition'); % axes and figures have the OuterPosition property
+        catch
+            ax_pos = get(ah, 'Position'); % uipanels only have Position, not OuterPosition
+        end
+        if nAx > 1
+            ax_pos = cell2mat(ax_pos(:));
+        end
+        ax_pos(:,3:4) = ax_pos(:,3:4) + ax_pos(:,1:2);
+        try
+            leg_pos = get(lh, 'OuterPosition');
+        catch
+            leg_pos = get(lh, 'Position');  % No OuterPosition in HG2, only in HG1
+        end
+        if nLeg > 1;
+            leg_pos = cell2mat(leg_pos);
+        end
+        leg_pos(:,3:4) = leg_pos(:,3:4) + leg_pos(:,1:2);
+        ax_pos = shiftdim(ax_pos, -1);
+        % Overlap test
+        M = bsxfun(@lt, leg_pos(:,1), ax_pos(:,:,3)) & ...
+            bsxfun(@lt, leg_pos(:,2), ax_pos(:,:,4)) & ...
+            bsxfun(@gt, leg_pos(:,3), ax_pos(:,:,1)) & ...
+            bsxfun(@gt, leg_pos(:,4), ax_pos(:,:,2));
+        ah = [ah; lh(any(M, 2))];
+    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)])));
 end
 
 function ah = allchildren(ah)
-ah = findall(ah);
-if iscell(ah)
-    ah = cell2mat(ah);
-end
-ah = ah(:);
+    ah = findall(ah);
+    if iscell(ah)
+        ah = cell2mat(ah);
+    end
+    ah = ah(:);
 end
 
 function ph = allancestors(ah)
-ph = [];
-for a = 1:numel(ah)
-    h = get(ah(a), 'parent');
-    while h ~= 0
-        ph = [ph; h];
-        h = get(h, 'parent');
+    ph = [];
+    for a = 1:numel(ah)
+        h = get(ah(a), 'parent');
+        while h ~= 0
+            ph = [ph; h];
+            h = get(h, 'parent');
+        end
     end
 end
-end