Handles
0001 function ltpdv_poleDelete(varargin) 0002 0003 % Handles 0004 myh = varargin{1}; 0005 htab = varargin{end-1}; 0006 mainfig = varargin{end}; 0007 0008 % Get selection 0009 lh = findobj(htab, 'Tag', 'LTPDVfilterPolelist'); 0010 idx = get(lh, 'Value'); 0011 0012 % Get poles 0013 poles = getappdata(mainfig, 'FilterPoles'); 0014 0015 % Make new list 0016 ops = []; 0017 for j=1:length(poles) 0018 if ~ismember(j, idx) 0019 ops = [ops poles(j)]; 0020 end 0021 end 0022 setappdata(mainfig, 'FilterPoles', ops); 0023 0024 % Set pole list 0025 ltpdv_set_pole_list(mainfig);