Mercurial > hg > aimmat
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 |