void prob_setup(void)
{
prob_class = class_new(gensym("prob"),
(t_newmethod)prob_new,
(t_method)prob_free,
sizeof(t_prob), 0, 0);
class_addbang(prob_class, prob_bang);
class_addfloat(prob_class, prob_float);
class_addlist(prob_class, prob_list);
class_addmethod(prob_class, (t_method)prob_embed,
gensym("embed"), A_FLOAT, 0);
class_addmethod(prob_class, (t_method)prob_reset,
gensym("reset"), A_FLOAT, 0);
class_addmethod(prob_class, (t_method)prob_clear,
gensym("clear"), 0);
class_addmethod(prob_class, (t_method)prob_dump,
gensym("dump"), 0);
/* CHECKED: doesn't understand "seed" */
class_addmethod(prob_class, (t_method)prob__silent,
gensym("_silent"), 0);
class_addmethod(prob_class, (t_method)prob_click,
gensym("click"),
A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0);
hammerfile_setup(prob_class, 1);
fitter_setup(prob_class, 0);
}
void matrix_tilde_setup(void)
{
matrixps_matrixtilde = gensym("matrix~");
matrix_class = class_new(matrixps_matrixtilde,
(t_newmethod)matrix_new,
(t_method)matrix_free,
sizeof(t_matrix), 0, A_GIMME, 0);
fragile_class_raise(matrixps_matrixtilde, (t_newmethod)matrix_new);
sic_setup(matrix_class, matrix_dsp, matrix_float);
class_addlist(matrix_class, matrix_list);
class_addmethod(matrix_class, (t_method)matrix_clear,
gensym("clear"), 0);
class_addmethod(matrix_class, (t_method)matrix_set,
gensym("set"), A_FLOAT, A_DEFFLOAT, 0);
class_addmethod(matrix_class, (t_method)matrix_connect,
gensym("connect"), A_GIMME, 0);
class_addmethod(matrix_class, (t_method)matrix_connect,
gensym("disconnect"), A_GIMME, 0);
class_addmethod(matrix_class, (t_method)matrix_ramp,
gensym("ramp"), A_FLOAT, 0);
class_addmethod(matrix_class, (t_method)matrix_dump,
gensym("dump"), 0);
class_addmethod(matrix_class, (t_method)matrix_dumptarget,
gensym("dumptarget"), 0);
class_addmethod(matrix_class, (t_method)matrix_print,
gensym("print"), 0);
#ifdef MATRIX_DEBUG
class_addmethod(matrix_class, (t_method)matrix_debug,
gensym("debug"), A_DEFSYM, 0);
#endif
fitter_setup(matrix_class, 0);
}
void Append_setup(void)
{
append_class = class_new(gensym("Append"),
(t_newmethod)append_new,
(t_method)append_free,
sizeof(t_append), 0,
A_GIMME, 0);
class_addbang(append_class, append_bang);
class_addfloat(append_class, append_float);
class_addsymbol(append_class, append_symbol);
class_addlist(append_class, append_anything); /* LATER rethink */
class_addanything(append_class, append_anything);
class_addmethod(append_class, (t_method)append_set,
gensym("set"), A_GIMME, 0);
appendxy_class = class_new(gensym("append"), 0, 0, sizeof(t_appendxy),
CLASS_PD | CLASS_NOINLET, 0);
class_addbang(appendxy_class, appendxy_bang);
class_addfloat(appendxy_class, appendxy_float);
class_addsymbol(appendxy_class, appendxy_symbol);
class_addlist(appendxy_class, appendxy_list);
class_addanything(appendxy_class, appendxy_anything);
fitter_setup(append_class, append_fitter);
}
void bangbang_setup(void)
{
bangbang_class = class_new(gensym("bangbang"),
(t_newmethod)bangbang_new,
(t_method)bangbang_free,
sizeof(t_bangbang), 0, A_DEFFLOAT, 0);
class_addbang(bangbang_class, bangbang_bang);
class_addanything(bangbang_class, bangbang_anything);
fitter_setup(bangbang_class, 0);
}
void maximum_setup(void)
{
maximum_class = class_new(gensym("maximum"),
(t_newmethod)maximum_new, 0,
sizeof(t_maximum), 0, A_DEFFLOAT, 0);
class_addbang(maximum_class, maximum_bang);
class_addfloat(maximum_class, maximum_float);
class_addlist(maximum_class, maximum_list);
fitter_setup(maximum_class, 0);
}
void abs_tilde_setup(void)
{
abs_class = class_new(gensym("abs~"),
(t_newmethod)abs_new, 0,
sizeof(t_abs), 0, 0);
sic_setup(abs_class, abs_dsp, SIC_FLOATTOSIGNAL);
#ifdef ABS_TEST
fitter_setup(abs_class, 0);
#endif
}
void gate_setup(void)
{
gate_class = class_new(gensym("cyclone/gate"),
(t_newmethod)gate_new,
(t_method)gate_free,
sizeof(t_gate), 0,
A_DEFFLOAT, A_DEFFLOAT, 0);
class_addfloat(gate_class, gate_float);
class_addbang(gate_class, gate_bang);
gate_proxy_class = class_new(gensym("_gate_proxy"), 0, 0,
sizeof(t_gate_proxy),
CLASS_PD | CLASS_NOINLET, 0);
class_addfloat(gate_proxy_class, gate_proxy_float);
class_addbang(gate_proxy_class, gate_proxy_bang);
class_addsymbol(gate_proxy_class, gate_proxy_symbol);
class_addpointer(gate_proxy_class, gate_proxy_pointer);
class_addlist(gate_proxy_class, gate_proxy_list);
class_addanything(gate_proxy_class, gate_proxy_anything);
fitter_setup(gate_class, 0);
}
void Scope_tilde_setup(void)
{
scope_class = class_new(gensym("Scope~"),
(t_newmethod)scope_new,
(t_method)scope_free,
sizeof(t_scope), 0, A_GIMME, 0);
class_addcreator((t_newmethod)scope_new, gensym("scope~"), A_GIMME, 0);
class_addcreator((t_newmethod)scope_new, gensym("cyclone/scope~"), A_GIMME, 0);
sic_setup(scope_class, scope_dsp, scope_float);
class_addmethod(scope_class, (t_method)scope_bufsize,
gensym("bufsize"), A_GIMME, 0);
class_addmethod(scope_class, (t_method)scope_range,
gensym("range"), A_GIMME, 0);
class_addmethod(scope_class, (t_method)scope_delay,
gensym("delay"), A_GIMME, 0);
class_addmethod(scope_class, (t_method)scope_trigger,
gensym("trigger"), A_GIMME, 0);
class_addmethod(scope_class, (t_method)scope_triglevel,
gensym("triglevel"), A_GIMME, 0);
class_addmethod(scope_class, (t_method)scope_frgb,
gensym("frgb"), A_GIMME, 0);
class_addmethod(scope_class, (t_method)scope_brgb,
gensym("brgb"), A_GIMME, 0);
class_addmethod(scope_class, (t_method)scope_grgb,
gensym("grgb"), A_GIMME, 0);
class_addmethod(scope_class, (t_method)scope_click,
gensym("click"),
A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0);
class_addmethod(scope_class, (t_method)scope_resize,
gensym("resize"),
A_FLOAT, A_FLOAT, 0);
class_setwidget(scope_class, &scope_widgetbehavior);
forky_setsavefn(scope_class, scope_save);
scopehandle_class = class_new(gensym("_scopehandle"), 0, 0,
sizeof(t_scopehandle), CLASS_PD, 0);
class_addmethod(scopehandle_class, (t_method)scopehandle__clickhook,
gensym("_click"), A_FLOAT, 0);
class_addmethod(scopehandle_class, (t_method)scopehandle__motionhook,
gensym("_motion"), A_FLOAT, A_FLOAT, 0);
fitter_setup(scope_class, 0);
}
void mtr_setup(void)
{
mtrack_class = class_new(gensym("_mtrack"), 0, 0,
sizeof(t_mtrack), CLASS_PD | CLASS_NOINLET, 0);
class_addfloat(mtrack_class, mtrack_float);
class_addsymbol(mtrack_class, mtrack_symbol);
class_addlist(mtrack_class, mtrack_list);
class_addmethod(mtrack_class, (t_method)mtrack_record,
gensym("record"), 0);
class_addmethod(mtrack_class, (t_method)mtrack_play,
gensym("play"), 0);
class_addmethod(mtrack_class, (t_method)mtrack_stop,
gensym("stop"), 0);
class_addmethod(mtrack_class, (t_method)mtrack_next,
gensym("next"), 0);
class_addmethod(mtrack_class, (t_method)mtrack_rewind,
gensym("rewind"), 0);
class_addmethod(mtrack_class, (t_method)mtrack_mute,
gensym("mute"), 0);
class_addmethod(mtrack_class, (t_method)mtrack_unmute,
gensym("unmute"), 0);
class_addmethod(mtrack_class, (t_method)mtrack_clear,
gensym("clear"), 0);
class_addmethod(mtrack_class, (t_method)mtrack_delay,
gensym("delay"), A_FLOAT, 0);
class_addmethod(mtrack_class, (t_method)mtrack_first,
gensym("first"), A_FLOAT, 0);
class_addmethod(mtrack_class, (t_method)mtrack_read,
gensym("read"), A_DEFSYM, 0);
class_addmethod(mtrack_class, (t_method)mtrack_write,
gensym("write"), A_DEFSYM, 0);
class_addmethod(mtrack_class, (t_method)mtrack_tempo,
gensym("tempo"), A_FLOAT, 0);
mtr_class = class_new(gensym("mtr"),
(t_newmethod)mtr_new,
(t_method)mtr_free,
sizeof(t_mtr), 0,
A_DEFFLOAT, 0);
class_addmethod(mtr_class, (t_method)mtr_record,
gensym("record"), A_GIMME, 0);
class_addmethod(mtr_class, (t_method)mtr_play,
gensym("play"), A_GIMME, 0);
class_addmethod(mtr_class, (t_method)mtr_stop,
gensym("stop"), A_GIMME, 0);
class_addmethod(mtr_class, (t_method)mtr_next,
gensym("next"), A_GIMME, 0);
class_addmethod(mtr_class, (t_method)mtr_rewind,
gensym("rewind"), A_GIMME, 0);
class_addmethod(mtr_class, (t_method)mtr_mute,
gensym("mute"), A_GIMME, 0);
class_addmethod(mtr_class, (t_method)mtr_unmute,
gensym("unmute"), A_GIMME, 0);
class_addmethod(mtr_class, (t_method)mtr_clear,
gensym("clear"), A_GIMME, 0);
class_addmethod(mtr_class, (t_method)mtr_delay,
gensym("delay"), A_FLOAT, 0);
class_addmethod(mtr_class, (t_method)mtr_first,
gensym("first"), A_FLOAT, 0);
class_addmethod(mtr_class, (t_method)mtr_read,
gensym("read"), A_DEFSYM, 0);
class_addmethod(mtr_class, (t_method)mtr_write,
gensym("write"), A_DEFSYM, 0);
class_addmethod(mtr_class, (t_method)mtr_tempo,
gensym("tempo"), A_FLOAT, 0);
#ifdef MTR_DEBUG
class_addmethod(mtr_class, (t_method)mtr_debug,
gensym("debug"), 0);
#endif
hammerfile_setup(mtr_class, 0);
fitter_setup(mtr_class, 0);
}
void maxmode_setup(void)
{
int dresult = LOADER_OK;
if (zgetfn(&pd_objectmaker, gensym("maxmode")))
{
loud_error(0, "maxmode is already loaded");
return;
}
maxmode_class = class_new(gensym("maxmode"),
(t_newmethod)maxmode_new,
(t_method)maxmode_free,
sizeof(t_maxmode), 0, A_GIMME, 0);
class_addbang(maxmode_class, maxmode_bang);
class_addmethod(maxmode_class, (t_method)maxmode_set,
gensym("set"), A_DEFSYM, 0);
class_addmethod(maxmode_class, (t_method)maxmode_get,
gensym("get"), 0);
class_addmethod(maxmode_class, (t_method)maxmode_cd,
gensym("cd"), A_DEFSYM, 0);
class_addmethod(maxmode_class, (t_method)maxmode_pwd,
gensym("pwd"), A_SYMBOL, 0);
class_addmethod(maxmode_class, (t_method)maxmode_import,
gensym("import"), A_DEFSYM, 0);
class_addmethod(maxmode_class, (t_method)maxmode_click,
gensym("click"),
A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0);
hammerfile_setup(maxmode_class, 0);
if (canvas_getcurrent())
{
fitter_setup(0, 0);
if (!zgetfn(&pd_objectmaker, gensym("cyclone")))
/* cycloneless maxmode -- banner is posted by the oldest
maxmode object with no creation arguments */
maxmode_withbanner = 1;
}
else
{
fittermax_set();
if (zgetfn(&pd_objectmaker, gensym("cyclone")))
loud_warning(0, "maxmode", "cyclone is already loaded");
else
{
if (unstable_load_lib("", "cyclone") == LOADER_NOFILE)
loud_error(0, "cyclone library is missing");
else if (!zgetfn(&pd_objectmaker, gensym("cyclone")))
loud_error(0, "miXed/Pd version mismatch");
}
}
maxmode_dummiesndx = fragile_class_count();
if (zgetfn(&pd_objectmaker, gensym("dummies")))
loud_warning(0, "maxmode", "dummies are already loaded");
else
dresult = unstable_load_lib("", "dummies");
maxmode_lastndx = fragile_class_count() - 1;
if (dresult == LOADER_NOFILE)
loud_warning(0, "maxmode", "dummies not found");
else
{
t_symbol *s = gensym("_cc.dummies");
if (s->s_thing && !s->s_next
&& !strcmp(class_getname(*s->s_thing), "_cc.dummies"))
maxmode_dproxy = s->s_thing;
else
loudbug_bug("maxmode_setup"); /* FIXME */
}
}
