tomwalters@0: % generating function for 'aim-mat'
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %
tomwalters@0: % 
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
bleeck@3: 
tomwalters@0: 
tomwalters@0: function [allstrobeprocesses,allthresholds]=gen_sf1992(nap,strobeoptions)
tomwalters@0: 
tomwalters@0: % this is the same function as sf2003, only the strobe criterium is changed
tomwalters@0: [allstrobeprocesses,allthresholds]=gen_sf2003(nap,strobeoptions);
tomwalters@0: 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: % % find in each channel each strobe and gives it back as an list of
tomwalters@0: % % structures of strobes
tomwalters@0: % 
tomwalters@0: % waithand=waitbar(0,'generating strobes');
tomwalters@0: % % % if not all channels are wanted to be seen
tomwalters@0: % % 
tomwalters@0: % allthresholds=nap;
tomwalters@0: % cfs=getcf(nap);
tomwalters@0: % 
tomwalters@0: % 
tomwalters@0: % % switch strobeoptions.strobe_criterion
tomwalters@0: % % 	case 'threshold'
tomwalters@0: % % 	case 'peak'
tomwalters@0: % % 	case 'temporal_shadow'
tomwalters@0: % % 	case 'temporal_shadow_plus'
tomwalters@0: % % 	case 'delta_gamma'
tomwalters@0: % % 	case 'parabola'
tomwalters@0: % % 	case 'bunt'
tomwalters@0: % % 	case 'adaptive'
tomwalters@0: % % end
tomwalters@0: % 
tomwalters@0: % % strobeoptions.strobe_criterion='peak';
tomwalters@0: % % strobeoptions.strobe_criterion='temporal_shadow';
tomwalters@0: % % strobeoptions.strobe_criterion='temporal_shadow_plus';
tomwalters@0: % 
tomwalters@0: % 
tomwalters@0: % nr_channels=getnrchannels(nap);
tomwalters@0: % for ii=1:nr_channels
tomwalters@0: %     waitbar(ii/nr_channels);
tomwalters@0: %     single_channel=getsinglechannel(nap,ii);
tomwalters@0: %     current_cf=cfs(ii);
tomwalters@0: % 
tomwalters@0: %     [strobe_points,threshold]=findstrobes(single_channel,strobeoptions);
tomwalters@0: %     strobe_vals=gettimevalue(single_channel,strobe_points);
tomwalters@0: %     
tomwalters@0: %     thresvals=getvalues(threshold);
tomwalters@0: % 
tomwalters@0: % 	if size(strobe_points,1) > size(strobe_points,2)
tomwalters@0: % 		strobe_points=strobe_points';
tomwalters@0: % 		strobe_vals=strobe_vals';
tomwalters@0: % 	end
tomwalters@0: %     allstrobeprocesses{ii}.strobes=strobe_points;
tomwalters@0: %     allstrobeprocesses{ii}.strobe_vals=strobe_vals;
tomwalters@0: %     allthresholds=setsinglechannel(allthresholds,ii,thresvals);
tomwalters@0: % end
tomwalters@0: % close(waithand);