function fit_text(scale,axis)

pos = get(gca, 'Position');

if nargin<2
    axis = 'both'
end
if lower(axis) == 'y'
    pos(2) = pos(2)+(1-scale)*pos(4);
    pos(4) = scale*pos(4)-.05;
    set(gca, 'Position', pos)
elseif lower(axis) == 'x'
    pos(1) = pos(1)+(1-scale)*pos(3);
    pos(3) = scale*pos(3)-.05;
    set(gca, 'Position', pos)
else
    pos(2) = pos(2)+(1-scale)*pos(4);
    pos(4) = scale*pos(4)-.05;
    set(gca, 'Position', pos)
    pos(1) = pos(1)+(1-scale)*pos(3);
    pos(3) = scale*pos(3)-.05;
    set(gca, 'Position', pos)
end