bleeck@3
|
1 % method of class @
|
bleeck@3
|
2 % function writetofile(sig,name)
|
bleeck@3
|
3 % INPUT VALUES:
|
bleeck@3
|
4 % sig: signal to save
|
bleeck@3
|
5 % name: filename
|
bleeck@3
|
6 % RETURN VALUE:
|
bleeck@3
|
7 % none
|
bleeck@3
|
8 %
|
bleeck@3
|
9 % This external file is included as part of the 'aim-mat' distribution package
|
bleeck@3
|
10 % (c) 2011, University of Southampton
|
bleeck@3
|
11 % Maintained by Stefan Bleeck (bleeck@gmail.com)
|
bleeck@3
|
12 % download of current version is on the soundsoftware site:
|
bleeck@3
|
13 % http://code.soundsoftware.ac.uk/projects/aimmat
|
bleeck@3
|
14 % documentation and everything is on http://www.acousticscale.org
|
bleeck@3
|
15
|
bleeck@3
|
16
|
bleeck@3
|
17 function writetofile(sig,name)
|
bleeck@3
|
18 %usage: writetofile(sig,name)
|
bleeck@3
|
19 %DRRSmith 28/05/02
|
bleeck@3
|
20 %readsounddata=getdata(sig);
|
bleeck@3
|
21 %fid=fopen(name,'wb');
|
bleeck@3
|
22 %fwrite(fid,readsounddata,'int16');
|
bleeck@3
|
23 %fclose(fid);
|
bleeck@3
|
24
|
bleeck@3
|
25 readsounddata=getdata(sig);
|
bleeck@3
|
26 if (isunix==1)
|
bleeck@3
|
27 fid=fopen(name,'wb','b'); %bigendian
|
bleeck@3
|
28 fwrite(fid,readsounddata,'int16');
|
bleeck@3
|
29 fclose(fid);
|
bleeck@3
|
30 else
|
bleeck@3
|
31 fid=fopen(name,'wb','l'); %littleendian
|
bleeck@3
|
32 fwrite(fid,readsounddata,'int16');
|
bleeck@3
|
33 fclose(fid);
|
bleeck@3
|
34 end
|
bleeck@3
|
35
|
bleeck@3
|
36 % readsounddata=getdata(sig);
|
bleeck@3
|
37 % fid=fopen(name,'wb',endian);
|
bleeck@3
|
38 % fwrite(fid,readsounddata,'int16');
|
bleeck@3
|
39 % fclose(fid);
|