www.pudn.com > LPCToolbox.rar > RCFIG_CLICK.M

function rcfig_click 
global Ap Cs Handle RFDvars 
 
% this is a windowbtnup callback on Handle.rcfig 
 
%--- get the click location  
 
curaxis = get(Handle.rcfig, 'CurrentAxes'); 
point = get(curaxis, 'CurrentPoint'); 
point = round(point(1,1:2)); % x,y values 
estOrder = point(1); 
 
%--- redraw the line 
 
set(RFDvars.vertline, 'xdata', [estOrder estOrder]); 
RFDvars.estOrder = estOrder; 
   
%--- update the running mean  
 
Cs.rm_ncoeffs = (Cs.rm_ncoeffs*Cs.rm_count + estOrder) / (Cs.rm_count+1); 
Cs.rm_count = Cs.rm_count + 1; 
 
%--- any click is a select+accept click 
 
% clicktype = get(Handle.rcfig, 'SelectionType'); 
% clicktype: normal (left), extend (middle), alt (right) 
 
if (Cs.ncoeffs ~= RFDvars.estOrder) | ~ishandle(Handle.pksfig) 
  Cs.ncoeffs = RFDvars.estOrder; 
 
  set(get(gca,'title'), 'string', getstatusstr); 
 
  analyzeSnd; 
  pksfig_draw;   
else 
  % no need to reanalyze the sound. just show the figure window. 
  figure(Handle.pksfig); 
end 
 
return;