tomwalters@0: % procedure for 'aim-mat'
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %
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: function handles=slider_duration(hObject, eventdata, handles)
tomwalters@0: 
tomwalters@0: 
tomwalters@0: curval=get(hObject,'Value');
tomwalters@0: handles.slideredit_duration=...
tomwalters@0: 	slidereditcontrol_set_rawslidervalue(handles.slideredit_duration,curval);
tomwalters@0: 
tomwalters@0: 
tomwalters@0: % check range
tomwalters@0: start=slidereditcontrol_get_value(handles.currentslidereditcombi);
tomwalters@0: dur=slidereditcontrol_get_value(handles.slideredit_duration);
tomwalters@0: sig=handles.data.signal;
tomwalters@0: siglen=getmaximumtime(sig);
tomwalters@0: % siglen=getlength(sig);
tomwalters@0: if start+dur>siglen
tomwalters@0: 	dur=siglen-start;
tomwalters@0: 	handles.slideredit_duration=...
tomwalters@0: 		slidereditcontrol_set_value(handles.slideredit_duration,dur);
tomwalters@0: end
tomwalters@0: 
tomwalters@0: % set the range of the start_slider accordingly
tomwalters@0: curstart=slidereditcontrol_get_value(handles.currentslidereditcombi);
tomwalters@0: dur=slidereditcontrol_get_value(handles.slideredit_duration);
tomwalters@0: handles.slideredit_start.maxvalue=siglen-dur;
tomwalters@0: handles.slideredit_start=slidereditcontrol_set_value(handles.slideredit_start,curstart);	% the duration
tomwalters@0: handles.slideredit_start=slidereditcontrol_set_range(handles.slideredit_start,dur);	% the duration
tomwalters@0: 
tomwalters@0: if handles.info.current_plot<6
tomwalters@0: 	handles.currentslidereditcombi=handles.slideredit_start;
tomwalters@0: end
tomwalters@0: 
tomwalters@0: return