void tonev_free(snd_susp_type a_susp)
{
tonev_susp_type susp = (tonev_susp_type) a_susp;
sound_unref(susp->s1);
sound_unref(susp->hz);
ffree_generic(susp, sizeof(tonev_susp_node), "tonev_free");
}
void ifft_free(ifft_susp_type susp)
{
if (susp->samples) free(susp->samples);
if (susp->table) table_unref(susp->table);
if (susp->outbuf) free(susp->outbuf);
ffree_generic(susp, sizeof(ifft_susp_node), "ifft_free");
}
void read_free(snd_susp_type a_susp)
{
read_susp_type susp = (read_susp_type) a_susp;
sf_close(susp->sndfile);
sndread_file_open_count--;
ffree_generic(susp, sizeof(read_susp_node), "read_free");
}
void coterm_free(snd_susp_type a_susp)
{
coterm_susp_type susp = (coterm_susp_type) a_susp;
sound_unref(susp->s1);
sound_unref(susp->s2);
ffree_generic(susp, sizeof(coterm_susp_node), "coterm_free");
}
void stkchorus_free(snd_susp_type a_susp)
{
stkchorus_susp_type susp = (stkchorus_susp_type) a_susp;
deleteStkEffect(susp->mych);
sound_unref(susp->s1);
ffree_generic(susp, sizeof(stkchorus_susp_node), "stkchorus_free");
}
void clarinet_free(snd_susp_type a_susp)
{
clarinet_susp_type susp = (clarinet_susp_type) a_susp;
deleteInstrument(susp->clar);
sound_unref(susp->breath_env);
ffree_generic(susp, sizeof(clarinet_susp_node), "clarinet_free");
}
void flute_freq_free(snd_susp_type a_susp)
{
flute_freq_susp_type susp = (flute_freq_susp_type) a_susp;
deleteInstrument(susp->myflute);
sound_unref(susp->breath_env);
sound_unref(susp->freq_env);
ffree_generic(susp, sizeof(flute_freq_susp_node), "flute_freq_free");
}
void pvshell_free(snd_susp_type a_susp)
{
pvshell_susp_type susp = (pvshell_susp_type) a_susp;
/* note that f or g can be NULL */
sound_unref(susp->pvshell.f);
sound_unref(susp->pvshell.g);
ffree_generic(susp, sizeof(pvshell_susp_node), "pvshell_free");
}
void alpassvc_free(snd_susp_type a_susp)
{
alpassvc_susp_type susp = (alpassvc_susp_type) a_susp;
free(susp->delaybuf);
sound_unref(susp->input);
sound_unref(susp->delaysnd);
ffree_generic(susp, sizeof(alpassvc_susp_node), "alpassvc_free");
}
void convolve_free(snd_susp_type a_susp)
{
convolve_susp_type susp = (convolve_susp_type) a_susp;
free(susp->R);
free(susp->X);
free(susp->H);
sound_unref(susp->x_snd);
ffree_generic(susp, sizeof(convolve_susp_node), "convolve_free");
}
void sax_all_free(snd_susp_type a_susp)
{
sax_all_susp_type susp = (sax_all_susp_type) a_susp;
deleteInstrument(susp->sax);
sound_unref(susp->breath_env);
sound_unref(susp->freq_env);
sound_unref(susp->reed_stiffness);
sound_unref(susp->noise_env);
sound_unref(susp->blow_pos);
sound_unref(susp->reed_table_offset);
ffree_generic(susp, sizeof(sax_all_susp_node), "sax_all_free");
}
void yin_free(yin_susp_type susp)
{
int j;
boolean active = false;
/* stdputstr("yin_free: "); */
for (j = 0; j < 2; j++) {
if (susp->chan[j]) {
if (susp->chan[j]->refcnt) active = true;
else {
susp->chan[j] = NULL;
/* nyquist_printf("deactivating channel %d\n", j); */
}
}
}
if (!active) {
/* stdputstr("all channels freed, freeing susp now\n"); */
ffree_generic(susp, sizeof(yin_susp_node), "yin_free");
sound_unref(susp->s);
free(susp->block);
free(susp->temp);
}
}
void sine_free(sine_susp_type susp)
{
ffree_generic(susp, sizeof(sine_susp_node), "sine_free");
}
void clip_free(snd_susp_type a_susp)
{
clip_susp_type susp = (clip_susp_type) a_susp;
sound_unref(susp->s);
ffree_generic(susp, sizeof(clip_susp_node), "clip_free");
}
void follow_free(snd_susp_type a_susp)
{
follow_susp_type susp = (follow_susp_type) a_susp;
free(susp->delaybuf); sound_unref(susp->sndin);
ffree_generic(susp, sizeof(follow_susp_node), "follow_free");
}
void whiteg_free(snd_susp_type a_susp)
{
whiteg_susp_type susp = (whiteg_susp_type)a_susp;
ffree_generic(susp, sizeof(whiteg_susp_node), "whiteg_free");
}
void sitar_free(sitar_susp_type susp)
{
deleteInstrument(susp->mysitar);
ffree_generic(susp, sizeof(sitar_susp_node), "sitar_free");
}
LOCAL void nyx_susp_free(nyx_susp_type susp)
{
ffree_generic(susp, sizeof(nyx_susp_node), "nyx_susp_free");
}
void pwl_free(pwl_susp_type susp)
{
ffree_generic(susp, sizeof(pwl_susp_node), "pwl_free");
}
void slider_free(snd_susp_type a_susp)
{
slider_susp_type susp = (slider_susp_type) a_susp;
ffree_generic(susp, sizeof(slider_susp_node), "slider_free");
}
void fromobject_free(fromobject_susp_type susp)
{
ffree_generic(susp, sizeof(fromobject_susp_node), "fromobject_free");
}
void slope_free(snd_susp_type a_susp)
{
slope_susp_type susp = (slope_susp_type) a_susp;
sound_unref(susp->input);
ffree_generic(susp, sizeof(slope_susp_node), "slope_free");
}
void trigger_free(trigger_susp_type susp)
{
sound_unref(susp->s1);
sound_unref(susp->s2);
ffree_generic(susp, sizeof(trigger_susp_node), "trigger_free");
}
void offset_free(snd_susp_type a_susp)
{
offset_susp_type susp = (offset_susp_type) a_susp;
sound_unref(susp->s1);
ffree_generic(susp, sizeof(offset_susp_node), "offset_free");
}
void log_free(snd_susp_type a_susp)
{
log_susp_type susp = (log_susp_type) a_susp;
sound_unref(susp->input);
ffree_generic(susp, sizeof(log_susp_node), "log_free");
}
void mandolin_free(mandolin_susp_type susp)
{
deleteInstrument(susp->mymand);
ffree_generic(susp, sizeof(mandolin_susp_node), "mandolin_free");
}
void abs_free(snd_susp_type a_susp)
{
abs_susp_type susp = (abs_susp_type) a_susp;
sound_unref(susp->input);
ffree_generic(susp, sizeof(abs_susp_node), "abs_free");
}
void white_free(white_susp_type susp)
{
ffree_generic(susp, sizeof(white_susp_node), "white_free");
}
void quantize_free(snd_susp_type a_susp)
{
quantize_susp_type susp = (quantize_susp_type) a_susp;
sound_unref(susp->s1);
ffree_generic(susp, sizeof(quantize_susp_node), "quantize_free");
}
void recip_free(snd_susp_type a_susp)
{
recip_susp_type susp = (recip_susp_type) a_susp;
sound_unref(susp->s1);
ffree_generic(susp, sizeof(recip_susp_node), "recip_free");
}
