tomwalters@0: % procedure for 'aim-mat'
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %
tomwalters@0: % 
bleeck@3: % 
tomwalters@0: % (c) 2011, University of Southampton
bleeck@3: % Maintained by Stefan Bleeck (bleeck@gmail.com)
bleeck@3: % download of current version is on the soundsoftware site: 
bleeck@3: % http://code.soundsoftware.ac.uk/projects/aimmat
bleeck@3: % documentation and everything is on http://www.acousticscale.org
bleeck@3: 
bleeck@3: 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: function retfig=aim_displayaboutbox(handles)
tomwalters@0: 
tomwalters@0: % h = dialog('title','about');
tomwalters@0: 
tomwalters@0: if isfield(handles,'abouttexttodisplay')
tomwalters@0: 	withtext=1;
tomwalters@0: 	abtext=handles.abouttexttodisplay;
tomwalters@0: else
tomwalters@0: 	withtext=0;
tomwalters@0: end	
tomwalters@0: 
tomwalters@0: logoname=sprintf('%s/logo.gif',handles.info.columnpath);
tomwalters@0: [logo,colmap]=imread(logoname);
tomwalters@0: 
tomwalters@0: retfig=figure('Visible','off');
tomwalters@0: h=image(logo);
tomwalters@0: colormap(colmap);
tomwalters@0: h2=get(h,'Parent');
tomwalters@0: retfig=get(h2,'Parent');
tomwalters@0: 
tomwalters@0: % set(win,'Visible','off');
tomwalters@0: set(h2,'YTick',[]);
tomwalters@0: set(h2,'XTick',[]);
tomwalters@0: set(h2,'Position',[0 0 1 1]);
tomwalters@0: 
tomwalters@0: if withtext==1
tomwalters@0: 	a=axis;
tomwalters@0: 	text(20,a(4)/2,abtext,'FontSize',18,'Color','r','Interpreter','none');
tomwalters@0: end
tomwalters@0: 
tomwalters@0: a=axis;
tomwalters@0: text(20,0.91.*a(4),release('ver'),'FontSize',12,'Color','b','Interpreter','none');
tomwalters@0: % text(20,0.95.*a(4),release('rev'),'FontSize',9,'Color','b','Interpreter','none');
tomwalters@0: text(20,0.98.*a(4),release('date'),'FontSize',12,'Color','b','Interpreter','none');
tomwalters@0: 
tomwalters@0: set(retfig,'Name','About aim-mat');
tomwalters@0: set(retfig,'NumberTitle','off');
tomwalters@0: set(retfig,'MenuBar','none');
tomwalters@0: movegui(retfig,'center');
tomwalters@0: pos=get(retfig,'Position');
tomwalters@0: sis=size(logo);
tomwalters@0: pos(3)=sis(2);
tomwalters@0: pos(4)=sis(1);
tomwalters@0: set(retfig,'Position',pos);
tomwalters@0: set(retfig,'Visible','on');
tomwalters@0: % but = uicontrol('Style', 'pushbutton', 'String', 'OK','Position', [390 0 70 60]);
tomwalters@0: % set(but,'Parent',win);
tomwalters@0: % set(but,'FontSize',20);
tomwalters@0: % set(but,'Callback', 'close');
tomwalters@0: % set(but,'FontWeight','bold');
tomwalters@0: 
tomwalters@0: a=0;
tomwalters@0: