source: MML/trunk/machine/SOLEIL/common/synchro/Synchronisationsetup_op.m @ 4

Last change on this file since 4 was 4, checked in by zhangj, 11 years ago

Initial import--MML version from SOLEIL@2013

File size: 2.0 KB
Line 
1function Synchronisationsetup_op
2%LT2SETUP - GUI for doing LT2 setup
3
4%
5% Written by Laurent S. Nadolski
6
7
8
9orbfig = findobj(allchild(0),'tag','Timingsetup');
10
11if ~isempty(orbfig), delete(orbfig); end
12orbfig = findobj(allchild(0),'tag','Timingsetup');
13
14
15kmax = 6; % button number
16
17height = 10 + kmax*30 + 30; %670;
18a = figure('Color',[0.8 0.8 0.8], ...
19    'Interruptible', 'on', ...   
20    'HandleVisibility','off', ...
21    'MenuBar','none', ...
22    'Name', 'Timingsetup', ...
23    'NumberTitle','off', ...
24    'Units','pixels', ...
25    'Position',[5 70 210*2 height], ...
26    'Resize','off', ...
27    'Tag','Timingsetup');
28
29height = height - 35;
30
31for k = 1:kmax,
32    b1(k) = uicontrol('Parent',a, ...
33        'Position',[3 height-(k-1)*30 204 27], ...
34        'Interruptible', 'off', ...
35        'Tag','button22');
36end
37
38for k = 1:kmax,
39    b2(k) = uicontrol('Parent',a, ...
40        'Position',[3 + 210 height-(k-1)*30 204 27], ...
41        'Interruptible', 'off', ...
42        'Tag','button22');
43end
44
45set(b1(1), 'Callback','disp([''   Fichiers de Consignes;'']); save_boo;', 'String','Fichiers de Consignes');
46set(b1(2), 'Callback','disp([''   Survey;'']); synchro_survey;', 'String','Synchro_survey');
47set(b1(3), 'Callback','disp([''   Timing;'']); synchro_injecteur8_rafale;', 'String','Synchronisation');
48set(b1(4), 'Callback','disp([''   Timing_test;'']); synchro_rafale_mode_tests;', 'String','Synchro_mode_test');
49
50set(b2(1), 'Callback','disp([''   Scale Kickers;'']); kicker_scaling;', 'String','ANS Kickers Scaling');
51
52
53b = uicontrol('Parent',a, ...
54    'Callback','close all', ...
55    'String','Close All Figures', ...
56    'Position',[3 height-kmax*30 204 27], ...
57    'Userdata',[], ...
58    'Interruptible', 'off', ...   
59    'Tag','button2');
60
61b = uicontrol('Parent',a, ...
62    'Callback','diary off; close(get(findobj(gcbf,''Tag'',''button1''),''Userdata''));', ...
63    'Position',[3 + 210 height-kmax*30 204 27], ...
64    'String','CLOSE', ...
65    'Userdata',a, ...
66    'Interruptible', 'off', ...   
67    'Tag','button1');
68
Note: See TracBrowser for help on using the repository browser.