makefig_subplots.m

function ax = makefig_subplots(subplotsx,subplotsy)
% make standard figure
% taken from http://p-martineau.com/perfect-subplot-in-matlab/

%parameters for figure and panel size
% make new figure
try
  uname = char(java.lang.System.getProperty('user.name'));
catch
end
if exist('uname','var') && strcmp(uname,'bkirving')
  plotheight = 22;
  plotwidth  = 17;
  pos_x      = 0.80;
  pos_y      = 9.5;
  %   plotheight = 6;
  %   plotwidth  = 5;
  %   pos_x      = 6;
  %   pos_y      = 4.5;
elseif exist('uname','var') && strcmp(uname,'Brita Irving')
  pos_x      = 27.2;
  pos_y      = 0.5;
  plotwidth  = 12.7;
  plotheight = 9.9;
else
  % Set to 1/3 screen size
  % Set screen size based on computer
  set(0,'units','inches');%Sets the units of your root object (screen) to inches
  Inch_SS = get(0,'screensize');%Obtains this inch information
  pos_x      = Inch_SS(1);
  pos_y      = Inch_SS(2);
  plotwidth  = Inch_SS(3)*1/3;
  plotheight = Inch_SS(4);
  MP = get(0, 'MonitorPositions');
  N = size(MP, 1);
  if N == 2
    pos_x = pos_x + MP(2,1);
  end
end
if nargin == 0
  subplotsx = 3;
  subplotsy = 5;
end

leftedge=1.2;
rightedge=1.0;
topedge=1.5;
bottomedge=1.8;

spacex=0.4;
spacey=0.4;%1.0;%0.3;
% for plot_seward_Line_GOApaper_seasonalcycle.m
% leftedge=1.0;
% rightedge=1.5;
% spacex=0.1;
% spacey=0.2;%1.0;%0.3;

sub_pos=subplot_pos(plotwidth,plotheight,leftedge,rightedge,bottomedge,topedge,subplotsx,subplotsy,spacex,spacey);
%setting the Matlab figure
% make new figure
n = 1;
while ishandle(n)
  n = n + 1;
end
fig = figure(n);
fig.Units             = 'inches';
fig.Position          = [pos_x pos_y plotwidth plotheight];
fig.PaperPositionMode = 'auto';
fig.PaperOrientation  = 'portrait';
fig.PaperSize         =  [plotwidth plotheight];
%fig.PaperPosition     = [0 0 plotwidth plotheight];

%loop to create axes
for i=1:subplotsx
  for ii=1:subplotsy
    ax(i,ii)=axes('position',sub_pos{i,ii},'Box','on','Layer','top');%,'XGrid','off','XMinorGrid','off','FontSize',fontsize,);
  end
end

set(fig, 'color', 'w')
set(fig,'DefaultAxesLineStyleOrder','-|--|-.|:');
tomLnCmap = [ 0 0 1; 1 0 0; 1 0.6 0; 0.85 0 0.95; 0 .95 0.95; 0.8 0.8 0; 0.8 0.5 0; 0.5 0 0; 0 0 0.5; 0 0.65 0.65];
%               b;     r;   orange;      ~m;        ~bc;          ~y;    dorange;      dr;     db;       dc;
% no greens as Tom is R-G color blind.
set(fig,'DefaultAxesColorOrder',tomLnCmap);
% axes defaults
set(fig,'DefaultTextFontname',    'Times');
set(fig,'defaultTextFontSize',    16);
set(fig,'DefaultTextFontName',    'Times');
set(fig,'DefaultAxesFontName',    'Times');
set(fig,'DefaultAxesFontSize',    16);
set(fig,'DefaultAxesFontWeight',  'Bold');
set(fig,'DefaultAxesColor',[0.75 0.75 0.75])
keyboard
end