tomwalters@0: % procedure for 'aim-mat'
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: % column number
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %	
tomwalters@0: % 
tomwalters@0: % helping function, that gives back the current selected module for a given
tomwalters@0: % column number
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: 
tomwalters@0: function [generating_module,generating_function,coptions]=aim_getcurrent_module(handles,columnnr)
tomwalters@0: 
tomwalters@0: 
tomwalters@0: switch columnnr
tomwalters@0: 	case 2
tomwalters@0: 		options=handles.all_options.pcp;
tomwalters@0: 		generating_module=handles.info.current_pcp_module;	% this one is selected by the user
tomwalters@0: 		handles.info.calculated_pcp_module=generating_module;	% this one is really calculated
tomwalters@0: 		generating_functionline=['options.' generating_module '.generatingfunction'];
tomwalters@0: 		eval(sprintf('generating_function=%s;',generating_functionline'));
tomwalters@0: 		optline=sprintf('coptions=%s.%s;','handles.all_options.pcp',generating_module);
tomwalters@0: 		eval(optline);
tomwalters@0: 	case 3
tomwalters@0: 		options=handles.all_options.bmm;
tomwalters@0: 		generating_module=handles.info.current_bmm_module;	
tomwalters@0: 		handles.info.calculated_bmm_module=generating_module;	% this one is really calculated
tomwalters@0: 		generating_functionline=['options.' generating_module '.generatingfunction'];
tomwalters@0: 		eval(sprintf('generating_function=%s;',generating_functionline'));
tomwalters@0: 		optline=sprintf('coptions=%s.%s;','handles.all_options.bmm',generating_module);
tomwalters@0: 		eval(optline);
tomwalters@0: 	case 4
tomwalters@0: 		options=handles.all_options.nap;
tomwalters@0: 		generating_module=handles.info.current_nap_module;	
tomwalters@0: 		handles.info.calculated_nap_module=generating_module;	% this one is really calculated
tomwalters@0: 		generating_functionline=['options.' generating_module '.generatingfunction'];
tomwalters@0: 		eval(sprintf('generating_function=%s;',generating_functionline'));
tomwalters@0: 		optline=sprintf('coptions=%s.%s;','handles.all_options.nap',generating_module);
tomwalters@0: 		eval(optline);
tomwalters@0: 	case 5
tomwalters@0: 		options=handles.all_options.strobes;
tomwalters@0: 		generating_module=handles.info.current_strobes_module;	
tomwalters@0: 		handles.info.calculated_strobes_module=generating_module;	% this one is really calculated
tomwalters@0: 		generating_functionline=['options.' generating_module '.generatingfunction'];
tomwalters@0: 		eval(sprintf('generating_function=%s;',generating_functionline'));
tomwalters@0: 		optline=sprintf('coptions=%s.%s;','handles.all_options.strobes',generating_module);
tomwalters@0: 		eval(optline);
tomwalters@0: 	case 6
tomwalters@0: 		options=handles.all_options.sai;
tomwalters@0: 		generating_module=handles.info.current_sai_module;	
tomwalters@0: 		handles.info.calculated_sai_module=generating_module;	% this one is really calculated
tomwalters@0: 		generating_functionline=['options.' generating_module '.generatingfunction'];
tomwalters@0: 		eval(sprintf('generating_function=%s;',generating_functionline'));
tomwalters@0: 		optline=sprintf('coptions=%s.%s;','handles.all_options.sai',generating_module);
tomwalters@0: 		eval(optline);
tomwalters@0: 	case 7
tomwalters@0: 		options=handles.all_options.usermodule;
tomwalters@0: 		generating_module=handles.info.current_usermodule_module;	
tomwalters@0: 		handles.info.calculated_usermodule_module=generating_module;	% this one is really calculated
tomwalters@0: 		generating_functionline=['options.' generating_module '.generatingfunction'];
tomwalters@0: 		eval(sprintf('generating_function=%s;',generating_functionline'));
tomwalters@0: 		optline=sprintf('coptions=%s.%s;','handles.all_options.usermodule',generating_module);
tomwalters@0: 		eval(optline);
tomwalters@0: 	case 8
tomwalters@0: 		options=handles.all_options.movie;
tomwalters@0: 		generating_module=handles.info.current_movie_module;
tomwalters@0: 		handles.info.calculated_movie_module=generating_module;	% this one is really calculated
tomwalters@0: 		generating_functionline=['options.' generating_module '.generatingfunction'];
tomwalters@0: 		eval(sprintf('generating_function=%s;',generating_functionline'));
tomwalters@0: 		optline=sprintf('coptions=%s.%s;','handles.all_options.movie',generating_module);
tomwalters@0: 		eval(optline);
tomwalters@0: end