function peigui_animationsaved()


% This funtion open a window with a menu to visualizate 
% movies previously done with the hopsgui software.



global peigui_obj


a = figure('Units','normalized', ...
	'Color',[0.8 0.8 0.8], ...
	'InvertHardcopy','off', ...
	'MenuBar','none', ...
	'Name',' Load Animation', ...	
	'PaperType','a4letter', ...
	'NumberTitle','off',....
	'Position',[0.25 0.5 0.128125 0.25]);
	
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[0.701961 0.701961 0.701961], ...
	'Callback','peigui_animation loadanimation', ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.128049 0.347656 0.7 0.13], ...
	'String','Load Animation', ...
	'Tag','Pushbutton1');
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[0.701961 0.701961 0.701961], ...
	'Callback','peigui_animation playloadanimation', ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.128049 0.195312 0.70122 0.132812], ...
	'String','Play Animation', ...
	'Tag','Pushbutton1');
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','peigui_animation getfps', ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.518293 0.693281 0.38 0.08], ...
	'String',num2str(peigui_obj{1}.fps), ...
	'Style','edit', ...
	'Tag','EditText1');
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[0.701961 0.701961 0.701961], ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.0853659 0.695312 0.378049 0.0820312], ...
	'String','FPS', ...
	'Style','text', ...
	'Tag','StaticText1');
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','peigui_animation gettimes', ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.518293 0.59375 0.38 0.08], ...
	'String',num2str(peigui_obj{1}.nta), ...
	'Style','edit', ...
	'Tag','EditText1');
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[0.701961 0.701961 0.701961], ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.0853659 0.597656 0.378049 0.078125], ...
	'String','Times', ...
	'Style','text', ...
	'Tag','StaticText1');
peigui_obj{1}.hanimationsavedgui=a;
	
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[0.701961 0.701961 0.701961], ...
	'Callback','close(peigui_obj{1}.hanimationsavedgui) ; close(peigui_obj{1}.hanimationsaved)', ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.128049 0.0429688 0.70122 0.132812], ...
	'String','Exit', ...
	'Tag','Pushbutton1');



