+
−function ltpdv_poleDelete(varargin)
+
−
+
−% Handles
+
−myh     = varargin{1};
+
−htab    = varargin{end-1};
+
−mainfig = varargin{end};
+
−
+
−% Get selection
+
−lh = findobj(htab, 'Tag', 'LTPDVfilterPolelist');
+
−idx = get(lh, 'Value');
+
−
+
−% Get poles
+
−poles = getappdata(mainfig, 'FilterPoles');
+
−
+
−% Make new list
+
−ops = [];
+
−for j=1:length(poles)
+
−   if ~ismember(j, idx)
+
−      ops = [ops poles(j)];
+
−   end
+
−end
+
−setappdata(mainfig, 'FilterPoles', ops);
+
−
+
−% Set pole list
+
−ltpdv_set_pole_list(mainfig);