getf SCI/util/testexamples.sci
 
reinit_for_test()
 
%U=mopen('SCI/tests/automatic_tests/savewave_data.ref','rb');
 
// At first we create 0.5 seconds of sound parameters.
 
t = soundsec(0.5);
 
// Then we generate the sound.
 
s = sin(2 * %pi * 440 * t) + sin(2 * %pi * 220 * t)/2 + sin(2 * %pi * 880 * t)/2;
 
[nr,nc] = size(t);
 
s(nc/2:nc) = sin(2 * %pi * 330 * t(nc/2:nc));
 
savewave(TMPDIR + '/foo.wav', s);
Writing Wave file: Microsoft PCM format, 1 channel, 22050 samp/sec
        44100 byte/sec, 2 block align, 16 bits/samp
Finished writing Wave file, 22050 data bytes
 
xdel_run(winsid());
 
 
mclose(%U);