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} = {'&Redo filter order',     'r', 'menuactions(''redo_filtorder'')'}; 
ctl{2} = {'Show/hide spectro&gram', 'g', 'menuactions(''togglespcgm'')'}; 
 
ctl{3} = {'Ne&xt sound',        'x', 'menuactions(''nextsnd'')'}; 
ctl{4} = {'Pre&vious sound',    'v', 'menuactions(''prevsnd'')'}; 
ctl{5} = {'Play &sound',        's', 'menuactions(''playsnd'')'}; 
ctl{6} = {'&Change parameters', 'c', 'menuactions(''changeparams'')'}; 
ctl{7} = {'&Quit',              'q', 'menuactions(''quit'')'}; 
 
nctls = length(ctl); 
 
clear h h1 
 
h = uimenu(Handle.pksfig, 'label', '&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');