int loud_checkint(t_pd *x, t_float f, int *valuep, t_symbol *mess)
{
if ((*valuep = (int)f) == f)
return (1);
else
{
static t_symbol *floatsym = 0;
if (!floatsym)
floatsym = gensym("noninteger float");
if (mess == &s_float)
loud_nomethod(x, floatsym);
else if (mess)
loud_error(x, "\"%s\" argument invalid for message \"%s\"",
floatsym->s_name, mess->s_name);
return (0);
}
}
static void matrix_float(t_matrix *x, t_float f)
{
loud_nomethod((t_pd *)x, &s_float); /* CHECKED */
}
static void pink_float(t_pink *x, t_float f)
{
loud_nomethod((t_pd *)x, &s_float); /* LATER rethink */
}
