LVAL xlc_snd_prod(void)
{
sound_type arg1 = getsound(xlgasound());
sound_type arg2 = getsound(xlgasound());
sound_type result;
xllastarg();
result = snd_prod(arg1, arg2);
return cvsound(result);
}
LVAL xlc_snd_resamplev(void)
{
sound_type arg1 = getsound(xlgasound());
double arg2 = testarg2(xlgaanynum());
sound_type arg3 = getsound(xlgasound());
sound_type result;
xllastarg();
result = snd_resamplev(arg1, arg2, arg3);
return cvsound(result);
}
LVAL xlc_snd_phasevocoder(void)
{
sound_type arg1 = getsound(xlgasound());
sound_type arg2 = getsound(xlgasound());
double arg3 = testarg2(xlgaanynum());
sound_type result;
xllastarg();
result = snd_phasevocoder(arg1, arg2, arg3);
return cvsound(result);
}
LVAL xlc_snd_aresonvv(void)
{
sound_type arg1 = getsound(xlgasound());
sound_type arg2 = getsound(xlgasound());
sound_type arg3 = getsound(xlgasound());
long arg4 = getfixnum(xlgafixnum());
sound_type result;
xllastarg();
result = snd_aresonvv(arg1, arg2, arg3, arg4);
return cvsound(result);
}
LVAL xlc_snd_resonvc(void)
{
sound_type arg1 = getsound(xlgasound());
sound_type arg2 = getsound(xlgasound());
double arg3 = testarg2(xlgaanynum());
long arg4 = getfixnum(xlgafixnum());
sound_type result;
xllastarg();
result = snd_resonvc(arg1, arg2, arg3, arg4);
return cvsound(result);
}
LVAL xlc_snd_eqbandvvv(void)
{
sound_type arg1 = getsound(xlgasound());
sound_type arg2 = getsound(xlgasound());
sound_type arg3 = getsound(xlgasound());
sound_type arg4 = getsound(xlgasound());
sound_type result;
xllastarg();
result = snd_eqbandvvv(arg1, arg2, arg3, arg4);
return cvsound(result);
}
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_flute_freq(void)
{
double arg1 = testarg2(xlgaanynum());
sound_type arg2 = getsound(xlgasound());
sound_type arg3 = getsound(xlgasound());
double arg4 = testarg2(xlgaanynum());
sound_type result;
xllastarg();
result = snd_flute_freq(arg1, arg2, arg3, arg4);
return cvsound(result);
}
LVAL xlc_snd_phasevocoder(void)
{
sound_type arg1 = getsound(xlgasound());
sound_type arg2 = getsound(xlgasound());
long arg3 = getfixnum(xlgafixnum());
long arg4 = getfixnum(xlgafixnum());
long arg5 = getfixnum(xlgafixnum());
sound_type result;
xllastarg();
result = snd_phasevocoder(arg1, arg2, arg3, arg4, arg5);
return cvsound(result);
}
LVAL xlc_snd_fmosc(void)
{
sound_type arg1 = getsound(xlgasound());
double arg2 = testarg2(xlgaanynum());
double arg3 = testarg2(xlgaanynum());
double arg4 = testarg2(xlgaanynum());
double arg5 = testarg2(xlgaanynum());
sound_type arg6 = getsound(xlgasound());
double arg7 = testarg2(xlgaanynum());
sound_type result;
xllastarg();
result = snd_fmosc(arg1, arg2, arg3, arg4, arg5, arg6, arg7);
return cvsound(result);
}
LVAL xlc_snd_flute_all(void)
{
double arg1 = testarg2(xlgaanynum());
sound_type arg2 = getsound(xlgasound());
sound_type arg3 = getsound(xlgasound());
double arg4 = testarg2(xlgaanynum());
double arg5 = testarg2(xlgaanynum());
sound_type arg6 = getsound(xlgasound());
sound_type arg7 = getsound(xlgasound());
double arg8 = testarg2(xlgaanynum());
sound_type result;
xllastarg();
result = snd_flute_all(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8);
return cvsound(result);
}
LVAL xlc_snd_sampler(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());
sound_type arg7 = getsound(xlgasound());
long arg8 = getfixnum(xlgafixnum());
sound_type result;
xllastarg();
result = snd_sampler(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8);
return cvsound(result);
}
LVAL xlc_snd_print_tree(void)
{
sound_type arg1 = getsound(xlgasound());
xllastarg();
sound_print_tree(arg1);
return NIL;
}
option()
{
ozcls();
getsound();
getmovie();
ozputs(0,0,"Options: (Press ENTER when done, MENU to save)");
ozputs(0,20,"PgUp/PgDn: Clay Pigeon Speed");
putspeed();
ozputs(135,20,slow);
ozputs(0,30,"S: Toggle Sound");
ozputs(135,30,soundstat);
ozputs(0,40,"M: Toggle Startup Movie");
ozputs(135,40,moviestat);
ozputs(0,55,"(You should save after changing startup movie option)");
ozputs(0,70,"OZCP Concept by Danny Jackson, coded by Chris Daniel");
switch(ozngetch())
{
case 's': changesound(); break;
case 'm': changemovie(); break;
case KEY_PAGEUP:
{
if(speed==5001|speed==2501)
{
speed-=2500;
}
else if(speed==1)
{
speed=0;
}
else if(speed==0)
{
speed=5001;
}
break;
}
case KEY_PAGEDOWN:
{
if(speed==2501|speed==1)
{
speed+=2500;
}
else if(speed==5001)
{
speed=0;
}
else if(speed==0)
{
speed=1;
}
break;
}
case KEY_LOWER_MENU: saveconfig(); break;
case KEY_UPPER_MENU: saveconfig(); break;
case KEY_LOWER_ENTER: main();
case KEY_NEWLINE: ozsnap(); break;
}
option();
}
LVAL xlc_snd_stoponzero(void)
{
sound_type arg1 = getsound(xlgasound());
sound_type result;
xllastarg();
result = snd_stoponzero(arg1);
return cvsound(result);
}
LVAL xlc_snd_normalize(void)
{
sound_type arg1 = getsound(xlgasound());
sound_type result;
xllastarg();
result = snd_normalize(arg1);
return cvsound(result);
}
LVAL xlc_snd_fetch(void)
{
sound_type arg1 = getsound(xlgasound());
LVAL result;
xllastarg();
result = snd_fetch(arg1);
return (result);
}
LVAL xlc_snd_maxsamp(void)
{
sound_type arg1 = getsound(xlgasound());
double result;
xllastarg();
result = snd_maxsamp(arg1);
return cvflonum(result);
}
LVAL xlc_snd_set_logical_stop(void)
{
sound_type arg1 = getsound(xlgasound());
double arg2 = testarg2(xlgaanynum());
xllastarg();
set_logical_stop_time(arg1, arg2);
return NIL;
}
LVAL xlc_sound_nth_block(void)
{
sound_type arg1 = getsound(xlgasound());
long arg2 = getfixnum(xlgafixnum());
long result;
xllastarg();
result = sound_nth_block(arg1, arg2);
return cvfixnum(result);
}
LVAL xlc_snd_length(void)
{
sound_type arg1 = getsound(xlgasound());
long arg2 = getfixnum(xlgafixnum());
long result;
xllastarg();
result = snd_length(arg1, arg2);
return cvfixnum(result);
}
LVAL xlc_snd_samples(void)
{
sound_type arg1 = getsound(xlgasound());
long arg2 = getfixnum(xlgafixnum());
LVAL result;
xllastarg();
result = snd_samples(arg1, arg2);
return (result);
}
LVAL xlc_snd_seq(void)
{
sound_type arg1 = getsound(xlgasound());
LVAL arg2 = xlgetarg();
sound_type result;
xllastarg();
result = snd_sndseq(arg1, arg2);
return cvsound(result);
}
LVAL xlc_snd_sref(void)
{
sound_type arg1 = getsound(xlgasound());
double arg2 = testarg2(xlgaanynum());
double result;
xllastarg();
result = snd_sref(arg1, arg2);
return cvflonum(result);
}
LVAL xlc_snd_quantize(void)
{
sound_type arg1 = getsound(xlgasound());
long arg2 = getfixnum(xlgafixnum());
sound_type result;
xllastarg();
result = snd_quantize(arg1, arg2);
return cvsound(result);
}
LVAL xlc_snd_up(void)
{
double arg1 = testarg2(xlgaanynum());
sound_type arg2 = getsound(xlgasound());
sound_type result;
xllastarg();
result = snd_up(arg1, arg2);
return cvsound(result);
}
LVAL xlc_snd_fetch_array(void)
{
sound_type arg1 = getsound(xlgasound());
long arg2 = getfixnum(xlgafixnum());
long arg3 = getfixnum(xlgafixnum());
LVAL result;
xllastarg();
result = snd_fetch_array(arg1, arg2, arg3);
return (result);
}
LVAL xlc_snd_allpoles(void)
{
sound_type arg1 = getsound(xlgasound());
LVAL arg2 = xlgetarg();
double arg3 = testarg2(xlgaanynum());
sound_type result;
xllastarg();
result = snd_allpoles(arg1, arg2, arg3);
return cvsound(result);
}
LVAL xlc_snd_clarinet(void)
{
double arg1 = testarg2(xlgaanynum());
sound_type arg2 = getsound(xlgasound());
double arg3 = testarg2(xlgaanynum());
sound_type result;
xllastarg();
result = snd_clarinet(arg1, arg2, arg3);
return cvsound(result);
}
LVAL xlc_snd_fft(void)
{
sound_type arg1 = getsound(xlgasound());
long arg2 = getfixnum(xlgafixnum());
long arg3 = getfixnum(xlgafixnum());
LVAL arg4 = xlgetarg();
LVAL result;
xllastarg();
result = snd_fft(arg1, arg2, arg3, arg4);
return (result);
}
