function ltpdv_poleAdd(varargin)

% Handles
myh     = varargin{1};
htab    = varargin{end-1};
mainfig = varargin{end};


% Get freq
fh = findobj(htab, 'Tag', 'LTPDVfilterPZfreq');
fstr = get(fh, 'String');
if ~isempty(fstr)
   f  = str2num(fstr);

   % Get Q
   qh = findobj(htab, 'Tag', 'LTPDVfilterPZq');
   q  = str2num(get(qh, 'String'));

   % Add to pole list
   poles = getappdata(mainfig, 'FilterPoles');
   if isempty(q)
      poles = [poles pz(f)];
   else
      poles = [poles pz(f,q)];
   end
   setappdata(mainfig, 'FilterPoles', poles);

   % Set pole list
   ltpdv_set_pole_list(mainfig);
end


