tomwalters@0: % method of class @signal
tomwalters@0: % savewave(sig,name[,ramp])
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  		name : name of the resulting sound file
tomwalters@0: % 		ramp: if given, then the signal is ramped with a linear ramp with
tomwalters@0: % 		that duration
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %
tomwalters@0: % 
tomwalters@0: % (c) 2003, University of Cambridge, Medical Research Council 
tomwalters@0: % Stefan Bleeck (stefan@bleeck.de)
tomwalters@0: % http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual
tomwalters@0: % $Date: 2003/06/11 10:27:46 $
tomwalters@0: % $Revision: 1.6 $
tomwalters@0: 
tomwalters@0: function savewave(sig,name,ramp)
tomwalters@0: % does some things, to make a nice sound out of it
tomwalters@0: 
tomwalters@0: if nargin < 3
tomwalters@0:     ramp=0.0;	% default ramp is off
tomwalters@0: end
tomwalters@0: if nargin < 2
tomwalters@0:     name='just saved';
tomwalters@0: end
tomwalters@0: 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: sig=rampamplitude(sig,ramp);
tomwalters@0: sig=scaletomaxvalue(sig,0.999);
tomwalters@0: if isempty(strfind(name,'.wav'))
tomwalters@0:     name=sprintf('%s.wav',name);
tomwalters@0: end
tomwalters@0: 
tomwalters@0: fid=fopen(name,'w');
tomwalters@0: if fid==-1
tomwalters@0: 	disp(sprintf('can''t write file ''%s'', is file open in CoolEdit? If so please close!',name));
tomwalters@0: 	error('file open in CoolEdit... Cant write');
tomwalters@0: else
tomwalters@0: 	writetowavefile(sig,name);
tomwalters@0: 
tomwalters@0: end