function ltpdv_zeroAdd(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 zero list
   zeros = getappdata(mainfig, 'FilterZeros');
   if isempty(q)
      zeros = [zeros pz(f)];
   else
      zeros = [zeros pz(f,q)];
   end
   setappdata(mainfig, 'FilterZeros', zeros);

   % Set pole list
   ltpdv_set_zero_list(mainfig);
end


