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