mirtype(x)

function type = mirtype(x)

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