Daniel@0: function mirsave(m)
Daniel@0: 
Daniel@0: nmat = get(m,'Data');
Daniel@0: n = get(m,'Name');
Daniel@0: for k = 1:length(nmat)
Daniel@0:     writemidi(nmat{k},[n{k},'.mid'],120,60);
Daniel@0: end