wolffd@0: function type = mirtype(x)
wolffd@0: 
wolffd@0: if iscell(x)
wolffd@0:     for i = 1:length(x)
wolffd@0:         type{i} = mirtype(x{i});
wolffd@0:     end
wolffd@0:     return
wolffd@0: end
wolffd@0:     
wolffd@0: if isa(x,'mirdesign')
wolffd@0:     type = get(x,'Type');
wolffd@0: else
wolffd@0:     type = class(x);
wolffd@0: end