static void prob_float(t_prob *x, t_float f)
{
int value;
if (loud_checkint((t_pd *)x, f, &value, &s_float)) /* CHECKED */
{
t_probtrans *state = prob_findstate(x, value, 1);
if (state) /* CHECKED */
x->x_state = state;
}
}
static void Borax_float(t_Borax *x, t_float f)
{
int pitch;
if (loud_checkint((t_pd *)x, f, &pitch, &s_float)) /* CHECKME */
{
int index;
if (pitch < 0 || pitch >= BORAX_MAXVOICES)
{
/* CHECKME pitch range, complaints */
return;
}
index = x->x_voices[pitch].v_index;
if (x->x_vel)
{
if (index)
return; /* CHECKME */
x->x_indices[index = x->x_minindex] = 1;
while (x->x_indices[++x->x_minindex]);
index++; /* CHECKME one-based? */
Borax_delta(x);
x->x_onset = clock_getlogicaltime(); /* CHECKME (in delta?) */
x->x_voices[pitch].v_index = index;
x->x_voices[pitch].v_onset = x->x_onset;
x->x_voices[pitch].v_nonsets = ++x->x_nonsets;
x->x_nvoices++;
}
else
{
if (!index)
return; /* CHECKME */
index--;
x->x_indices[index] = 0;
if (index < x->x_minindex) x->x_minindex = index;
index++;
Borax_durout(x, pitch);
x->x_voices[pitch].v_index = 0;
x->x_nvoices--;
}
outlet_float(x->x_velout, x->x_vel);
outlet_float(x->x_pitchout, pitch);
outlet_float(x->x_nvoicesout, x->x_nvoices);
outlet_float(x->x_voiceout, index);
outlet_float(((t_object *)x)->ob_outlet, x->x_voices[pitch].v_nonsets);
}
}
static void TogEdge_float(t_TogEdge *x, t_float f)
{
int i;
if (loud_checkint((t_pd *)x, f, &i, &s_float)) /* CHECKED */
{
if (x->x_wason)
{
if (!i)
{
x->x_wason = 0;
outlet_bang(x->x_out1);
}
}
else
{
if (i)
{
x->x_wason = 1;
outlet_bang(((t_object *)x)->ob_outlet);
}
}
}
}
static void Histo_float(t_Histo *x, t_floatarg f)
{
int i;
if (loud_checkint((t_pd *)x, f, &i, &s_float)) /* CHECKED */
Histo_doit(x, i, 1);
}
