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