tomwalters@0: % tool tomwalters@0: % tomwalters@0: % INPUT VALUES: tomwalters@0: % tomwalters@0: % RETURN VALUE: tomwalters@0: % tomwalters@0: % bleeck@3: % This external file is included as part of the 'aim-mat' distribution package bleeck@3: % (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 tomwalters@0: tomwalters@0: tomwalters@0: function moviescript() tomwalters@0: % makes movies for all sound files in this directory tomwalters@0: tomwalters@0: modelfile='aim.spf'; tomwalters@0: framespersecond='12'; tomwalters@0: graphicstyle='log'; tomwalters@0: graphictype='sumonly'; tomwalters@0: sound_sample_rate='20000'; tomwalters@0: sound_endian='l'; tomwalters@0: minimum_time_interval='2.0'; tomwalters@0: % input_scale='default'; % that makes problems!! tomwalters@0: input_scale='1.0'; tomwalters@0: output_normalization='1.0'; tomwalters@0: tomwalters@0: dircont=dir; tomwalters@0: nr_files=size(dircont); tomwalters@0: tomwalters@0: fileid=fopen('movie_log.txt','w'); tomwalters@0: tomwalters@0: for i=1:nr_files tomwalters@0: fullname=dircont(i).name; tomwalters@0: [path,name,ext,versn] = fileparts(fullname); tomwalters@0: tomwalters@0: tomwalters@0: if strcmp(ext,'') & exist(fullname)~=7 % not directorys tomwalters@0: fprintf('\n\nMaking Movie from soundfile %s\n',fullname); tomwalters@0: tomwalters@0: outname=sprintf('%s.mov',fullname); tomwalters@0: dostring=sprintf('makemovie(''modelfile'',''%s'',''soundfile'',''%s'',''outfile'',''%s'',''framespersecond'',''%s'',''graphicstyle'',''%s'',''graphictype'',''%s'',''sound_sample_rate'',''%s'',''sound_endian'',''%s'',''minimum_time_interval'',''%s'',''input_scale'',''%s'',''output_normalization'',''%s'')',... tomwalters@0: modelfile,fullname,outname,framespersecond,graphicstyle,graphictype,sound_sample_rate,... tomwalters@0: sound_endian,minimum_time_interval,input_scale,output_normalization); tomwalters@0: tomwalters@0: fprintf('%s\n',dostring); tomwalters@0: fprintf(fileid,'%s\n',dostring); tomwalters@0: eval(dostring); tomwalters@0: tomwalters@0: end tomwalters@0: end tomwalters@0: tomwalters@0: fclose(fileid);