annotate aim-mat/gui/newsai_loadfile.m @ 4:537f939baef0 tip

various bug fixes and changed copyright message
author Stefan Bleeck <bleeck@gmail.com>
date Tue, 16 Aug 2011 14:37:17 +0100
parents 20ada0af3d7d
children
rev   line source
tomwalters@0 1 % procedure for 'aim-mat'
tomwalters@0 2 %
tomwalters@0 3 % INPUT VALUES:
tomwalters@0 4 %
tomwalters@0 5 % RETURN VALUE:
tomwalters@0 6 %
tomwalters@0 7 %
tomwalters@0 8 % (c) 2011, University of Southampton
bleeck@3 9 % Maintained by Stefan Bleeck (bleeck@gmail.com)
bleeck@3 10 % download of current version is on the soundsoftware site:
bleeck@3 11 % http://code.soundsoftware.ac.uk/projects/aimmat
bleeck@3 12 % documentation and everything is on http://www.acousticscale.org
tomwalters@0 13
tomwalters@0 14
tomwalters@0 15 function [frm,options]=newsai_loadfile(name)
tomwalters@0 16 % load the nap and its options
tomwalters@0 17
tomwalters@0 18
tomwalters@0 19 load(name);
tomwalters@0 20
tomwalters@0 21 whodir=who;
tomwalters@0 22 for i=1:length(whodir)
tomwalters@0 23 if ~strcmp(whodir(i),'name')
tomwalters@0 24 eval(sprintf('classstruct=%s.data;',whodir{i}));
tomwalters@0 25 eval(sprintf('options=%s.options;',whodir{i}));
tomwalters@0 26 if strcmp(whodir(i),'strobestruct')
tomwalters@0 27 frm=classstruct;
tomwalters@0 28 else
tomwalters@0 29 % construct the frame from whatever (sometimes the object is not recognised
tomwalters@0 30 % as object due to the version ??)
tomwalters@0 31 if isobject(classstruct)
tomwalters@0 32 frm=classstruct;
tomwalters@0 33 else
tomwalters@0 34 nr=length(classstruct);
tomwalters@0 35 if nr==1
tomwalters@0 36 frm=frame(classstruct);
tomwalters@0 37 else
tomwalters@0 38 for i=1:nr
tomwalters@0 39 frm{i}=frame(classstruct{i});
tomwalters@0 40 end
tomwalters@0 41 end
tomwalters@0 42 end
tomwalters@0 43 end
tomwalters@0 44 end
tomwalters@0 45 end
tomwalters@0 46
tomwalters@0 47
tomwalters@0 48