void LongSound_saveChannelAsAudioFile (LongSound me, int audioFileType, int channel, MelderFile file) {
try {
if (my numberOfChannels != 2)
Melder_throw (U"This audio file is not a stereo file. It does not have a ", channel == 0 ? U"left" : U"right", U" channel.");
autoMelderFile mfile = MelderFile_create (file);
if (file -> filePointer) {
MelderFile_writeAudioFileHeader (file, audioFileType, my sampleRate, my nx, 1, 8 * my numberOfBytesPerSamplePoint);
}
writePartToOpenFile (me, audioFileType, 1, my nx, file, channel == 0 ? -1 : -2, 8 * my numberOfBytesPerSamplePoint);
MelderFile_writeAudioFileTrailer (file, audioFileType, my sampleRate, my nx, 1, 8 * my numberOfBytesPerSamplePoint);
mfile.close ();
} catch (MelderError) {
Melder_throw (U"Channel ", channel, U" of ", me, U": not written to sound file ", file, U".");
}
}
void LongSound_savePartAsAudioFile (LongSound me, int audioFileType, double tmin, double tmax, MelderFile file, int numberOfBitsPerSamplePoint) {
try {
if (tmax <= tmin) { tmin = my xmin; tmax = my xmax; }
if (tmin < my xmin) tmin = my xmin;
if (tmax > my xmax) tmax = my xmax;
long imin, imax;
long n = Sampled_getWindowSamples (me, tmin, tmax, & imin, & imax);
if (n < 1) Melder_throw (U"Less than 1 sample selected.");
autoMelderFile mfile = MelderFile_create (file);
MelderFile_writeAudioFileHeader (file, audioFileType, my sampleRate, n, my numberOfChannels, numberOfBitsPerSamplePoint);
writePartToOpenFile (me, audioFileType, imin, n, file, 0, numberOfBitsPerSamplePoint);
MelderFile_writeAudioFileTrailer (file, audioFileType, my sampleRate, n, my numberOfChannels, numberOfBitsPerSamplePoint);
mfile.close ();
} catch (MelderError) {
Melder_throw (me, U": not written to sound file ", file, U".");
}
}
void LongSounds_writeToStereoAudioFile16 (LongSound me, LongSound thee, int audioFileType, MelderFile file) {
try {
long nbuf = my nmax < thy nmax ? my nmax : thy nmax;
long nx = my nx > thy nx ? my nx : thy nx;
long numberOfReads = (nx - 1) / nbuf + 1, numberOfBitsPerSamplePoint = 16;
if (thy numberOfChannels != my numberOfChannels || my numberOfChannels != 1) {
Melder_throw ("LongSounds must be mono.");
}
if (my sampleRate != thy sampleRate) {
Melder_throw ("Sample rates must be equal.");
}
/*
Allocate a stereo buffer of size (2 * the smallest)!
WE SUPPOSE THAT SMALL IS LARGE ENOUGH.
Read the same number of samples from both files, despite
potential differences in internal buffer size.
*/
long nchannels = 2;
autoNUMvector<short> buffer (1, nchannels * nbuf);
autoMelderFile f = MelderFile_create (file);
MelderFile_writeAudioFileHeader (file, audioFileType, my sampleRate, nx, nchannels, numberOfBitsPerSamplePoint);
for (long i = 1; i <= numberOfReads; i++) {
long n_to_write = i == numberOfReads ? (nx - 1) % nbuf + 1 : nbuf;
_LongSound_to_multichannel_buffer (me, buffer.peek(), nbuf, nchannels, 1, i);
_LongSound_to_multichannel_buffer (thee, buffer.peek(), nbuf, nchannels, 2, i);
MelderFile_writeShortToAudio (file, nchannels, Melder_defaultAudioFileEncoding (audioFileType,
numberOfBitsPerSamplePoint), buffer.peek(), n_to_write);
}
MelderFile_writeAudioFileTrailer (file, audioFileType, my sampleRate, nx, nchannels, numberOfBitsPerSamplePoint);
f.close ();
} catch (MelderError) {
Melder_throw (me, ": no stereo audio file created.");
}
}
void LongSounds_appendToExistingSoundFile (Collection me, MelderFile file) {
long pre_append_endpos = 0, numberOfBitsPerSamplePoint = 16;
try {
if (my size < 1) {
Melder_throw ("No Sound or LongSound objects to append.");
}
/*
We have to open with "r+" mode because this will position the stream
at the beginning of the file. The "a" mode does not allow us to
seek before the end-of-file.
For Linux: If the file is already opened (e.g. by a LongSound) object we
should deny access!
Under Windows deny access is default?!
*/
autofile f = Melder_fopen (file, "r+b");
file -> filePointer = f; // essential !!
double sampleRate_d;
long startOfData, numberOfSamples;
int numberOfChannels, encoding;
int audioFileType = MelderFile_checkSoundFile (file, &numberOfChannels,
&encoding, &sampleRate_d, &startOfData, &numberOfSamples);
if (audioFileType == 0) {
Melder_throw ("Not a sound file.");
}
// Check whether all the sample rates and channels match.
long sampleRate = sampleRate_d;
for (long i = 1; i <= my size; i++) {
int sampleRatesMatch, numbersOfChannelsMatch;
Sampled data = (Sampled) my item [i];
if (data -> classInfo == classSound) {
Sound sound = (Sound) data;
sampleRatesMatch = floor (1.0 / sound -> dx + 0.5) == sampleRate;
numbersOfChannelsMatch = sound -> ny == numberOfChannels;
numberOfSamples += sound -> nx;
} else {
LongSound longSound = (LongSound) data;
sampleRatesMatch = longSound -> sampleRate == sampleRate;
numbersOfChannelsMatch = longSound -> numberOfChannels == numberOfChannels;
numberOfSamples += longSound -> nx;
}
if (! sampleRatesMatch) {
Melder_throw ("Sample rates do not match.");
}
if (! numbersOfChannelsMatch) {
Melder_throw ("Cannot mix stereo and mono.");
}
}
// Search the end of the file, count the number of bytes and append.
MelderFile_seek (file, 0, SEEK_END);
pre_append_endpos = MelderFile_tell (file);
errno = 0;
for (long i = 1; i <= my size; i++) {
Sampled data = (Sampled) my item [i];
if (data -> classInfo == classSound) {
Sound sound = (Sound) data;
MelderFile_writeFloatToAudio (file, sound -> ny, Melder_defaultAudioFileEncoding
(audioFileType, numberOfBitsPerSamplePoint), sound -> z, sound -> nx, true);
} else {
LongSound longSound = (LongSound) data;
writePartToOpenFile16 (longSound, audioFileType, 1, longSound -> nx, file);
}
if (errno != 0) {
Melder_throw ("Error during writing.");
}
}
// Update header
MelderFile_rewind (file);
MelderFile_writeAudioFileHeader (file, audioFileType, sampleRate, numberOfSamples, numberOfChannels, numberOfBitsPerSamplePoint);
MelderFile_writeAudioFileTrailer (file, audioFileType, sampleRate, numberOfSamples, numberOfChannels, numberOfBitsPerSamplePoint);
f.close (file);
return;
} catch (MelderError) {
if (errno != 0 && pre_append_endpos > 0) {
// Restore file at original size
int error = errno;
MelderFile_truncate (file, pre_append_endpos);
Melder_throw ("File ", MelderFile_messageName (file), L" restored to original size (", strerror (error), ").");
} throw;
}
}
void LongSound_concatenate (SoundAndLongSoundList me, MelderFile file, int audioFileType, int numberOfBitsPerSamplePoint) {
try {
long sampleRate, n; /* Integer sampling frequencies only, because of possible rounding errors. */
int numberOfChannels;
if (my size < 1) Melder_throw (U"No Sound or LongSound objects to concatenate.");
/*
* The sampling frequencies and numbers of channels must be equal for all (long)sounds.
*/
Sampled data = my at [1];
if (data -> classInfo == classSound) {
Sound sound = (Sound) data;
sampleRate = lround (1.0 / sound -> dx);
numberOfChannels = sound -> ny;
n = sound -> nx;
} else {
LongSound longSound = (LongSound) data;
sampleRate = longSound -> sampleRate;
numberOfChannels = longSound -> numberOfChannels;
n = longSound -> nx;
}
/*
* Check whether all the sampling frequencies and channels match.
*/
for (long i = 2; i <= my size; i ++) {
int sampleRatesMatch, numbersOfChannelsMatch;
data = my at [i];
if (data -> classInfo == classSound) {
Sound sound = (Sound) data;
sampleRatesMatch = round (1.0 / sound -> dx) == sampleRate;
numbersOfChannelsMatch = sound -> ny == numberOfChannels;
n += sound -> nx;
} else {
LongSound longSound = (LongSound) data;
sampleRatesMatch = longSound -> sampleRate == sampleRate;
numbersOfChannelsMatch = longSound -> numberOfChannels == numberOfChannels;
n += longSound -> nx;
}
if (! sampleRatesMatch)
Melder_throw (U"Sampling frequencies are not equal.");
if (! numbersOfChannelsMatch)
Melder_throw (U"Cannot mix stereo and mono.");
}
/*
* Create output file and write header.
*/
autoMelderFile mfile = MelderFile_create (file);
if (file -> filePointer) {
MelderFile_writeAudioFileHeader (file, audioFileType, sampleRate, n, numberOfChannels, numberOfBitsPerSamplePoint);
}
for (long i = 1; i <= my size; i ++) {
data = my at [i];
if (data -> classInfo == classSound) {
Sound sound = (Sound) data;
if (file -> filePointer) {
MelderFile_writeFloatToAudio (file, sound -> ny, Melder_defaultAudioFileEncoding (audioFileType, numberOfBitsPerSamplePoint),
sound -> z, sound -> nx, true);
}
} else {
LongSound longSound = (LongSound) data;
writePartToOpenFile (longSound, audioFileType, 1, longSound -> nx, file, 0, numberOfBitsPerSamplePoint);
}
}
MelderFile_writeAudioFileTrailer (file, audioFileType, sampleRate, n, numberOfChannels, numberOfBitsPerSamplePoint);
mfile.close ();
} catch (MelderError) {
Melder_throw (U"Sounds not concatenated and not saved to ", file, U".");
}
}