void connect_connect(t_patcher *p, t_object *send, int outlet, t_object *receive, int inlet)
{
t_atom msg[4];
t_atom rv;
atom_setobj(msg, send);
atom_setlong(msg + 1, outlet);
atom_setobj(msg + 2, receive);
atom_setlong(msg + 3, inlet);
object_method_typed(p , hoa_sym_connect, 4, msg, &rv);
}
void connect_connect(t_object *x, t_object *send, int outlet, t_object *receive, int inlet)
{
t_atom msg[4];
t_atom rv;
atom_setobj(msg, send);
atom_setlong(msg + 1, outlet);
atom_setobj(msg + 2, receive);
atom_setlong(msg + 3, inlet);
object_method_typed(x , gensym("connect"), 4, msg, &rv);
}
void scripto_dblclick(t_scripto *x)
{
if (x->s_patcher)
object_method(x->s_patcher, gensym("vis"));
else {
t_dictionary *d = dictionary_new();
char parsebuf[256];
t_atom a;
long ac = 0;
t_atom *av = NULL;
// create a patcher without scroll bars and a toolbar
sprintf(parsebuf,"@defrect 0 0 300 400 @title scripto @enablehscroll 0 @enablevscroll 0 @presentation 0 @toolbarid \"\"");
atom_setparse(&ac,&av,parsebuf);
attr_args_dictionary(d,ac,av);
atom_setobj(&a,d);
sysmem_freeptr(av);
x->s_patcher = (t_object *)object_new_typed(CLASS_NOBOX,gensym("jpatcher"),1, &a);
freeobject((t_object *)d); // we created this dictionary and we don't need it anymore
object_method(x->s_patcher,gensym("vis"));
x->s_ui = newobject_sprintf(x->s_patcher, "@maxclass scripto_ui @patching_rect 0 0 300 400 @oncolor %.2f %.2f %.2f %.2f @offcolor %.2f %.2f %.2f %.2f",
x->s_oncolor.red, x->s_oncolor.green, x->s_oncolor.blue, x->s_oncolor.alpha, x->s_offcolor.red, x->s_offcolor.green, x->s_offcolor.blue, x->s_offcolor.alpha);
object_attach_byptr_register(x, x->s_ui, CLASS_BOX); // attach our UI object to us
object_attach_byptr_register(x, x->s_patcher, CLASS_NOBOX); // attach our UI object to us
}
}
void ui_preset_interface(t_ui *x)
{
char filename[MAX_FILENAME_CHARS];
short path;
t_fourcc type;
t_fourcc filetype = 'JSON';
t_dictionary* d;
t_object* p;
t_atom a;
strncpy_zero(filename, "j.preset_interface.maxpat", MAX_FILENAME_CHARS);
locatefile_extended(filename, &path, &type, &filetype, 1);
dictionary_read(filename, path, &d);
atom_setobj(&a, d);
p = (t_object*)object_new_typed(_sym_nobox, _sym_jpatcher, 1, &a);
object_attr_setlong(p, _sym_locked, 1); // start out locked
object_attr_setchar(p, _sym_enablehscroll, 0); // turn off scroll bars
object_attr_setchar(p, _sym_enablevscroll, 0);
object_attr_setchar(p, _sym_openinpresentation, 1);
object_attr_setchar(p, _sym_toolbarvisible, 0);
object_attr_setsym(p, _sym_title, gensym("preset_interface"));
object_method_parse(p, _sym_window, "constrain 5 320 179 595", NULL);
object_attach_byptr_register(x, p, _sym_nobox);
object_method(p, _sym_vis); // "vis" happens immediately, "front" is defer_lowed
object_attr_setobj(jpatcher_get_firstview(p), _sym_owner, (t_object*)x); // become the owner
OBJ_ATTR_SYM(p, "arguments", 0, gensym((char*)x->modelAddress.c_str())); // the patch needs a [j.interfaceArguments.js]
object_method(p, _sym_loadbang);
}
TTErr PlugOutSetup(PlugOutPtr self)
{
Atom a[2];
atom_setobj(a+0, ObjectPtr(self->audioGraphObject));
atom_setlong(a+1, 0);
outlet_anything(self->audioGraphOutlet, GENSYM("audio.connect"), 2, a);
return kTTErrNone;
}
TTErr PackSetup(PackPtr self)
{
Atom a[2];
atom_setobj(a+0, ObjectPtr(self->audioGraphObject));
atom_setlong(a+1, 0);
outlet_anything(self->audioGraphObjectOutlet, gensym("audio.connect"), 2, a);
return kTTErrNone;
}
TTErr DCBlockSetup(DCBlockPtr self)
{
t_atom a[2];
atom_setobj(a+0, (t_object*)(self->audioGraphObject));
atom_setlong(a+1, 0);
outlet_anything(self->audioGraphOutlet, gensym("audio.connect"), 2, a);
return kTTErrNone;
}
void odisplay_doselect(t_odisplay *x){
t_object *p = NULL;
object_obex_lookup(x,gensym("#P"), &p);
if (p) {
t_atom rv;
long ac = 1;
t_atom av[1];
atom_setobj(av, x);
object_method_typed(p, gensym("selectbox"), ac, av, &rv);
}
}
TTErr MaxAudioGraphSetup(WrappedInstancePtr self)
{
Atom a[2];
TTUInt16 i=0;
atom_setobj(a+0, ObjectPtr(self->audioGraphObject));
while (self->audioGraphOutlets[i]) {
atom_setlong(a+1, i);
outlet_anything(self->audioGraphOutlets[i], gensym("audio.connect"), 2, a);
i++;
}
return kTTErrNone;
}
TTErr MaxGraphSetup(t_object* x)
{
WrappedInstancePtr self = WrappedInstancePtr(x);
t_atom a[2];
TTUInt16 i=0;
atom_setobj(a+0, (t_object*)self->graphObject);
while (self->graphOutlets[i]) {
atom_setlong(a+1, i);
outlet_anything(self->graphOutlets[i], gensym("graph.connect"), 2, a);
i++;
}
return kTTErrNone;
}
void HoaDecode_reconnect_outlet(t_HoaDecode *x)
{
t_object *patcher;
t_object *decoder;
t_object *object;
t_object *line;
t_max_err err;
err = object_obex_lookup(x, gensym("#P"), (t_object **)&patcher);
if (err != MAX_ERR_NONE)
return;
err = object_obex_lookup(x, gensym("#B"), (t_object **)&decoder);
if (err != MAX_ERR_NONE)
return;
for (line = jpatcher_get_firstline(patcher); line; line = jpatchline_get_nextline(line))
{
if (jpatchline_get_box1(line) == decoder)
{
object = jpatchline_get_box2(line);
for(int i = 0; jbox_getinlet((t_jbox *)object, i) != NULL && i < x->f_AmbisonicsDecoder->getNumberOfOutputs(); i++)
{
t_atom msg[4];
t_atom rv;
atom_setobj(msg, decoder);
atom_setlong(msg + 1, i);
atom_setobj(msg + 2, object);
atom_setlong(msg + 3, i);
object_method_typed(patcher , gensym("connect"), 4, msg, &rv);
}
}
}
}
void HoaDecode_disconnect_outlet(t_HoaDecode *x)
{
t_object *patcher;
t_object *decoder;
t_object *object;
t_object *line;
t_max_err err;
err = object_obex_lookup(x, gensym("#P"), (t_object **)&patcher);
if (err != MAX_ERR_NONE)
return;
err = object_obex_lookup(x, gensym("#B"), (t_object **)&decoder);
if (err != MAX_ERR_NONE)
return;
for (line = jpatcher_get_firstline(patcher); line; line = jpatchline_get_nextline(line))
{
if (jpatchline_get_box1(line) == decoder)
{
object = jpatchline_get_box2(line);
if(jpatchline_get_inletnum(line) != 0 && jpatchline_get_outletnum(line) != 0)
{
t_atom msg[4];
t_atom rv;
atom_setobj(msg, decoder);
atom_setlong(msg + 1, jpatchline_get_outletnum(line));
atom_setobj(msg + 2, object);
atom_setlong(msg + 3, jpatchline_get_inletnum(line));
object_method_typed(patcher , gensym("disconnect"), 4, msg, &rv);
}
}
}
}
void out_setup(TTPtr self)
{
WrappedModularInstancePtr x = (WrappedModularInstancePtr)self;
TTOutputAudioPtr anOutput = (TTOutputAudioPtr)x->wrappedObject.instance();
// NOTE FOR TIM : all the code below is a try and it's also a way to show you how to access to #TTOutputAudio members
// fell free to change everything if needed !
t_atom a[2];
// forward the internal signal out to connect it to any audiograph object below the j.out=
atom_setobj(a+0, (t_object*)anOutput->mSignalOut.instance());
atom_setlong(a+1, 0);
outlet_anything(x->outlets[signal_out], gensym("audio.connect"), 2, a);
}
t_max_err simplejs_doabs(t_simplejs *x, t_symbol *s, long ac, t_atom *av, t_atom *rv)
{
t_atom a[1];
double f = 0;
if (ac) {
if (atom_gettype(av) == A_LONG)
f = (double)abs(atom_getlong(av));
else if( atom_gettype(av) == A_FLOAT)
f = fabs(atom_getfloat(av));
} else
error("missing argument for method doAbs()");
// store the result in the a array.
atom_setfloat(a, f);
// return the result to js
atom_setobj(rv, object_new(gensym("nobox"), gensym("atomarray"), 1, a));
return MAX_ERR_NONE;
}
void hoa_gain_tometer(t_hoa_gain *x, t_symbol *s, long ac, t_atom *av)
{
if(ac && av)
{
t_object *patcher;
t_object *gain;
t_object *line;
t_max_err err;
t_atom rv;
t_atom msg[4];
err = object_obex_lookup(x, hoa_sym_pound_P, (t_object **)&patcher);
if (err != MAX_ERR_NONE)
return;
err = object_obex_lookup(x, hoa_sym_pound_B, (t_object **)&gain);
if (err != MAX_ERR_NONE)
return;
vector<t_jbox *> boxes;
for (line = jpatcher_get_firstline(patcher); line; line = jpatchline_get_nextline(line))
{
if (jpatchline_get_box1(line) == gain)
{
t_jbox *box = (t_jbox*)jpatchline_get_box2(line);
t_object *obj = jbox_get_object((t_object*)box);
t_symbol* classname = object_classname(obj);
if (find(boxes.begin(), boxes.end(), box) == boxes.end())
{
if(classname == hoa_sym_hoa_2d_meter ||
classname == hoa_sym_hoa_2d_vector ||
classname == hoa_sym_hoa_gain)
{
object_method_typed(obj, s, ac, av, NULL);
boxes.push_back(box);
}
else if(classname == hoa_sym_dac || (object_is_hoa(obj) && classname != hoa_sym_hoa_pi && classname != hoa_sym_hoa_pi_tilde))
{
boxes.push_back(box);
}
}
}
}
for(auto box : boxes)
{
// re-connect patchlines
for(int i = 0; jbox_getinlet(box, i) != NULL && i < x->f_number_of_channels; i++)
{
atom_setobj(msg, gain);
atom_setlong(msg + 1, i);
atom_setobj(msg + 2, box);
atom_setlong(msg + 3, i);
object_method_typed(patcher , hoa_sym_connect, 4, msg, &rv);
}
}
boxes.clear();
}
}
/**
Called by _dict_recurse_dict() for each entry and _dict_recurse_array() for each index
*/
t_int32 _dict_recurse_value(t_dict_recurse *x, t_atom *value, t_int32 depth)
{
TRACE("_dict_recurse_value");
long type = atom_gettype(value);
// ==== INT ====
if (type == A_LONG) {
snprintf_zero(x->str_tmp, MAX_LEN_NUMBER, "%i", atom_getlong(value));
_dict_recurse_value_find(x, value, x->str_tmp); }
// ==== FLOAT ====
else if (type == A_FLOAT) {
snprintf_zero(x->str_tmp, MAX_LEN_NUMBER, "%i", atom_getfloat(value));
_dict_recurse_value_find(x, value, x->str_tmp); }
// ==== SYMBOL / STRING ====
// NB: values in arrays are not A_SYM but A_OBJ
else if ((type == A_SYM) || atomisstring(value)) {
t_symbol *value_sym = atom_getsym(value);
switch (x->command) {
// == FIND A SYMBOL VALUE
case CMD_FIND_VALUE_SYM:
if (regexpr_match(x->search_val_expr, value_sym)) {
POST(" %s \"%s\"", x->path, value_sym->s_name); x->count++; }
break;
// == FIND AN ENTRY
case CMD_FIND_ENTRY:
if (regexpr_match(x->search_key_expr, x->key_iter)
&& regexpr_match(x->search_val_expr, value_sym)
&& (x->type_iter == VALUE_TYPE_DICT)) {
POST(" %s \"%s\"", x->path, value_sym->s_name); x->count++; }
break;
// == REPLACE A SYMBOL VALUE
case CMD_REPLACE_VALUE_SYM:
if (regexpr_match(x->search_val_expr, value_sym)) {
// If the value is from a dictionary entry
if (x->type_iter == VALUE_TYPE_DICT) {
dictionary_chuckentry(x->dict_iter, x->key_iter);
dictionary_appendsym(x->dict_iter, x->key_iter, x->replace_val_sym); }
// If the value is from an array
else if (x->type_iter == VALUE_TYPE_ARRAY) { atom_setsym(value, x->replace_val_sym); }
x->count++;
if (x->a_verbose) {
POST(" %s \"%s\" replaced by \"%s\"",
x->path, value_sym->s_name, x->replace_val_sym->s_name); } }
break;
// == REPLACE AN ENTRY
case CMD_REPLACE_ENTRY:
if (regexpr_match(x->search_key_expr, x->key_iter)
&& regexpr_match(x->search_val_expr, value_sym)
&& (x->type_iter == VALUE_TYPE_DICT)) {
dictionary_chuckentry(x->dict_iter, x->key_iter);
dictionary_appendsym(x->dict_iter, x->replace_key_sym, x->replace_val_sym);
x->count++;
if (x->a_verbose) {
POST(" %s \"%s\" replaced by (%s : %s)",
x->path, value_sym->s_name, x->replace_key_sym->s_name, x->replace_val_sym->s_name); } }
break;
// == DELETE A SYMBOL VALUE
case CMD_DELETE_VALUE_SYM:
if (regexpr_match(x->search_val_expr, value_sym)) {
// If the value is from a dictionary entry
if (x->type_iter == VALUE_TYPE_DICT) {
dictionary_deleteentry(x->dict_iter, x->key_iter); }
// If the value is from an array
else if (x->type_iter == VALUE_TYPE_ARRAY) {
atomarray_chuckindex(x->array_iter, x->index_iter); }
x->count++;
if (x->a_verbose) {
POST(" %s \"%s\" deleted",
x->path, value_sym->s_name); }
return VALUE_DEL; }
break;
// == DELETE A SYMBOL VALUE
case CMD_DELETE_ENTRY:
if (regexpr_match(x->search_key_expr, x->key_iter)
&& regexpr_match(x->search_val_expr, value_sym)
&& (x->type_iter == VALUE_TYPE_DICT)) {
dictionary_deleteentry(x->dict_iter, x->key_iter);
x->count++;
if (x->a_verbose) {
POST(" %s \"%s\" deleted",
x->path, value_sym->s_name); }
return VALUE_DEL; }
break;
// == DEFAULT: CMD_FIND_KEY or CMD_FIND_KEY_IN
default:
snprintf_zero(x->str_tmp, MAX_LEN_NUMBER, "\"%s\"", atom_getsym(value)->s_name);
_dict_recurse_value_find(x, value, x->str_tmp);
break; } }
// ==== DICTIONARY ====
else if (atomisdictionary(value)) {
t_dictionary *sub_dict = (t_dictionary *)atom_getobj(value);
t_symbol *key_match = gensym("");
t_symbol *value_match = gensym("");
switch (x->command) {
case CMD_FIND_DICT_CONT_ENTRY:
if (_dict_recurse_match_dict(x, sub_dict, &key_match, &value_match)) {
x->count++;
POST(" %s: dict containing (%s : %s)",
x->path, key_match->s_name, value_match->s_name); }
break;
case CMD_REPLACE_DICT_CONT_ENTRY:
if (_dict_recurse_match_dict(x, sub_dict, &key_match, &value_match)) {
t_dictionary *dict_cpy = dictionary_new();
dictionary_clone_to_existing(x->replace_dict, dict_cpy);
// If the value is from a dictionary entry
if (x->type_iter == VALUE_TYPE_DICT) {
dictionary_deleteentry(x->dict_iter, x->key_iter);
dictionary_appenddictionary(x->dict_iter, x->key_iter, (t_object *)dict_cpy); }
// If the value is from an array
else if (x->type_iter == VALUE_TYPE_ARRAY) {
long array_len;
t_atom *atom_arr;
atomarray_getatoms(x->array_iter, &array_len, &atom_arr);
atom_setobj(atom_arr + x->index_iter, dict_cpy); }
x->count++;
if (x->a_verbose) {
POST(" %s: dict containing (%s : %s): replaced by \"%s\"",
x->path, key_match->s_name, value_match->s_name, x->replace_dict_sym->s_name); }
return VALUE_NO_DEL; }
break;
case CMD_DELETE_DICT_CONT_ENTRY:
if (_dict_recurse_match_dict(x, sub_dict, &key_match, &value_match)) {
// If the value is from a dictionary entry
if (x->type_iter == VALUE_TYPE_DICT) {
dictionary_deleteentry(x->dict_iter, x->key_iter); }
// If the value is from an array
else if (x->type_iter == VALUE_TYPE_ARRAY) {
atomarray_chuckindex(x->array_iter, x->index_iter);
object_free(sub_dict); }
x->count++;
if (x->a_verbose) {
POST(" %s: dict containing (%s : %s): deleted",
x->path, key_match->s_name, value_match->s_name); }
return VALUE_DEL; }
break;
case CMD_APPEND_IN_DICT_CONT_ENTRY:
if (_dict_recurse_match_dict(x, sub_dict, &key_match, &value_match)) {
dictionary_appendsym(sub_dict, x->replace_key_sym, x->replace_val_sym);
x->count++;
if (x->a_verbose) {
POST(" %s: dict containing (%s : %s): appended (%s : %s)",
x->path, key_match->s_name, value_match->s_name, x->replace_key_sym->s_name, x->replace_val_sym->s_name); } }
break;
case CMD_APPEND_IN_DICT_CONT_ENTRY_D:
if (_dict_recurse_match_dict(x, sub_dict, &key_match, &value_match)
&& dictionary_hasentry(x->replace_dict, x->replace_key_sym)) {
t_symbol *key[2]; key[0] = x->replace_key_sym; key[1] = NULL;
dictionary_copyentries(x->replace_dict, sub_dict, key); // NB: Strange it does not require the array size
x->count++;
if (x->a_verbose) {
POST(" %s: dict containing (%s : %s): appended entry (%s : ...) from \"%s\"",
x->path, key_match->s_name, value_match->s_name, x->replace_key_sym->s_name, x->replace_dict_sym->s_name); } }
break;
case CMD_APPEND_IN_DICT_FROM_KEY:
if (regexpr_match(x->search_key_expr, x->key_iter)
&& (x->type_iter == VALUE_TYPE_DICT)
&& dictionary_hasentry(x->replace_dict, x->replace_key_sym)) {
t_symbol *key[2]; key[0] = x->replace_key_sym; key[1] = NULL;
dictionary_copyentries(x->replace_dict, sub_dict, key); // NB: Strange it does not require the array size
x->count++;
if (x->a_verbose) {
POST(" %s: dict value: appended entry (%s : ...) from \"%s\"",
x->path, x->replace_key_sym->s_name, x->replace_dict_sym->s_name); } }
break;
default:
_dict_recurse_value_find(x, value, "_DICT_"); } // End of command "switch ..."
_dict_recurse_dict(x, sub_dict, depth); } // End of dictionary "else if ..."
// ==== ARRAY ====
else if (atomisatomarray(value)) {
_dict_recurse_value_find(x, value, "_ARRAY_");
t_atomarray *atomarray = (t_atomarray *)atom_getobj(value);
_dict_recurse_array(x, atomarray, depth); }
return VALUE_NO_DEL;
}
int main(void)
{
common_symbols_init();
PlugtasticInit();
plugtastic_classinit();
sPlugtasticObject = (t_object*)plugtastic_new();
ps_plugtastic = GENSYM("plugtastic");
ps_plugtastic->s_thing = sPlugtasticObject;
sMaxObject = _sym_max->s_thing;
ps_objectfile = GENSYM("objectfile");
ps_db_object_addinternal = GENSYM("db.object_addinternal");
ps_oblist = GENSYM("oblist");
ps_db_addmetadata = GENSYM("db.addmetadata");
//defer_low(sMaxObject, (method)plug_setup_db, NULL, 0, NULL);
plug_setup_db();
post("Plugtastic Version %s | 74Objects.com", PLUGTASTIC_VERSION);
// This tells Max 5.0.6 and higher that we want the patcher files to be saved such that they are sorted.
// Having the saved this way makes our SVN diffs much more meaningful.
object_method_long(sMaxObject, GENSYM("sortpatcherdictonsave"), 1, NULL);
// This tells Max 4.5.7 and higher to take any posts to the Max window and also make the
// post to the system console, which greatly aids in debugging problems and crashes
object_method_long(sMaxObject, GENSYM("setmirrortoconsole"), 1, NULL);
// OPEN THE SPLASH
if (sPlugtasticSplash) {
char name[MAX_FILENAME_CHARS];
short path = 0;
long type = 0;
long typelist[2] = {'JSON', 'TEXT'};
short err;
t_dictionary* d;
t_object* p;
t_atom a[2];
strncpy_zero(name, "Plugtastic.maxpat", MAX_FILENAME_CHARS);
err = locatefile_extended(name, &path, &type, typelist, 2);
dictionary_read(name, path, &d);
atom_setobj(a, d);
p = (t_object*)object_new_typed(_sym_nobox, _sym_jpatcher, 1, a);
object_attr_setlong(p, _sym_locked, 1); // start out locked
object_attr_setchar(p, _sym_enablehscroll, 0); // turn off scroll bars
object_attr_setchar(p, _sym_enablevscroll, 0);
object_attr_setchar(p, _sym_toolbarvisible, 0);
object_attr_setsym(p, _sym_title, gensym("Welcome to Plugtastic"));
object_attr_setparse(p, _sym_rect, "271 170 799 489");
object_attr_setparse(p, _sym_defrect, "271 170 799 489");
object_method(p, _sym_vis); // "vis" happens immediately, "front" is defer_lowed
object_method(p, _sym_loadbang);
// object_method_parse(p, _sym_window, "constrain 799 489 799 489", NULL);
object_method_parse(p, _sym_window, "flags nozoom", NULL);
object_method_parse(p, _sym_window, "flags nogrow", NULL);
object_method_parse(p, _sym_window, "exec", NULL);
}
return 0;
}
