65 lines
1.7 KiB
Mathematica
65 lines
1.7 KiB
Mathematica
|
global PosWait;
|
||
|
|
global SizeWait;
|
||
|
|
global WaitBar;
|
||
|
|
global PosKc;
|
||
|
|
global SizeKc;
|
||
|
|
global KcBar;
|
||
|
|
|
||
|
|
fig = 10;
|
||
|
|
figure(fig), clf
|
||
|
|
Hfig = gcf;
|
||
|
|
set( Hfig, 'Position', [1000, 600, 380, 100], 'Resize', 'off' );
|
||
|
|
|
||
|
|
% Define some default colors :
|
||
|
|
orange = [0.8 0.7 0.1];
|
||
|
|
magenta = [1.0 0.0 1.0];
|
||
|
|
pink = [0.8 0.5 0.7];
|
||
|
|
blue = [0.2 0.2 1.0];
|
||
|
|
lightblue = [0.5 0.7 0.8];
|
||
|
|
lightgreen = [0.2 0.8 0.3];
|
||
|
|
white = [1.0 1.0 1.0];
|
||
|
|
red = [1.0 0.0 0.0];
|
||
|
|
whitepaper = [0.9 0.9 0.6];
|
||
|
|
black = [0.0 0.0 0.0];
|
||
|
|
|
||
|
|
fx4 = 35; fy4 = 35;
|
||
|
|
|
||
|
|
WaitLabel = uicontrol( Hfig, ...
|
||
|
|
'Style', 'text', ...
|
||
|
|
'Position', [fx4+15 fy4+20 280 15], ...
|
||
|
|
'BackgroundColor', lightblue, ...
|
||
|
|
'ForegroundColor', blue, ...
|
||
|
|
'Visible', 'on', ...
|
||
|
|
'FontSize', [10], ...
|
||
|
|
'FontWeight', 'normal', ...
|
||
|
|
'HorizontalAlignment', 'center', ...
|
||
|
|
'String', 'Wait please ...' );
|
||
|
|
|
||
|
|
WaitFrame = uicontrol( Hfig, ...
|
||
|
|
'Style', 'frame', ...
|
||
|
|
'Position', [fx4+15 fy4+5 280 15], ...
|
||
|
|
'Visible', 'on', ...
|
||
|
|
'BackgroundColor', white );
|
||
|
|
PosWait = [fx4+16 fy4+6 1 13];
|
||
|
|
SizeWait = 278;
|
||
|
|
WaitBar = uicontrol( Hfig, ...
|
||
|
|
'Style', 'frame', ...
|
||
|
|
'Position', PosWait, ...
|
||
|
|
'Visible', 'off', ...
|
||
|
|
'ForegroundColor', red, ...
|
||
|
|
'BackgroundColor', red );
|
||
|
|
|
||
|
|
KcFrame = uicontrol( Hfig, ...
|
||
|
|
'Style', 'frame', ...
|
||
|
|
'Position', [fx4+15 fy4-10 280 15], ...
|
||
|
|
'Visible', 'on', ...
|
||
|
|
'BackgroundColor', white );
|
||
|
|
PosKc = [fx4+16 fy4-9 1 13];
|
||
|
|
SizeKc = 278;
|
||
|
|
KcBar = uicontrol( Hfig, ...
|
||
|
|
'Style', 'frame', ...
|
||
|
|
'Position', PosKc, ...
|
||
|
|
'Visible', 'off', ...
|
||
|
|
'ForegroundColor', blue, ...
|
||
|
|
'BackgroundColor', blue );
|