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



function pksfig_setup
global Handle

Handle.pksfig = figure('menubar', 'none', 'units', 'normalized');
set(gcf, 'position', [0.1203 0.1826 0.7570 0.6670]);
colordef(gcf, 'black');
Handle.wavaxis = axes('position', [0.1 0.62 0.85 0.3]);
Handle.pksaxis = axes('position', [0.1 0.1 0.85 0.47]);

set(Handle.pksfig, 'WindowButtonUpFcn', 'pksfig_click');
>set(Handle.pksfig, 'KeyPressFcn', 'pksfig_key');
setptr(Handle.pksfig, 'fullcrosshair');

ctl{1} = {'&amt;Redo filter order', 'r', 'menuactions(''redo_filtorder'')'};
ctl{2} = {'Show/hide spectro&amt;gram', 'g', 'menuactions(''togglespcgm'')'};

ctl{3} = {'Ne&amt;xt sound', 'x', 'menuactions(''nextsnd'')'};
ctl{4} = {'Pre&amt;vious sound', 'v', 'menuactions(''prevsnd'')'};
ctl{5} = {'Play &amt;sound', 's', 'menuactions(''playsnd'')'};
ctl{6} = {'&amt;Change parameters', 'c', 'menuactions(''changeparams'')'};
ctl{7} = {'&amt;Quit', 'q', 'menuactions(''quit'')'};

nctls = length(ctl);

clear h h1

h = uimenu(Handle.pksfig, 'label', '&amt;Lpctool');

for i=1:nctls,
h1(i) = uimenu(h, 'label', ctl{i}{1}, ...
'accelerator', ctl{i}{2}, ...
'callback', ctl{i}{3});
end

set(h1(3), 'separator', 'on');