LVAL xlc_snd_alpassvv(void)
{
sound_type arg1 = getsound(xlgasound());
sound_type arg2 = getsound(xlgasound());
sound_type arg3 = getsound(xlgasound());
double arg4 = testarg2(xlgaanynum());
sound_type result;
xllastarg();
result = snd_alpassvv(arg1, arg2, arg3, arg4);
return cvsound(result);
}
LVAL xlc_snd_resoncv(void)
{
sound_type arg1 = getsound(xlgasound());
double arg2 = testarg2(xlgaanynum());
sound_type arg3 = getsound(xlgasound());
long arg4 = getfixnum(xlgafixnum());
sound_type result;
xllastarg();
result = snd_resoncv(arg1, arg2, arg3, arg4);
return cvsound(result);
}
LVAL xlc_snd_biquad(void)
{
sound_type arg1 = getsound(xlgasound());
double arg2 = testarg2(xlgaanynum());
double arg3 = testarg2(xlgaanynum());
double arg4 = testarg2(xlgaanynum());
double arg5 = testarg2(xlgaanynum());
double arg6 = testarg2(xlgaanynum());
double arg7 = testarg2(xlgaanynum());
double arg8 = testarg2(xlgaanynum());
sound_type result;
xllastarg();
result = snd_biquad(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8);
return cvsound(result);
}
LVAL xlc_snd_mandolin(void)
{
double arg1 = testarg2(xlgaanynum());
double arg2 = testarg2(xlgaanynum());
double arg3 = testarg2(xlgaanynum());
double arg4 = testarg2(xlgaanynum());
double arg5 = testarg2(xlgaanynum());
double arg6 = testarg2(xlgaanynum());
sound_type result;
xllastarg();
result = snd_mandolin(arg1, arg2, arg3, arg4, arg5, arg6);
return cvsound(result);
}
LVAL xlc_snd_overwrite(void)
{
LVAL arg1 = xlgetarg();
long arg2 = getfixnum(xlgafixnum());
unsigned char * arg3 = getstring(xlgastring());
double arg4 = testarg2(xlgaanynum());
long arg5 = getfixnum(xlgafixnum());
long arg6 = getfixnum(xlgafixnum());
long arg7 = getfixnum(xlgafixnum());
long arg8 = getfixnum(xlgafixnum());
double arg9 = 0.0;
double result;
xllastarg();
result = sound_overwrite(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, &arg9);
{ LVAL *next = &getvalue(RSLT_sym);
*next = cons(NIL, NIL);
car(*next) = cvflonum(arg9);
}
return cvflonum(result);
}
