tomwalters@0: % procedure for 'aim-mat'
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  
tomwalters@0: %   RETURN VALUE:
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 handles=setupnames(handles,signame_org)
tomwalters@0: % set up all relevant names according to the signal in signame
tomwalters@0: 
tomwalters@0: [pathstr,signame,ext] = fileparts(signame_org);
tomwalters@0: 
tomwalters@0: uniqueworkingname=signame;
tomwalters@0: directoryname=uniqueworkingname;
tomwalters@0: 
tomwalters@0: handles.info.start_directory=pathstr;
tomwalters@0: signalname=fullfile(directoryname,sprintf('%s.signal.mat',uniqueworkingname));
tomwalters@0: originalwavename=fullfile(directoryname,sprintf('%s.original_signal.wav',uniqueworkingname));
tomwalters@0: % originalwavename=sprintf('%s/%s.original_signal.wav',directoryname,uniqueworkingname);
tomwalters@0: 
tomwalters@0: signalwavename=fullfile(directoryname,sprintf('%s.wav',uniqueworkingname));
tomwalters@0: % signalwavename=sprintf('%s/%s.wav',directoryname,uniqueworkingname);
tomwalters@0: oldsignalwavename=sprintf('%s.wav',uniqueworkingname);
tomwalters@0: 
tomwalters@0: pcpname=fullfile(directoryname,sprintf('%s.pcp.mat',uniqueworkingname));
tomwalters@0: % pcpname=sprintf('%s/%s.pcp.mat',directoryname,uniqueworkingname);
tomwalters@0: bmmname=fullfile(directoryname,sprintf('%s.bmm.mat',uniqueworkingname));
tomwalters@0: % bmmname=sprintf('%s/%s.bmm.mat',directoryname,uniqueworkingname);
tomwalters@0: napname=fullfile(directoryname,sprintf('%s.nap.mat',uniqueworkingname));
tomwalters@0: % napname=sprintf('%s/%s.nap.mat',directoryname,uniqueworkingname);
tomwalters@0: strobesname=fullfile(directoryname,sprintf('%s.strobes.mat',uniqueworkingname));
tomwalters@0: % strobesname=sprintf('%s/%s.strobes.mat',directoryname,uniqueworkingname);
tomwalters@0: thresholdsname=fullfile(directoryname,sprintf('%s.thresholds.mat',uniqueworkingname));
tomwalters@0: % thresholdsname=sprintf('%s/%s.thresholds.mat',directoryname,uniqueworkingname);
tomwalters@0: sainame=fullfile(directoryname,sprintf('%s.sai.mat',uniqueworkingname));
tomwalters@0: % sainame=sprintf('%s/%s.sai.mat',directoryname,uniqueworkingname);
tomwalters@0: 
tomwalters@0: % TCW AIM2006 Added for pitchresonance compatibility
tomwalters@0: pitch_imagename=fullfile(directoryname,sprintf('%s.pitch_image.mat',uniqueworkingname));
tomwalters@0: 
tomwalters@0: usermodulename=fullfile(directoryname,sprintf('%s.usermodule.mat',uniqueworkingname));
tomwalters@0: % usermodulename=sprintf('%s/%s.usermodule.mat',directoryname,uniqueworkingname);
tomwalters@0: 
tomwalters@0: % look which movies are there
tomwalters@0: % mnames = fieldnames(handles.all_options.movieoptions);
tomwalters@0: % moviename=[];
tomwalters@0: % for i=1:length(mnames)
tomwalters@0: %     cn=mnames(i);
tomwalters@0: %     mname=sprintf('%s/%s.%s.mov',directoryname,uniqueworkingname,cn{1});
tomwalters@0: %     if fexist(mname)
tomwalters@0: %         moviename{i}=mname;
tomwalters@0: %     end
tomwalters@0: % end
tomwalters@0: % moviename{1}=sprintf('%s/%s.dp.mov',directoryname,uniqueworkingname);
tomwalters@0: % moviename{2}=sprintf('%s/%s.dpai.mov',directoryname,uniqueworkingname);
tomwalters@0: 
tomwalters@0: 
tomwalters@0: % these one has a underscore instead of a dot. Otherwise we cant run it
tomwalters@0: parameterfilename=fullfile(directoryname,sprintf('%s_parameters.m',uniqueworkingname));
tomwalters@0: % parameterfilename=sprintf('%s/%s_parameters.m',directoryname,uniqueworkingname);
tomwalters@0: projectfilename=fullfile(directoryname,sprintf('%s_project.m',uniqueworkingname));
tomwalters@0: % projectfilename=sprintf('%s/%s_project.m',directoryname,uniqueworkingname);
tomwalters@0: 
tomwalters@0: % set the name of the figure
tomwalters@0: compname=[pwd '\' oldsignalwavename];
tomwalters@0: if isfield(handles,'figure1')
tomwalters@0: 	set(handles.figure1,'Name',compname);
tomwalters@0: end
tomwalters@0: 
tomwalters@0: 
tomwalters@0: % we start here!
tomwalters@0: handles.info.original_soundfile_directory=pwd;
tomwalters@0: 
tomwalters@0: handles.info.completesoundfilename=compname;
tomwalters@0: handles.info.uniqueworkingname=uniqueworkingname;
tomwalters@0: handles.info.directoryname=directoryname;
tomwalters@0: handles.info.signalname=signalname;
tomwalters@0: handles.info.signalwavename=signalwavename;
tomwalters@0: handles.info.originalwavename=originalwavename;
tomwalters@0: handles.info.oldsignalwavename=oldsignalwavename;
tomwalters@0: handles.info.pcpname=pcpname;
tomwalters@0: handles.info.bmmname=bmmname;
tomwalters@0: handles.info.napname=napname;
tomwalters@0: handles.info.strobesname=strobesname;
tomwalters@0: handles.info.thresholdsname=thresholdsname;
tomwalters@0: handles.info.sainame=sainame;
tomwalters@0: 
tomwalters@0: % TCW AIM2006 Added for pitchresonance compatibility
tomwalters@0: handles.info.pitch_imagename=pitch_imagename;
tomwalters@0: 
tomwalters@0: handles.info.usermodulename=usermodulename;
tomwalters@0: % handles.info.moviename=moviename;
tomwalters@0: handles.info.parameterfilename=parameterfilename;
tomwalters@0: handles.info.projectfilename=projectfilename;
tomwalters@0: