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;