Xen g_mus_sound_maxamp(Xen file)
{
#define H_mus_sound_maxamp "(" S_mus_sound_maxamp " filename): maxamps in sound (a list of paired amps (floats) and locations (samples))"
int chans;
char *filename;
Xen res = Xen_empty_list;
Xen_check_type(Xen_is_string(file), file, 1, S_mus_sound_maxamp, "a string");
filename = mus_expand_filename(Xen_string_to_C_string(file));
chans = mus_sound_chans(filename);
if (chans > 0)
{
mus_long_t rtn;
mus_float_t *vals;
mus_long_t *times;
vals = (mus_float_t *)calloc(chans, sizeof(mus_float_t));
times = (mus_long_t *)calloc(chans, sizeof(mus_long_t));
rtn = mus_sound_maxamps(filename, chans, vals, times);
if (rtn != MUS_ERROR)
{
int i;
for (i = chans - 1; i >= 0; i--)
res = Xen_cons(C_llong_to_Xen_llong(times[i]), Xen_cons(C_double_to_Xen_real(vals[i]), res));
}
free(vals);
free(times);
if (filename) free(filename);
}
else
{
if (filename) free(filename);
Xen_error(BAD_HEADER,
Xen_list_1(C_string_to_Xen_string(S_mus_sound_maxamp ": chans <= 0")));
}
return(res);
}
static char *display_maxamps(const char *filename, int chans)
{
char *ampstr;
char fstr[16];
int i, len;
mus_float_t *vals;
mus_long_t *times;
len = chans * 32;
ampstr = (char *)calloc(len, sizeof(char));
vals = (mus_float_t *)calloc(chans, sizeof(mus_float_t));
times = (mus_long_t *)calloc(chans, sizeof(mus_long_t));
snprintf(ampstr, len, "\n max amp%s: ", (chans > 1) ? "s" : "");
mus_sound_maxamps(filename, chans, vals, times);
for (i = 0; i < chans; i++)
{
snprintf(fstr, 16, "%.3f ", vals[i]);
strcat(ampstr, fstr);
}
free(vals);
free(times);
return(ampstr);
}
