gmaze_pv/visu/videotimeline.m

%
% [] = videotimeline(TIMERANGE,IT,POSITION)
%
% TIMERANGE contains all the time line serie
% TIME contains the current time
%

function varargout = videotimeline(TIME,it,POSIT)


[nt nc] = size(TIME);

DY = .02;
DX = 1/nt;

bgcolor=['w' 'r'];
bdcolor=['k' 'r'];
txtcolor=['k' 'w'];
fts = 8;

figure(gcf);hold on

for ii = 1 : nt
  %p=patch([ii-1 ii ii ii-1]*DX,[1 1 0 0]*DY,'w');
  if POSIT == 't'
    s=subplot('position',[(ii-1)*DX 1-DY DX DY]);
  else
    s=subplot('position',[(ii-1)*DX 0 DX DY]);
  end
  p=patch([0 1 1 0],[0 0 1 1],'w');
  set(s,'ytick',[],'xtick',[]);
  set(s,'box','on');
  tt=text(.35,0.5,TIME(ii,:));
  
  if ii == it
    set(p,'facecolor',bgcolor(2));
    set(p,'edgecolor',bdcolor(2));
    %set(s,'color',bgcolor(2));
    set(tt,'fontsize',fts,'color',txtcolor(2));
  else
    set(p,'facecolor',bgcolor(1));
    set(p,'edgecolor',bdcolor(1));
    %set(s,'color',bgcolor(1));
    set(tt,'fontsize',fts,'color',txtcolor(1));
  end
end
1	%
2	% [] = videotimeline(TIMERANGE,IT,POSITION)
3	%
4	% TIMERANGE contains all the time line serie
5	% TIME contains the current time
6	%
7
8	function varargout = videotimeline(TIME,it,POSIT)
9
10
11	[nt nc] = size(TIME);
12
13	DY = .02;
14	DX = 1/nt;
15
16	bgcolor=['w' 'r'];
17	bdcolor=['k' 'r'];
18	txtcolor=['k' 'w'];
19	fts = 8;
20
21	figure(gcf);hold on
22
23	for ii = 1 : nt
24	%p=patch([ii-1 ii ii ii-1]DX,[1 1 0 0]DY,'w');
25	if POSIT == 't'
26	s=subplot('position',[(ii-1)*DX 1-DY DX DY]);
27	else
28	s=subplot('position',[(ii-1)*DX 0 DX DY]);
29	end
30	p=patch([0 1 1 0],[0 0 1 1],'w');
31	set(s,'ytick',[],'xtick',[]);
32	set(s,'box','on');
33	tt=text(.35,0.5,TIME(ii,:));
34
35	if ii == it
36	set(p,'facecolor',bgcolor(2));
37	set(p,'edgecolor',bdcolor(2));
38	%set(s,'color',bgcolor(2));
39	set(tt,'fontsize',fts,'color',txtcolor(2));
40	else
41	set(p,'facecolor',bgcolor(1));
42	set(p,'edgecolor',bdcolor(1));
43	%set(s,'color',bgcolor(1));
44	set(tt,'fontsize',fts,'color',txtcolor(1));
45	end
46	end