0001 function ltpdv_storeFilter(varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011 myh = varargin{1};
0012 htab = varargin{end-1};
0013 mainfig = varargin{end};
0014
0015 filts = getappdata(mainfig, 'Filters');
0016
0017
0018 fh = findobj(mainfig, 'Tag', 'LTPDVfilterList');
0019 idx = get(fh, 'Value');
0020 sfilts = [];
0021 for j=1:length(filts)
0022 if ismember(j, idx)
0023 sfilts = [sfilts filts(j)];
0024 end
0025 end
0026
0027
0028 objs = getappdata(mainfig, 'LTPDAobjects');
0029 for j=1:length(sfilts)
0030 filt = sfilts(j);
0031 objs = [objs {filt}];
0032 end
0033 setappdata(mainfig, 'LTPDAobjects', objs);
0034
0035
0036 ltpdv_refresh_object_list(mainfig);
0037
0038
0039