view +anim/setup_fig_mov.m @ 351:7cc3d5bd3692 feature/hypsyst

Curve linear code in 3D converges for manufactures solution
author Ylva Rydin <ylva.rydin@telia.com>
date Thu, 03 Nov 2016 22:03:09 +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