Daniel@0: function mirdisplay(d,varargin)
Daniel@0: % MIRDATA/DISPLAY display of a MIR data
Daniel@0: 
Daniel@0: disp(' ');
Daniel@0: v = d.data;
Daniel@0: f = d.sr;
Daniel@0: n = d.name;
Daniel@0: l = d.label;
Daniel@0: p = d.pos;
Daniel@0: fp = d.framepos;
Daniel@0: pp = d.peak.pos;
Daniel@0: pm = d.peak.mode;
Daniel@0: ld = length(v);
Daniel@0: if isempty(d.attack)
Daniel@0:     ap = cell(ld);
Daniel@0: else
Daniel@0:     ap = d.attack.pos;
Daniel@0: end
Daniel@0: if isempty(d.release)
Daniel@0:     rp = cell(ld);
Daniel@0: else
Daniel@0:     rp = d.release.pos;
Daniel@0: end
Daniel@0: if isempty(d.track)
Daniel@0:     tp = cell(ld);
Daniel@0:     tv = cell(ld);
Daniel@0: else
Daniel@0:     tp = d.track.pos;
Daniel@0:     tv = d.track.val;
Daniel@0: end
Daniel@0: if ld == 0
Daniel@0:     disp('No data.');
Daniel@0: else
Daniel@0:     for i = 1:length(v)
Daniel@0:         if nargin < 2
Daniel@0:             va = inputname(1);
Daniel@0:         else
Daniel@0:             va = varargin{1};
Daniel@0:         end
Daniel@0:         if isempty(va)
Daniel@0:             va = 'ans';
Daniel@0:         end
Daniel@0:         if length(v)>1
Daniel@0:             va = [va,'(',num2str(i),')'];
Daniel@0:         end
Daniel@0:         if not(isempty(l)) && iscell(l) && not(isempty(l{i}))
Daniel@0:             lab = ' with label ';
Daniel@0:             if isnumeric(l{i})
Daniel@0:                 lab = [lab,num2str(l{i})];
Daniel@0:             else
Daniel@0:                 lab = [lab,l{i}];
Daniel@0:             end
Daniel@0:         else
Daniel@0:             lab = '';
Daniel@0:         end
Daniel@0:         disp([va,' is the ',d.title,' related to ',n{i},lab,...
Daniel@0:             ', of sampling rate ',num2str(f{i}),' Hz.'])
Daniel@0:         if size(v{i},2) == 0
Daniel@0:             if isempty(d.init)
Daniel@0:                 disp('It does not contain any data.');
Daniel@0:             else
Daniel@0:                 disp('It has not been loaded yet.');
Daniel@0:             end
Daniel@0:         else
Daniel@0:             if iscell(d.channels)
Daniel@0:                 cha = d.channels{i};
Daniel@0:             else
Daniel@0:                 cha = [];
Daniel@0:             end
Daniel@0:             flag = displot(p{i},v{i},d.abs,d.ord,d.title,fp{i},pp{i},tp{i},tv{i},...
Daniel@0:                 cha,d.multidata,pm{i},ap{i},rp{i},d.clusters{i});
Daniel@0:             if flag
Daniel@0:                 fig = get(0,'CurrentFigure');
Daniel@0:                 disp(['Its content is displayed in Figure ',num2str(fig),'.']);
Daniel@0:             else
Daniel@0:                 disp('It does not contain any data.');
Daniel@0:             end
Daniel@0:         end
Daniel@0:     end
Daniel@0: end
Daniel@0: disp(' ');