Mercurial > repos > public > sbplib

view +anim/setup_fig_mov.m @ 673:9e1d2351f539 feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change penalties in Free BC to enable mixed Dirichlet/Free BC.
author Martin Almquist <malmquist@stanford.edu>
date Sat, 23 Dec 2017 15:42:11 +0100
parents 480ef676742f
children
line wrap: on
line source

function save_frame = setup_fig_mov(figure_handle,dirname)

    fresh_dir(dirname)

    figure_handle.Units = 'centimeters';
    figure_handle.PaperUnits = 'centimeters';
    figure_handle.PaperPosition(3:4) = figure_handle.Position(3:4);


    frame_nr = 0;
    function save_frame_F()
        saveas(figure_handle,sprintf('%s/%s%04d.png',dirname,'fig',frame_nr));
        frame_nr = frame_nr + 1;
    end
    save_frame = @save_frame_F;
end