function frames2avi(input, filename)

    aviobj = avifile(filename);
    for i = 1:length(input),
        imagesc(input(i).cdata);
        addframe(aviobj, getframe);
    end
    
    close(aviobj);