Code covered by the BSD License  

Highlights from
Export figure to 3D interactive PDF

image thumbnail
from Export figure to 3D interactive PDF by Ioannis Filippidis
Export figure as a U3D file or directly to 3D interactive graphics within a PDF.

axes_extremal_xyz(ax) 
function [xyz_minmax, dim] = axes_extremal_xyz(ax)
%AXES_EXTREMAL_XYZ  Minimum and maximum coordinates of graphics objects.
%
% usage
%   [xyz_minmax, dim] = AXES_EXTREMAL_XYZ(ax)
%
% input
%   ax = axes object handle
%
% output
%   xyz_minmax = coordinate extremals of objects in axes ax
%              = [xmin, xmax, ymin, ymax, zmin, zmax]
%   dim = dimension of space, depending on plotted objects
%       = 2 || 3
%
% See also PLOT_SCALINGS.
%
% File:      axes_extremal_xyz.m
% Author:    Ioannis Filippidis, jfilippidis@gmail.com
% Date:      2009.02.12 - 2012.06.11
% Language:  MATLAB R2012a
% Purpose:   min & max coordinates of objects in plot
% Copyright: Ioannis Filippidis, 2009-

% todo
%   properly process quivergroup and cotourgroup objects

%% input
if nargin < 1
    ax = gca;
elseif isempty(ax) || ~ishandle(ax)
    ax = gca;
end

%% get plot objects, find coordinate limits
obj = get(ax, 'Children');

% no graphics ?
if isempty(obj)
    warning('plot_scalings:extremalcoor', 'Axes do not have children.')
    xyz_minmax = [];
    dim = [];
    return
end

%% clear text objects
type = get(obj, 'type');
idx = strcmp(type, 'text');
txtobj = obj(idx);
obj(idx) = [];

%% clear light objects
type = get(obj, 'type');
idx = strcmp(type, 'light');
obj(idx) = [];

[coor_min, coor_max] = nontxt_obj_coor_extremals(obj);

% handle text objects separately
pos = get(txtobj, 'Position');
pos = cell2mat(pos);

mintxtcoor = min(pos, [], 1);
maxtxtcoor = max(pos, [], 1);

% no plot contents ?
if isempty(coor_min) && isempty(mintxtcoor)
    xyz_minmax = [];
    dim = [];
    return
end

if isempty(mintxtcoor)
    xyz_minmax(1:2:6) = coor_min;
    xyz_minmax(2:2:6) = coor_max;
elseif isempty(coor_min)
    xyz_minmax(1:2:6) = mintxtcoor;
    xyz_minmax(2:2:6) = maxtxtcoor;
else
    xyz_minmax(1:2:6) = min(coor_min, mintxtcoor);
    xyz_minmax(2:2:6) = max(coor_max, maxtxtcoor);
end

xyz_minmax(isnan(xyz_minmax) ) = [];

dim = size(xyz_minmax, 2) /2;

function [coor_min, coor_max] = nontxt_obj_coor_extremals(obj)
% no non-text objects
if isempty(obj)
    coor_max = [];
    coor_min = [];
    return
end

coor_min = nan(1, 3);
coor_max = nan(1, 3);

X = get(obj, 'XData');
[minC, maxC] = coor_extremals_wrapper(X);
coor_max(1, 1) = maxC;
coor_min(1, 1) = minC;

Y = get(obj, 'YData');
[minC, maxC] = coor_extremals_wrapper(Y);
coor_max(1, 2) = maxC;
coor_min(1, 2) = minC;

Z = get(obj, 'ZData');
[minC, maxC] = coor_extremals_wrapper(Z);

% 2D or 3D ?
if ~isempty(minC)
    coor_max(1, 3) = maxC;
    coor_min(1, 3) = minC;
end

function [minC, maxC] = coor_extremals_wrapper(C)
[minC, maxC] = coor_extremals(C);
if minC == maxC
    minC = [];
    maxC = [];
end

Contact us