0001 function Synchronisationsetup
0002
0003
0004
0005
0006
0007
0008
0009 orbfig = findobj(allchild(0),'tag','Timingsetup');
0010
0011 if ~isempty(orbfig), delete(orbfig); end
0012 orbfig = findobj(allchild(0),'tag','Timingsetup');
0013
0014
0015 kmax = 8;
0016
0017 height = 10 + kmax*30 + 30;
0018 a = figure('Color',[0.8 0.8 0.8], ...
0019 'Interruptible', 'on', ...
0020 'HandleVisibility','off', ...
0021 'MenuBar','none', ...
0022 'Name', 'Timingsetup', ...
0023 'NumberTitle','off', ...
0024 'Units','pixels', ...
0025 'Position',[5 70 210*2 height], ...
0026 'Resize','off', ...
0027 'Tag','Timingsetup');
0028
0029 height = height - 35;
0030
0031 for k = 1:kmax,
0032 b1(k) = uicontrol('Parent',a, ...
0033 'Position',[3 height-(k-1)*30 204 27], ...
0034 'Interruptible', 'off', ...
0035 'Tag','button22');
0036 end
0037
0038 for k = 1:kmax,
0039 b2(k) = uicontrol('Parent',a, ...
0040 'Position',[3 + 210 height-(k-1)*30 204 27], ...
0041 'Interruptible', 'off', ...
0042 'Tag','button22');
0043 end
0044
0045 set(b1(1), 'Callback','disp(['' Timing;'']); synchro_injecteur7;', 'String','Synchronisation');
0046 set(b1(2), 'Callback','disp(['' Fichiers de Consignes;'']); save_boo;', 'String','Fichiers de Consignes');
0047 set(b1(3), 'Callback','disp(['' Timing_test;'']); synchro_mode_tests;', 'String','Synchro_mode_test');
0048 set(b1(4), 'Callback','disp(['' Survey;'']); synchro_survey;', 'String','Synchro_survey');
0049
0050 set(b2(1), 'Callback','disp(['' Kickers ANS;'']); set_bump0;', 'String',' Set kickers bump symmetric');
0051 set(b2(2), 'Callback','disp(['' Kickers ANS;'']); set_bump1;', 'String',' Set kickers bump optim 1');
0052 set(b2(3), 'Callback','disp(['' Kickers ANS;'']); set_bump2;', 'String',' Set kickers bump optim 2');
0053 set(b2(4), 'Callback','disp(['' Kickers ANS;'']); set_bump3;', 'String',' Set kickers bump optim 3');
0054 set(b2(5), 'Callback','disp(['' Kickers ANS;'']); set_bump4;', 'String',' Set kickers bump optim 4');
0055 set(b2(6), 'Callback','disp(['' Kickers ANS;'']); set_bump5;', 'String',' Set kickers bump optim 5');
0056
0057
0058 b = uicontrol('Parent',a, ...
0059 'Callback','close all', ...
0060 'String','Close All Figures', ...
0061 'Position',[3 height-kmax*30 204 27], ...
0062 'Userdata',[], ...
0063 'Interruptible', 'off', ...
0064 'Tag','button2');
0065
0066 b = uicontrol('Parent',a, ...
0067 'Callback','diary off; close(get(findobj(gcbf,''Tag'',''button1''),''Userdata''));', ...
0068 'Position',[3 + 210 height-kmax*30 204 27], ...
0069 'String','CLOSE', ...
0070 'Userdata',a, ...
0071 'Interruptible', 'off', ...
0072 'Tag','button1');
0073