wolffd@0: function b = isamir(x,class)
wolffd@0: 
wolffd@0: if isempty(x) || isnumeric(x)
wolffd@0:     b = 0;
wolffd@0:     return
wolffd@0: end
wolffd@0: 
wolffd@0: if iscell(x)
wolffd@0:     x = x{1};
wolffd@0: end
wolffd@0: 
wolffd@0: if isa(x,class)
wolffd@0:     b = 1;
wolffd@0:     return
wolffd@0: elseif ischar(x) && strcmpi(class,'miraudio')
wolffd@0:     b = 1;
wolffd@0:     return
wolffd@0: elseif not(isa(x,'mirdesign'))
wolffd@0:     b = 0;
wolffd@0:     return
wolffd@0: end
wolffd@0: 
wolffd@0: type = get(x,'Type');
wolffd@0: if iscell(type)
wolffd@0:     type = type{1};
wolffd@0: end
wolffd@0: types = lineage(type);
wolffd@0: b = 0;
wolffd@0: i = 0;
wolffd@0: while not(b) && i<length(types)
wolffd@0:     i = i+1;
wolffd@0:     if strcmpi(types(i),class)
wolffd@0:         b = 1;
wolffd@0:     end
wolffd@0: end
wolffd@0: 
wolffd@0: 
wolffd@0: function types = lineage(class)
wolffd@0: switch class
wolffd@0:     case {'miraudio','mirenvelope'}
wolffd@0:         parent = 'mirtemporal';
wolffd@0:     case {'mirautocor','mircepstrum','mirchromagram','mirhisto',...
wolffd@0:           'mirkeysom','mirkeystrength','mirmatrix','mirmfcc',...
wolffd@0:           'mirscalar','mirsimatrix','mirspectrum',...
wolffd@0:           'mirtemporal','mirtonalcentroid'}
wolffd@0:         parent = 'mirdata';
wolffd@0:     otherwise
wolffd@0:         parent = '';
wolffd@0: end
wolffd@0: 
wolffd@0: if isempty(parent)
wolffd@0:     types = {class};
wolffd@0: else
wolffd@0:     parents = lineage(parent);
wolffd@0:     types = {class parents{:}};
wolffd@0: end