mirror of
https://github.com/c-sooyoung/fold_slice.git
synced 2026-09-17 17:29:09 +09:00
89 lines
3.3 KiB
Matlab
89 lines
3.3 KiB
Matlab
function ha = tight_subplot(Nh, Nw, gap, marg_h, marg_w)
|
|
|
|
% tight_subplot creates "subplot" axes with adjustable gaps and margins
|
|
%
|
|
% ha = tight_subplot(Nh, Nw, gap, marg_h, marg_w)
|
|
%
|
|
% in: Nh number of axes in hight (vertical direction)
|
|
% Nw number of axes in width (horizontaldirection)
|
|
% gap gaps between the axes in normalized units (0...1)
|
|
% or [gap_h gap_w] for different gaps in height and width
|
|
% marg_h margins in height in normalized units (0...1)
|
|
% or [lower upper] for different lower and upper margins
|
|
% marg_w margins in width in normalized units (0...1)
|
|
% or [left right] for different left and right margins
|
|
%
|
|
% out: ha array of handles of the axes objects
|
|
% starting from upper left corner, going row-wise as in
|
|
% going row-wise as in
|
|
%
|
|
% Example: ha = tight_subplot(3,2,[.01 .03],[.1 .01],[.01 .01])
|
|
% for ii = 1:6; axes(ha(ii)); plot(randn(10,ii)); end
|
|
% set(ha(1:4),'XTickLabel',''); set(ha,'YTickLabel','')
|
|
|
|
% Pekka Kumpulainen 20.6.2010 @tut.fi
|
|
% Tampere University of Technology / Automation Science and Engineering
|
|
% License
|
|
%
|
|
% Copyright (c) 2016, Pekka Kumpulainen
|
|
% All rights reserved.
|
|
%
|
|
% Redistribution and use in source and binary forms, with or without
|
|
% modification, are permitted provided that the following conditions are
|
|
% met:
|
|
%
|
|
% * Redistributions of source code must retain the above copyright
|
|
% notice, this list of conditions and the following disclaimer.
|
|
% * Redistributions in binary form must reproduce the above copyright
|
|
% notice, this list of conditions and the following disclaimer in
|
|
% the documentation and/or other materials provided with the distribution
|
|
%
|
|
% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
|
|
% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
|
% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
|
% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
|
% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
|
% POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
|
|
if nargin<3; gap = .02; end
|
|
if nargin<4 || isempty(marg_h); marg_h = .05; end
|
|
if nargin<5; marg_w = .05; end
|
|
|
|
if numel(gap)==1;
|
|
gap = [gap gap];
|
|
end
|
|
if numel(marg_w)==1;
|
|
marg_w = [marg_w marg_w];
|
|
end
|
|
if numel(marg_h)==1;
|
|
marg_h = [marg_h marg_h];
|
|
end
|
|
|
|
axh = (1-sum(marg_h)-(Nh-1)*gap(1))/Nh;
|
|
axw = (1-sum(marg_w)-(Nw-1)*gap(2))/Nw;
|
|
|
|
py = 1-marg_h(2)-axh;
|
|
|
|
ha = zeros(Nh*Nw,1);
|
|
ii = 0;
|
|
for ih = 1:Nh
|
|
px = marg_w(1);
|
|
|
|
for ix = 1:Nw
|
|
ii = ii+1;
|
|
ha(ii) = axes('Units','normalized', ...
|
|
'Position',[px py axw axh], ...
|
|
'XTickLabel','', ...
|
|
'YTickLabel','');
|
|
px = px+axw+gap(2);
|
|
end
|
|
py = py-axh-gap(1);
|
|
end
|
|
|