0
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 1 function welcome2LTPDA(varargin)
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 2 % Introductory window for the LTPDA Toolbox.
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 3 %
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 4 % The animated GIF code is taken from 'gifplayer.m' by
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 5 % Vihang Patil, Oct 2006
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 6 % Copyright 2006-2007 Vihang Patil
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 7 % Email: vihang_patil@yahoo.com
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 8 % Created: 17th Oct 2006
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 9 % $Id: welcome2LTPDA.m,v 1.2 2009/01/23 12:40:51 nicola Exp $
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 10
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 11 global timePeriod
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 12
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 13 timePeriod = 0;
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 14 screenSize = get(0,'ScreenSize');
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 15
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 16 try
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 17 guiName = varargin{1}; guiSize = varargin{2};
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 18 catch
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 19 guiName = ''; guiSize = [1 1 450 500];
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 20 end
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 21
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 22 introSize = [(screenSize(3)-guiSize(3))/2 , (screenSize(4)-guiSize(4))/2 , guiSize(3) , guiSize(4)];
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 23 introFig = figure('Position',introSize,'Resize','off','Name',guiName,'NumberTitle','off','Toolbar','none','Menubar','none','Tag','LTPDAGUI');
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 24
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 25
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 26 logoSize = [303,303];
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 27 introPosition = [(introSize(3)-logoSize(1))/2 , (introSize(4)-logoSize(2))/2 , logoSize];
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 28 logo = axes('Parent',introFig,'Units','pixels','Position',introPosition);
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 29 image(imread('ltp.jpg'),'Parent',logo,'AlphaData',imread('ltpalpha.gif'));
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 30 axis(logo,'off'); axis(logo,'square');
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 31 set(logo,'HandleVisibility','callback');
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 32
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 33 uicontrol('Parent',introFig,'BackgroundColor',[1 1 1],'HorizontalAlignment','center','Position',[0 introSize(4)-50 introSize(3) 25],'String','Welcome to the LTP','FontName','Times New Roman','FontSize',18,'Visible','on','Style','text');
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 34 uicontrol('Parent',introFig,'BackgroundColor',[1 1 1],'HorizontalAlignment','center','Position',[0 introSize(4)-75 introSize(3) 25],'String','Data Analysis Toolbox','FontName','Times New Roman','FontSize',18,'Visible','on','Style','text');
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 35
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 36 loading = uicontrol('Parent',introFig,'BackgroundColor',[1 1 1],'HorizontalAlignment','left','Position',[(introSize(3)-50)/2 15 70 25],'String','loading','FontName','Times New Roman','FontSize',10,'fontAngle','italic','Visible','on','Style','text','Tag','loading');
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 37
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 38 gif_image = 'loading.gif';
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 39 delay_length = 0.1;
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 40 gifSize = [23 23];
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 41 axes('Parent',introFig,'Units','pixels','Position',[(introSize(3)-gifSize(1))/2 50 gifSize]);
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 42 [handles.im,map] = imread(gif_image,'frames','all');
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 43 handles.len = size(handles.im,4);
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 44 handles.h1 = image(handles.im(:,:,:,1));
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 45 colormap(map);
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 46 axis normal;
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 47 axis off;
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 48 handles.guifig = gcf;
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 49 handles.count = 1;
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 50 handles.tmr = timer('TimerFcn', {@TmrFcn,handles.guifig},'BusyMode','Queue','ExecutionMode','FixedRate','Period',delay_length);
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 51 guidata(handles.guifig, handles);
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 52 start(handles.tmr); %starts Timer
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 53 guidata(handles.guifig, handles);
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 54
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 55 set(loading,'DeleteFcn',{@DeleteFunction,handles.guifig});
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 56
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 57
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 58 function TmrFcn(src,event,handles)
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 59 handles = guidata(handles);
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 60 set(handles.h1,'CData',handles.im(:,:,:,handles.count)); %update the frame in the axis
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 61 handles.count = handles.count + 1; %increment to next frame
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 62
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 63 if handles.count > handles.len %if the last frame is achieved intialise to first frame
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 64 handles.count = 1;
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 65 end
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 66 guidata(handles.guifig, handles);
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 67
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 68 loadingStr = get(findobj('Tag','loading'),'String');
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 69 switch loadingStr
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 70 case 'loading.....', loadingStr = 'loading';
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 71 otherwise, loadingStr = [loadingStr,'.'];
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 72 end
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 73
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 74 if timePeriod == 2, set(findobj('Tag','loading'),'String',loadingStr); timePeriod = 0;
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 75 else timePeriod = timePeriod +1;
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 76 end
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 77 end
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 78
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 79
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 80 function DeleteFunction(src,event,handles)
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 81 handles = guidata(handles);
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 82 clear global timePeriod
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 83 try stop(handles.tmr);delete(handles.tmr); catch end
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 84 end
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 85
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 86 end
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 87
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 88
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
+ − 89