Home > m > gui > ltpdv > callbacks > ltpdv_poleDelete.m

ltpdv_poleDelete

PURPOSE ^

Handles

SYNOPSIS ^

function ltpdv_poleDelete(varargin)

DESCRIPTION ^

 Handles

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

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);

Generated on Mon 08-Sep-2008 13:18:47 by m2html © 2003