Commit 7f06012c authored by Josh Coalson's avatar Josh Coalson
Browse files

add arbitrary WAVE and AIFF file generators

parent 5126bb04
......@@ -38,34 +38,134 @@
static FLAC__bool is_big_endian_host;
/* some flavors of UNIX #define this */
#ifdef swap16
#undef swap16
static FLAC__bool write_little_endian_uint16(FILE *f, FLAC__uint16 x)
{
return
fputc(x, f) != EOF &&
fputc(x >> 8, f) != EOF
;
}
static FLAC__bool write_little_endian_int16(FILE *f, FLAC__int16 x)
{
return write_little_endian_uint16(f, (FLAC__uint16)x);
}
static FLAC__bool write_little_endian_uint24(FILE *f, FLAC__uint32 x)
{
return
fputc(x, f) != EOF &&
fputc(x >> 8, f) != EOF &&
fputc(x >> 16, f) != EOF
;
}
static FLAC__bool write_little_endian_int24(FILE *f, FLAC__int32 x)
{
return write_little_endian_uint24(f, (FLAC__uint32)x);
}
static FLAC__bool write_little_endian_uint32(FILE *f, FLAC__uint32 x)
{
return
fputc(x, f) != EOF &&
fputc(x >> 8, f) != EOF &&
fputc(x >> 16, f) != EOF &&
fputc(x >> 24, f) != EOF
;
}
#if 0
/* @@@ not used (yet) */
static FLAC__bool write_little_endian_int32(FILE *f, FLAC__int32 x)
{
return write_little_endian_uint32(f, (FLAC__uint32)x);
}
#endif
static void swap16(FLAC__int16 *i)
static FLAC__bool write_big_endian_uint16(FILE *f, FLAC__uint16 x)
{
unsigned char *x = (unsigned char *)i, b;
if(!is_big_endian_host) {
b = x[0];
x[0] = x[1];
x[1] = b;
}
return
fputc(x >> 8, f) != EOF &&
fputc(x, f) != EOF
;
}
static void swap24(FLAC__byte *x)
#if 0
/* @@@ not used (yet) */
static FLAC__bool write_big_endian_int16(FILE *f, FLAC__int16 x)
{
if(is_big_endian_host) {
x[0] = x[1];
x[1] = x[2];
x[2] = x[3];
}
else {
FLAC__byte b = x[0];
x[0] = x[2];
x[2] = b;
return write_big_endian_uint16(f, (FLAC__uint16)x);
}
#endif
#if 0
/* @@@ not used (yet) */
static FLAC__bool write_big_endian_uint24(FILE *f, FLAC__uint32 x)
{
return
fputc(x >> 16, f) != EOF &&
fputc(x >> 8, f) != EOF &&
fputc(x, f) != EOF
;
}
#endif
#if 0
/* @@@ not used (yet) */
static FLAC__bool write_big_endian_int24(FILE *f, FLAC__int32 x)
{
return write_big_endian_uint24(f, (FLAC__uint32)x);
}
#endif
static FLAC__bool write_big_endian_uint32(FILE *f, FLAC__uint32 x)
{
return
fputc(x >> 24, f) != EOF &&
fputc(x >> 16, f) != EOF &&
fputc(x >> 8, f) != EOF &&
fputc(x, f) != EOF
;
}
#if 0
/* @@@ not used (yet) */
static FLAC__bool write_big_endian_int32(FILE *f, FLAC__int32 x)
{
return write_big_endian_uint32(f, (FLAC__uint32)x);
}
#endif
static FLAC__bool write_sane_extended(FILE *f, unsigned val)
{
unsigned i, exponent;
/* this reasonable limitation make the implementation simpler */
FLAC__ASSERT(val < 0x80000000);
/* we'll use the denormalized form, with no implicit '1' (i bit == 0) */
for(i = val, exponent = 0; i; i >>= 1, exponent++)
;
if(!write_big_endian_uint16(f, (FLAC__uint16)(exponent + 16383)))
return false;
for(i = 32; i; i--) {
if(val & 0x40000000)
break;
val <<= 1;
}
if(!write_big_endian_uint32(f, val))
return false;
if(!write_big_endian_uint32(f, 0))
return false;
return true;
}
/* a mono one-sample 16bps stream */
static FLAC__bool generate_01()
{
......@@ -75,8 +175,7 @@ static FLAC__bool generate_01()
if(0 == (f = fopen("test01.raw", mode)))
return false;
swap16(&x);
if(fwrite(&x, sizeof(x), 1, f) < 1)
if(!write_little_endian_int16(f, x))
goto foo;
fclose(f);
......@@ -95,12 +194,9 @@ static FLAC__bool generate_02()
if(0 == (f = fopen("test02.raw", mode)))
return false;
swap16(&xl);
swap16(&xr);
if(fwrite(&xl, sizeof(xl), 1, f) < 1)
if(!write_little_endian_int16(f, xl))
goto foo;
if(fwrite(&xr, sizeof(xr), 1, f) < 1)
if(!write_little_endian_int16(f, xr))
goto foo;
fclose(f);
......@@ -121,10 +217,8 @@ static FLAC__bool generate_03()
return false;
for(i = 0; i < 5; i++)
swap16(x+i);
if(fwrite(&x, sizeof(FLAC__int16), 5, f) < 5)
goto foo;
if(!write_little_endian_int16(f, x[i]))
goto foo;
fclose(f);
return true;
......@@ -144,10 +238,8 @@ static FLAC__bool generate_04()
return false;
for(i = 0; i < 10; i++)
swap16(x+i);
if(fwrite(&x, sizeof(FLAC__int16), 10, f) < 10)
goto foo;
if(!write_little_endian_int16(f, x[i]))
goto foo;
fclose(f);
return true;
......@@ -196,8 +288,7 @@ static FLAC__bool generate_fsd16(const char *fn, const int pattern[], unsigned r
for(rep = 0; rep < reps; rep++) {
for(p = 0; pattern[p]; p++) {
FLAC__int16 x = pattern[p] > 0? 32767 : -32768;
swap16(&x);
if(fwrite(&x, sizeof(x), 1, f) < 1)
if(!write_little_endian_int16(f, x))
goto foo;
}
}
......@@ -221,11 +312,9 @@ static FLAC__bool generate_wbps16(const char *fn, unsigned samples)
for(sample = 0; sample < samples; sample++) {
FLAC__int16 l = (sample % 2000) << 2;
FLAC__int16 r = (sample % 1000) << 3;
swap16(&l);
swap16(&r);
if(fwrite(&l, sizeof(l), 1, f) < 1)
if(!write_little_endian_int16(f, l))
goto foo;
if(fwrite(&r, sizeof(r), 1, f) < 1)
if(!write_little_endian_int16(f, r))
goto foo;
}
......@@ -250,9 +339,7 @@ static FLAC__bool generate_fsd24(const char *fn, const int pattern[], unsigned r
for(rep = 0; rep < reps; rep++) {
for(p = 0; pattern[p]; p++) {
FLAC__int32 x = pattern[p] > 0? 8388607 : -8388608;
FLAC__byte *b = (FLAC__byte*)(&x);
swap24(b);
if(fwrite(b, 3, 1, f) < 1)
if(!write_little_endian_int24(f, x))
goto foo;
}
}
......@@ -338,8 +425,7 @@ static FLAC__bool generate_sine16_1(const char *fn, const double sample_rate, co
for(i = 0, theta1 = theta2 = 0.0; i < samples; i++, theta1 += delta1, theta2 += delta2) {
double val = (a1*sin(theta1) + a2*sin(theta2))*(double)full_scale;
FLAC__int16 v = (FLAC__int16)(val + 0.5);
swap16(&v);
if(fwrite(&v, sizeof(v), 1, f) < 1)
if(!write_little_endian_int16(f, v))
goto foo;
}
......@@ -366,13 +452,11 @@ static FLAC__bool generate_sine16_2(const char *fn, const double sample_rate, co
for(i = 0, theta1 = theta2 = 0.0; i < samples; i++, theta1 += delta1, theta2 += delta2) {
double val = (a1*sin(theta1) + a2*sin(theta2))*(double)full_scale;
FLAC__int16 v = (FLAC__int16)(val + 0.5);
swap16(&v);
if(fwrite(&v, sizeof(v), 1, f) < 1)
if(!write_little_endian_int16(f, v))
goto foo;
val = -(a1*sin(theta1*fmult) + a2*sin(theta2*fmult))*(double)full_scale;
v = (FLAC__int16)(val + 0.5);
swap16(&v);
if(fwrite(&v, sizeof(v), 1, f) < 1)
if(!write_little_endian_int16(f, v))
goto foo;
}
......@@ -399,9 +483,7 @@ static FLAC__bool generate_sine24_1(const char *fn, const double sample_rate, co
for(i = 0, theta1 = theta2 = 0.0; i < samples; i++, theta1 += delta1, theta2 += delta2) {
double val = (a1*sin(theta1) + a2*sin(theta2))*(double)full_scale;
FLAC__int32 v = (FLAC__int32)(val + 0.5);
FLAC__byte *b = (FLAC__byte*)(&v);
swap24(b);
if(fwrite(b, 3, 1, f) < 1)
if(!write_little_endian_int24(f, v))
goto foo;
}
......@@ -428,14 +510,11 @@ static FLAC__bool generate_sine24_2(const char *fn, const double sample_rate, co
for(i = 0, theta1 = theta2 = 0.0; i < samples; i++, theta1 += delta1, theta2 += delta2) {
double val = (a1*sin(theta1) + a2*sin(theta2))*(double)full_scale;
FLAC__int32 v = (FLAC__int32)(val + 0.5);
FLAC__byte *b = (FLAC__byte*)(&v);
swap24(b);
if(fwrite(b, 3, 1, f) < 1)
if(!write_little_endian_int24(f, v))
goto foo;
val = -(a1*sin(theta1*fmult) + a2*sin(theta2*fmult))*(double)full_scale;
v = (FLAC__int32)(val + 0.5);
swap24(b);
if(fwrite(b, 3, 1, f) < 1)
if(!write_little_endian_int24(f, v))
goto foo;
}
......@@ -482,6 +561,90 @@ foo:
return false;
}
static FLAC__bool generate_aiff(const char *filename, unsigned sample_rate, unsigned channels, unsigned bytes_per_sample, unsigned samples)
{
const unsigned true_size = channels * bytes_per_sample * samples;
const unsigned padded_size = (true_size + 1) & (~1u);
FILE *f;
unsigned i;
if(0 == (f = fopen(filename, mode)))
return false;
if(fwrite("FORM", 1, 4, f) < 4)
goto foo;
if(!write_big_endian_uint32(f, padded_size + 46))
goto foo;
if(fwrite("AIFFCOMM\000\000\000\022", 1, 12, f) < 12)
goto foo;
if(!write_big_endian_uint16(f, channels))
goto foo;
if(!write_big_endian_uint32(f, samples))
goto foo;
if(!write_big_endian_uint16(f, (FLAC__uint16)(8 * bytes_per_sample)))
goto foo;
if(!write_sane_extended(f, sample_rate))
goto foo;
if(fwrite("SSND", 1, 4, f) < 4)
goto foo;
if(!write_big_endian_uint32(f, true_size + 8))
goto foo;
if(fwrite("\000\000\000\000\000\000\000\000", 1, 8, f) < 8)
goto foo;
for(i = 0; i < true_size; i++)
if(fputc(i, f) == EOF)
goto foo;
for( ; i < padded_size; i++)
if(fputc(0, f) == EOF)
goto foo;
fclose(f);
return true;
foo:
fclose(f);
return false;
}
static FLAC__bool generate_wav(const char *filename, unsigned sample_rate, unsigned channels, unsigned bytes_per_sample, unsigned samples)
{
const unsigned size = channels * bytes_per_sample * samples;
FILE *f;
unsigned i;
if(0 == (f = fopen(filename, mode)))
return false;
if(fwrite("RIFF", 1, 4, f) < 4)
goto foo;
if(!write_little_endian_uint32(f, size + 36))
goto foo;
if(fwrite("WAVEfmt \020\000\000\000\001\000", 1, 14, f) < 14)
goto foo;
if(!write_little_endian_uint16(f, channels))
goto foo;
if(!write_little_endian_uint32(f, sample_rate))
goto foo;
if(!write_little_endian_uint32(f, sample_rate * channels * bytes_per_sample))
goto foo;
if(!write_little_endian_uint16(f, (FLAC__uint16)(channels * bytes_per_sample))) /* block align */
goto foo;
if(!write_little_endian_uint16(f, (FLAC__uint16)(8 * bytes_per_sample)))
goto foo;
if(fwrite("data", 1, 4, f) < 4)
goto foo;
if(!write_little_endian_uint32(f, size))
goto foo;
for(i = 0; i < size; i++)
if(fputc(i, f) == EOF)
goto foo;
fclose(f);
return true;
foo:
fclose(f);
return false;
}
static FLAC__bool generate_wackywavs()
{
FILE *f;
......@@ -522,6 +685,7 @@ foo:
int main(int argc, char *argv[])
{
FLAC__uint32 test = 1;
unsigned channels;
int pattern01[] = { 1, -1, 0 };
int pattern02[] = { 1, 1, -1, 0 };
......@@ -620,6 +784,28 @@ int main(int argc, char *argv[])
if(!generate_noise("noise.raw", 65536 * 8 * 3)) return 1;
if(!generate_noise("noise8m32.raw", 32)) return 1;
if(!generate_wackywavs()) return 1;
for(channels = 1; channels <= 8; channels++) {
unsigned bytes_per_sample;
for(bytes_per_sample = 1; bytes_per_sample <= 3; bytes_per_sample++) {
static const unsigned nsamples[] = { 1, 111, 55555 } ;
unsigned samples;
for(samples = 0; samples < sizeof(nsamples)/sizeof(nsamples[0]); samples++) {
char fn[64];
sprintf(fn, "rt-%u-%u-%u.aiff", channels, bytes_per_sample, nsamples[samples]);
if(!generate_aiff(fn, 44100, channels, bytes_per_sample, nsamples[samples]))
return 1;
sprintf(fn, "rt-%u-%u-%u.raw", channels, bytes_per_sample, nsamples[samples]);
if(!generate_noise(fn, channels * bytes_per_sample * nsamples[samples]))
return 1;
sprintf(fn, "rt-%u-%u-%u.wav", channels, bytes_per_sample, nsamples[samples]);
if(!generate_wav(fn, 44100, channels, bytes_per_sample, nsamples[samples]))
return 1;
}
}
}
return 0;
}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment