function [ha, hf] = get_figs(iprob);

if (iprob == 2) %%  Annulus
  hf = figure('position',[500 500 400 400]);
  rect = [1/6 1/6 2/3 2/3];
elseif (iprob == 1 | iprob == 3)  %% Channel or irregular
  hf = figure('position',[500 500 650 325]);
  rect = [1/12 1/8 5/6 3/4];
elseif (iprob == 4)
  hf = figure;
  ha = axes;
  return;
end;

ha = axes('position',rect);
