Daniel@0: function d = mirdata(orig,varargin)
Daniel@0: %   d = mirdata(x) creates a MIR object.
Daniel@0: 
Daniel@0: if nargin > 0 && isa(orig,'mirdata')
Daniel@0:     d.pos = orig.pos;
Daniel@0:     d.data = orig.data;
Daniel@0:     d.unit = orig.unit;
Daniel@0:     d.framepos = orig.framepos;
Daniel@0:     d.framed = orig.framed;
Daniel@0:     d.sr = orig.sr;
Daniel@0:     d.nbits = orig.nbits;
Daniel@0:     d.name = orig.name;
Daniel@0:     d.name2 = orig.name2;
Daniel@0:     d.label = orig.label;
Daniel@0:     d.channels = orig.channels;
Daniel@0:     d.clusters = orig.clusters;
Daniel@0:     d.multidata = orig.multidata;
Daniel@0:     d.peak = orig.peak;
Daniel@0:     d.attack = orig.attack;
Daniel@0:     d.release = orig.release;
Daniel@0:     d.track = orig.track;
Daniel@0:     d.title = orig.title;
Daniel@0:     d.abs = orig.abs;
Daniel@0:     d.ord = orig.ord;
Daniel@0:     d.interchunk = orig.interchunk;
Daniel@0:     d.tmpidx = orig.tmpidx;
Daniel@0:     d.acrosschunks = orig.acrosschunks;
Daniel@0:     d.interpolable = orig.interpolable;
Daniel@0:     d.tmpfile = orig.tmpfile;
Daniel@0:     d.index = orig.index;
Daniel@0: else
Daniel@0:     d.pos = {};
Daniel@0:     d.data = {};
Daniel@0:     d.unit = '';
Daniel@0:     d.framepos = {};
Daniel@0:     d.framed = 0;
Daniel@0:     d.sr = {};
Daniel@0:     d.nbits = {};
Daniel@0:     d.name = {};
Daniel@0:     d.name2 = {};
Daniel@0:     d.label = {};
Daniel@0:     d.channels = [];
Daniel@0:     d.clusters = {};
Daniel@0:     d.multidata = [];
Daniel@0:     d.peak.pos = {};
Daniel@0:     d.peak.val = {};
Daniel@0:     d.peak.precisepos = {};
Daniel@0:     d.peak.preciseval = {};
Daniel@0:     d.peak.mode = {};
Daniel@0:     d.attack = {};
Daniel@0:     d.release = {};
Daniel@0:     d.track = {};
Daniel@0:     d.title = 'Unspecified data';
Daniel@0:     d.abs = 'Unspecified abscissa';
Daniel@0:     d.ord = 'Unspecified ordinate';
Daniel@0:     d.interchunk = [];
Daniel@0:     d.tmpidx = 0;
Daniel@0:     d.acrosschunks = [];
Daniel@0:     d.interpolable = 1;  % If the abscissae axis is non-numeric (0), 
Daniel@0:                          % then peak picking has to be done without interpolation.
Daniel@0:     d.tmpfile = [];
Daniel@0:     d.index = NaN;
Daniel@0: end
Daniel@0: d = class(d,'mirdata');
Daniel@0: d = set(d,varargin{:});