0001 function ltpdv_filterImport(varargin)
0002
0003
0004 myh = varargin{1};
0005 panh = varargin{end-1};
0006 mainfig = varargin{end};
0007
0008
0009 filts = ltpdv_get_selected_objs(mainfig);
0010 if length(filts) > 1
0011 error('### Select a single filter object');
0012 end
0013 filt = filts{1};
0014 if ~isa(filt, 'miir')
0015 error('### Select a single miir filter object');
0016 end
0017
0018
0019 setappdata(panh, 'filter', filt);
0020
0021
0022 fih = findobj(panh, 'Tag', 'LTPDVfilterObjectInfo');
0023 set(fih, 'String', display(filt));
0024