Mercurial > hg > ltpda

comparison m-toolbox/m/gui/ltpdv/callbacks/ltpdv_buildSpectralPanel.m @ 0:f0afece42f48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import.
author Daniele Nicolodi <nicolodi@science.unitn.it>
date Wed, 23 Nov 2011 19:22:13 +0100
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:f0afece42f48
1 function ltpdv_buildSpectralPanel(panH, mainfig)
2
3
4 Gproperties = getappdata(mainfig, 'Gproperties');
5
6 % List of functions
7 preFcns = ltpdv_spectral_function_list;
8
9 % Margins
10 pmarg = 0.025;
11
12 % Text string
13 ll = pmarg;
14 lh = 0.05;
15 lb = 1-pmarg-lh;
16 lw = 0.3;
17 sth = uicontrol(panH,'Style','text',...
18 'String','Functions',...
19 'Units', 'normalized', ...
20 'BackgroundColor', Gproperties.Gcol, ...
21 'Fontsize', 12, ...
22 'Position',[ll lb lw lh]);
23
24 % Params panel
25 pl = pmarg + 0.3 + pmarg;
26 pb = 0.1;
27 pw = 1-pl-pmarg;
28 ph = 1 - pb - pmarg;
29
30 paramh = uipanel('Parent',panH,'Title','Parameters',...
31 'Units', 'normalized', ...
32 'BackgroundColor', 0.8*[0.99 0.92 0.82], ...
33 'Fontsize', 12, ...
34 'Tag', 'LTPDVspectralparampan', ...
35 'Position',[pl pb pw ph]);
36
37 % Function list
38 ll = pmarg;
39 lb = pmarg;
40 lw = 0.3;
41 lh = 1-2*pmarg - 0.05;
42 lh = uicontrol(panH, 'Style', 'listbox', ...
43 'String', preFcns(:,2),...
44 'BackgroundColor', 'w', ...
45 'Value',1, 'Units', 'normalized', ...
46 'Fontsize', 12, ...
47 'Tag', 'LTPDVspectralfcnlist', ...
48 'Position',[ll lb lw lh], ...
49 'Callback', {@ltpdv_spectral_fcnlist, paramh, mainfig});
50
51 % Build params
52 ltpdv_spectral_fcnlist(lh, paramh, mainfig);
53
54 % Process button
55 phght = 0.05;
56 pbott = pmarg;
57 pwidt = 0.2;
58 pleft = 1-pmarg-pwidt;
59 pbh = uicontrol(panH,'Style','pushbutton',...
60 'String','Process',...
61 'Callback', {@ltpdv_fcn_run, 'spectral', panH, mainfig}, ...
62 'Units', 'normalized', ...
63 'Position',[pleft pbott pwidt phght]);
64
65
66