0001 function filt = ltpdv_get_selected_filter(htab)
0002
0003
0004
0005 pidx = get(htab, 'SelectedIndex');
0006 pans = get(htab, 'Children');
0007 panh = pans(pidx);
0008
0009
0010
0011 switch get(panh, 'Title')
0012 case 'Standard'
0013
0014 filt = ltpdv_filter_from_standard_panel(panh);
0015 case 'File'
0016 filt = getappdata(panh, 'filter');
0017 case 'Object'
0018 filt = getappdata(panh, 'filter');
0019 case 'Poles/Zeros'
0020 mainfig = findobj(0, 'Tag', 'LTPDVmainfig');
0021 pzm = ltpdv_filter_get_pzmodel(mainfig);
0022 filt = miir(plist('pzmodel', pzm));
0023 otherwise
0024 error('### Unknown panel.');
0025 end