void *matrixctrl_new(t_symbol *s, int argc, t_atom *argv)
{
t_matrixctrl *x = NULL;
t_binbuf* d;
long flags;
if (!(d = binbuf_via_atoms(argc,argv)))
return NULL;
x = (t_matrixctrl *)eobj_new(matrixctrl_class);
x->f_size.x = 8;
x->f_size.y = 4;
x->f_values = (char *)malloc(x->f_size.x * x->f_size.y * sizeof(char));
memset(x->f_values, 0, x->f_size.x * x->f_size.y * sizeof(char));
x->f_selected.x = -1;
x->f_selected.y = -1;
flags = 0
| EBOX_GROWINDI
;
ebox_new((t_ebox *)x, flags);
x->f_out_cell = outlet_new((t_object *)x, &s_list);
x->f_out_colrow = outlet_new((t_object *)x, &s_list);
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
return (x);
}
void *hoa_space_new(t_symbol *s, int argc, t_atom *argv)
{
t_hoa_space *x = NULL;
t_binbuf *d;
long flags;
if (!(d = binbuf_via_atoms(argc, argv)))
return NULL;
x = (t_hoa_space *)eobj_new(hoa_space_class);
x->f_viewer = new AmbisonicViewer(1);
x->f_recomposer = new AmbisonicRecomposer(1, 4);
x->f_out = listout(x);
x->f_number_of_microphones = 4;
x->f_new_number = 4;
x->f_defer = clock_new(x, (t_method)hoa_space_do_channels_set);
flags = 0
| EBOX_GROWLINK
;
ebox_new((t_ebox *)x, flags);
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
return (x);
}
void *meter_new(t_symbol *s, int argc, t_atom *argv)
{
t_meter *x = NULL;
t_binbuf* d;
long flags;
if (!(d = binbuf_via_atoms(argc,argv)))
return NULL;
x = (t_meter *)eobj_new(meter_class);
flags = 0
| EBOX_GROWINDI
| EBOX_IGNORELOCKCLICK
;
ebox_new((t_ebox *)x, flags);
eobj_dspsetup((t_ebox *)x, 1, 0);
x->f_direction = 0;
x->f_peaks_outlet = floatout(x);
x->f_peak_value = -90.;
x->f_clock = clock_new(x,(t_method)meter_tick);
x->f_startclock = 0;
x->f_over_led_preserved = 0;
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
return (x);
}
void *breakpoints_new(t_symbol *s, int argc, t_atom *argv)
{
t_binbuf* d = binbuf_via_atoms(argc,argv);
t_breakpoints *x = (t_breakpoints *)eobj_new(breakpoints_class);
if(x && d)
{
x->f_outline_mode = 0;
long flags = 0
| EBOX_GROWINDI
;
ebox_new((t_ebox *)x, flags);
x->f_out_float = (t_outlet *)floatout(x);
x->f_out_list = (t_outlet *)listout(x);
x->f_out_function = (t_outlet *)listout(x);
x->f_number_of_points = 0;
x->f_point_hover = -1;
x->f_point_selected = -1;
x->f_output_inc = -1;
x->f_output_nextprev = 0;
x->f_point_last_created = -1;
x->f_mouse.x = -666666;
x->f_mouse.y = -666666;
x->f_clock = clock_new(x, (t_method)breakpoints_inc);
ebox_attrprocess_viabinbuf(x, d);
breakpoints_init(x, d);
ebox_ready((t_ebox *)x);
}
return (x);
}
void *freeverb_new(t_symbol *s, int argc, t_atom *argv)
{
t_freeverb *x = NULL;
x = (t_freeverb *)eobj_new(freeverb_class);
eobj_dspsetup((t_ebox *)x, 1, 1);
if(argc && argv && atom_gettype(argv) == A_FLOAT)
{
if(!atom_getfloat(argv))
x->f_freeverb = new Freeverb(0);
else
x->f_freeverb = new Freeverb(1);
}
else if(argc && argv && atom_gettype(argv) == A_SYMBOL)
{
if(atom_getsymbol(argv) == gensym("right"))
x->f_freeverb = new Freeverb(1);
else
x->f_freeverb = new Freeverb(0);
}
else
x->f_freeverb = new Freeverb(0);
x->f_freeverb->setdamp(initialdamp);
x->f_freeverb->setroomsize(initialroom);
return (x);
}
void *number_tilde_new(t_symbol *s, int argc, t_atom *argv)
{
t_number_tilde *x = NULL;
t_binbuf* d;
long flags;
if (!(d = binbuf_via_atoms(argc,argv)))
return NULL;
x = (t_number_tilde *)eobj_new(number_tilde_class);
flags = 0
| EBOX_GROWINDI
| EBOX_IGNORELOCKCLICK
;
ebox_new((t_ebox *)x, flags);
eobj_dspsetup((t_ebox *)x, 1, 1);
x->f_peaks_outlet = floatout(x);
x->f_peak_value = 0.;
x->f_clock = clock_new(x,(t_method)number_tilde_tick);
x->f_startclock = 0;
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
return (x);
}
static void *scope_new(t_symbol *s, int argc, t_atom *argv)
{
t_scope *x = NULL;
t_binbuf* d;
long flags;
if (!(d = binbuf_via_atoms(argc,argv)))
return NULL;
x = (t_scope *)eobj_new(cscope_class);
if(x)
{
flags = 0
| EBOX_GROWINDI
| EBOX_IGNORELOCKCLICK
;
ebox_new((t_ebox *)x, flags);
eobj_dspsetup((t_ebox *)x, 2, 0);
x->f_buffer_x = (t_sample *)calloc(80192, sizeof(t_sample));
x->f_buffer_y = (t_sample *)calloc(80192, sizeof(t_sample));
x->f_mode = 0;
x->f_index = 0;
x->f_clock = clock_new(x,(t_method)scope_tick);
x->f_startclock = 0;
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
}
return (x);
}
void *hoa_scope_3D_new(t_symbol *s, int argc, t_atom *argv)
{
t_hoa_scope_3D *x = NULL;
t_binbuf *d;
long flags;
if (!(d = binbuf_via_atoms(argc, argv)))
return NULL;
x = (t_hoa_scope_3D *)eobj_new(hoa_scope_3D_class);
x->f_order = 1;
x->f_startclock = 0;
x->f_scope = new Hoa3D::Scope(x->f_order, NUMBEROFCIRCLEPOINTS_UI2 * 0.5, NUMBEROFCIRCLEPOINTS_UI2);
x->f_order = x->f_scope->getDecompositionOrder();
x->f_signals = new t_float[x->f_scope->getNumberOfHarmonics() * SYS_MAXBLKSIZE];
x->f_index = 0;
eobj_dspsetup(x, x->f_scope->getNumberOfHarmonics(), 0);
flags = 0
| EBOX_IGNORELOCKCLICK
| EBOX_GROWLINK
;
ebox_new((t_ebox *)x, flags);
x->f_clock = clock_new(x,(t_method)hoa_scope_3D_tick);
x->f_startclock = 0;
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
return (x);
}
void *hoa_recomposer_new(t_symbol *s, long argc, t_atom *argv)
{
t_hoa_recomposer *x = NULL;
int order = 4;
int microphones = 10;
int mode = Hoa_Fixe;
x = (t_hoa_recomposer *)eobj_new(hoa_recomposer_class);
order = atom_getint(argv);
microphones = atom_getint(argv+1);
if (atom_gettype(argv+2) == A_SYM)
{
if(atom_getsym(argv+2) == gensym("fixe"))
mode = Hoa_Fixe;
else if(atom_getsym(argv+2) == gensym("fisheye"))
mode = Hoa_Fisheye;
else if(atom_getsym(argv+2) == gensym("free"))
mode = Hoa_Free;
}
if (atom_gettype(argv+2) == A_LONG)
{
mode = Tools::clip(long(atom_getlong(argv+2)), 0, 2);
}
x->f_ambi_recomposer = new AmbisonicRecomposer(order, microphones, mode, sys_getblksize(), sys_getsr());
eobj_dspsetup(x, x->f_ambi_recomposer->getNumberOfInputs(), x->f_ambi_recomposer->getNumberOfOutputs());
x->f_ob.d_misc = E_NO_INPLACE;
return (x);
}
void *gain_new(t_symbol *s, int argc, t_atom *argv)
{
t_gain *x = NULL;
t_binbuf* d;
long flags;
if (!(d = binbuf_via_atoms(argc,argv)))
return NULL;
x = (t_gain *)eobj_new(gain_class);
flags = 0
| EBOX_GROWINDI
;
ebox_new((t_ebox *)x, flags);
eobj_dspsetup((t_ebox *)x, 1, 1);
x->f_out = (t_outlet *)floatout(x);
x->f_value = 0.;
x->f_amp = 1.;
x->f_amp_old = 1.;
x->f_amp_step = 0.;
x->f_counter = 0;
x->f_sample_rate = sys_getsr();
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
return (x);
}
static void *blackboard_new(t_symbol *s, int argc, t_atom *argv)
{
t_blackboard *x = (t_blackboard *)eobj_new(blackboard_class);
t_binbuf* d = binbuf_via_atoms(argc,argv);
if(x && d)
{
ebox_new((t_ebox *)x, 0 | EBOX_GROWINDI);
x->f_out_drag = outlet_new((t_object *)x, &s_list);
x->f_out_move = outlet_new((t_object *)x, &s_list);
x->f_out_down = outlet_new((t_object *)x, &s_float);
x->f_pen_new.x = 0.;
x->f_pen_new.y = 0.;
x->f_pen_old.x = 0.;
x->f_pen_old.y = 0.;
x->f_pen_down = 0;
x->f_width = 1;
x->f_color = gensym("#000000");
x->f_fill = 0;
x->f_ninstructions = 0;
x->f_instructions = (char **)malloc(_blackboard::maxcmd * sizeof(char*));
for(int i = 0; i < _blackboard::maxcmd; i++)
{
x->f_instructions[i] = (char *)malloc(MAXPDSTRING * sizeof(char));
}
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
}
return (x);
}
void *hoa_meter_new(t_symbol *s, int argc, t_atom *argv)
{
t_hoa_meter *x = NULL;
t_binbuf *d;
long flags;
if (!(d = binbuf_via_atoms(argc, argv)))
return NULL;
x = (t_hoa_meter *)eobj_new(hoa_meter_class);
x->f_ramp = 0;
x->f_meter = new Hoa2D::Meter(4);
x->f_vector = new Hoa2D::Vector(4);
x->f_signals = new t_float[MAX_SPEAKER * SYS_MAXBLKSIZE];
x->f_over_leds = new int[MAX_CHANNELS];
x->f_clock = clock_new(x,(t_method)hoa_meter_tick);
x->f_startclock = 0;
eobj_dspsetup((t_ebox *)x, x->f_meter->getNumberOfChannels(), 0);
flags = 0
| EBOX_GROWLINK
| EBOX_IGNORELOCKCLICK
;
ebox_new((t_ebox *)x, flags);
hoa_meter_deprecated(x, s, argc, argv);
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
return (x);
}
static void *hoa_new(t_symbol *s)
{
t_eobj *x = (t_eobj *)eobj_new(cream_class);
if(x)
{
logpost(x, 3, "HOA Library by Pierre Guillot, Eliott Paris & Thomas Le Meur\n© 2013 - 2015 CICM | Paris 8 University\nVersion %s (%s) for Pure Data %i.%i\n",hoaversion, __DATE__, PD_MAJOR_VERSION, PD_MINOR_VERSION);
}
return (x);
}
static void* score_new(t_symbol* name, int argc, t_atom* argv)
{
t_score* x = (t_score*)eobj_new(score_class);
auto path = get_library_path("score.");
post("score player: %s", path.c_str());
x->p = std::make_unique<score::Player>(path + "/plugins");
return (x);
}
void *hoa_map_3D_tilde_new(t_symbol *s, long argc, t_atom *argv)
{
t_hoa_map_3D_tilde *x = NULL;
t_binbuf *d;
int order = 1;
int numberOfSources = 1;
if (!(d = binbuf_via_atoms(argc,argv)))
return NULL;
x = (t_hoa_map_3D_tilde *)eobj_new(hoa_map_3D_tilde_class);
if (x)
{
if(atom_gettype(argv) == A_LONG)
order = clip_min(atom_getlong(argv), 0);
if(argc > 1 && atom_gettype(argv+1) == A_LONG)
numberOfSources = clip_minmax(atom_getlong(argv+1), 1, 255);
if(argc > 2 && atom_gettype(argv+2) == A_SYM)
{
if(atom_getsym(argv+2) == gensym("car") || atom_getsym(argv+2) == gensym("cartesian"))
x->f_mode = 1;
else
x->f_mode = 0;
}
else
x->f_mode = 0;
x->f_ramp = 100;
x->f_map = new Hoa3D::Map(order, numberOfSources);
x->f_lines = new MapPolarLines3D(x->f_map->getNumberOfSources());
x->f_lines->setRamp(0.1 * sys_getsr());
for (int i = 0; i < x->f_map->getNumberOfSources(); i++)
{
x->f_lines->setRadiusDirect(i, 1);
x->f_lines->setAzimuthDirect(i, 0.);
x->f_lines->setElevationDirect(i, 0.);
}
if(x->f_map->getNumberOfSources() == 1)
eobj_dspsetup(x, 4, x->f_map->getNumberOfHarmonics());
else
eobj_dspsetup(x, x->f_map->getNumberOfSources(), x->f_map->getNumberOfHarmonics());
if(x->f_map->getNumberOfSources() == 1)
x->f_sig_ins = new t_float[4 * SYS_MAXBLKSIZE];
else
x->f_sig_ins = new t_float[x->f_map->getNumberOfSources() * SYS_MAXBLKSIZE];
x->f_sig_outs = new t_float[x->f_map->getNumberOfHarmonics() * SYS_MAXBLKSIZE];
x->f_lines_vector = new float[x->f_map->getNumberOfSources() * 3];
ebox_attrprocess_viabinbuf(x, d);
}
return (x);
}
void *hoa_pi_tilde_new(t_symbol *s, int argc, t_atom *argv)
{
t_hoa_pi_tilde *x = (t_hoa_pi_tilde *)eobj_new(hoa_pi_tilde_class);
x->p_value = 1.;
x->p_phase = 1;
x->p_value = atom_getfloat(argv);
eobj_dspsetup(x, 2, 1);
return(x);
}
static void *leap_gesture_new(t_symbol *s, int argc, t_atom *argv)
{
t_leap_gesture *x = (t_leap_gesture *)eobj_new(leap_gesture_class);
if(x)
{
x->f_gesture = anythingout(x);
x->f_parameters = anythingout(x);
ebox_attrprocess_viatoms(x, argc, argv);
}
return (x);
}
void *prepend_new(t_symbol *s, int argc, t_atom *argv)
{
t_prepend *x = NULL;
x = (t_prepend *)eobj_new(prepend_class);
if(x)
{
prepend_set(x, gensym("set"), argc, argv);
x->f_out = (t_outlet *)listout(x);
}
return (x);
}
void *prepend_new(t_symbol *s, int argc, t_atom *argv)
{
t_prepend *x = NULL;
x = (t_prepend *)eobj_new(prepend_class);
if(x)
{
x->f_argv = (t_atom *)malloc(_prepend::maxsize * sizeof(t_atom));
prepend_set(x, gensym("set"), argc, argv);
x->f_out = outlet_new((t_object *)x, &s_list);
}
return (x);
}
void *hoa_space_t_new(t_symbol *s, long argc, t_atom *argv)
{
t_hoa_space_t *x = NULL;
int number_of_channels = 4;
x = (t_hoa_space_t *)eobj_new(hoa_space_t_class);
number_of_channels = atom_getint(argv);
x->f_ambi_space = new AmbisonicSpace(number_of_channels, sys_getblksize());
eobj_dspsetup(x, x->f_ambi_space->getNumberOfInputs(), x->f_ambi_space->getNumberOfOutputs());
x->f_ob.d_misc = E_NO_INPLACE;
return (x);
}
void *hoa_wider_new(t_symbol *s, long argc, t_atom *argv)
{
t_hoa_wider *x = NULL;
int order = 4;
x = (t_hoa_wider *)eobj_new(hoa_wider_class);
order = atom_getint(argv);
x->f_ambi_wider = new AmbisonicWider(order, sys_getblksize());
eobj_dspsetup(x, x->f_ambi_wider->getNumberOfInputs(), x->f_ambi_wider->getNumberOfOutputs());
x->f_ob.d_misc = E_NO_INPLACE;
return (x);
}
void *hoa_freeverb_new(t_symbol *s, long argc, t_atom *argv)
{
t_hoa_freeverb *x = NULL;
int order = 4;
x = (t_hoa_freeverb *)eobj_new(hoa_freeverb_class);
if (x)
{
order = atom_getint(argv);
x->f_ambi_freeverb = new AmbisonicFreeverb(order, sys_getblksize(), sys_getsr());
eobj_dspsetup(x, x->f_ambi_freeverb->getNumberOfInputs(), x->f_ambi_freeverb->getNumberOfOutputs());
x->f_ob.d_misc = E_NO_INPLACE;
}
return (x);
}
void *hoa_converter_tilde_new(t_symbol *s, int argc, t_atom *argv)
{
t_hoa_converter_tilde *x = NULL;
if(argc < 3 || atom_gettype(argv) != A_LONG || atom_gettype(argv+1) != A_SYM || atom_gettype(argv+2) != A_SYM)
{
error("hoa.converter~ need 4 arguments.");
return NULL;
}
x = (t_hoa_converter_tilde *)eobj_new(hoa_converter_tilde_class);
eobj_dspsetup(x, 2, 1);
return(x);
}
void *carray_new(t_symbol *s, int argc, t_atom *argv)
{
t_carray *x = NULL;
t_binbuf* d;
long flags;
if (!(d = binbuf_via_atoms(argc,argv)))
return NULL;
x = (t_carray *)eobj_new(carray_class);
flags = 0
| EBOX_GROWINDI
;
ebox_new((t_ebox *)x, flags);
x->f_out = (t_outlet *)bangout((t_object *)x);
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
return (x);
}
static void *knob_new(t_symbol *s, int argc, t_atom *argv)
{
t_knob *x = (t_knob *)eobj_new(knob_class);
t_binbuf* d = binbuf_via_atoms(argc, argv);
if(x && d)
{
ebox_new((t_ebox *)x, 0 | EBOX_GROWLINK);
ebox_parameter_create((t_ebox *)x, 1);
x->f_outlet = outlet_new((t_object *)x, &s_float);
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
return x;
}
return NULL;
}
static void *incdec_new(t_symbol *s, int argc, t_atom *argv)
{
t_incdec *x = (t_incdec *)eobj_new(incdec_class);
t_binbuf* d = binbuf_via_atoms(argc,argv);
if(x && d)
{
ebox_new((t_ebox *)x, 0 | EBOX_GROWINDI);
x->f_clock = clock_new(x, (t_method)incdec_clock);
x->f_value = 0.;
x->f_mouse_down = 0;
x->f_out = outlet_new((t_object *)x, &s_float);
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
}
return (x);
}
static void *loadmess_new(t_symbol *s, int argc, t_atom *argv)
{
t_loadmess *x = (t_loadmess *)eobj_new(loadmess_class);
if(x)
{
x->l_time = clock_getsystime();
if(argc && argv)
{
x->l_argc = (size_t)argc;
x->l_argv = (t_atom *)malloc(x->l_argc * sizeof(t_atom));
if(x->l_argv)
{
memcpy(x->l_argv, argv, sizeof(t_atom) * x->l_argc);
if(x->l_argc == 1)
{
if(atom_gettype(argv) == A_FLOAT)
x->l_out = outlet_new((t_object *)x, &s_float);
else if (atom_gettype(argv) == A_SYMBOL)
x->l_out = outlet_new((t_object *)x, &s_symbol);
}
else
{
if(atom_gettype(argv) == A_FLOAT)
x->l_out = outlet_new((t_object *)x, &s_list);
else if (atom_gettype(argv) == A_SYMBOL)
x->l_out = outlet_new((t_object *)x, &s_anything);
}
}
else
{
pd_error(x, "can't allocate memory.");
}
}
else
{
x->l_argc = 0;
x->l_argv = NULL;
x->l_out = outlet_new((t_object *)x, &s_bang);
}
}
return (x);
}
static void *patcherinfos_new(t_symbol *s, int argc, t_atom *argv)
{
t_patcherinfos *x = (t_patcherinfos *)eobj_new(patcherinfos_class);
if(x)
{
if(canvas_getcurrent())
{
x->f_canvas = glist_getcanvas(canvas_getcurrent());
}
else
{
x->f_canvas = NULL;
}
x->f_out_name = outlet_new((t_object *)x, &s_symbol);
x->f_out_path = outlet_new((t_object *)x, &s_symbol);
x->f_out_coords = outlet_new((t_object *)x, &s_list);
x->f_time = clock_getsystime();
}
return x;
}
void *bang_new(t_symbol *s, int argc, t_atom *argv)
{
t_bang *x = NULL;
t_binbuf* d;
long flags;
if (!(d = binbuf_via_atoms(argc,argv)))
return NULL;
x = (t_bang *)eobj_new(bang_class);
flags = 0
| EBOX_GROWLINK
;
ebox_new((t_ebox *)x, flags);
x->f_out = (t_outlet *)bangout((t_object *)x);
x->f_active = 0;
x->f_clock = clock_new(x,(t_method)bang_mouseup);
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
return (x);
}
void *toggle_new(t_symbol *s, int argc, t_atom *argv)
{
t_toggle *x = NULL;
t_binbuf* d;
long flags;
if (!(d = binbuf_via_atoms(argc,argv)))
return NULL;
x = (t_toggle *)eobj_new(toggle_class);
flags = 0
| EBOX_GROWLINK
;
ebox_new((t_ebox *)x, flags);
x->f_active = 0;
x->f_out = (t_outlet *)floatout(x);
ebox_attrprocess_viabinbuf(x, d);
ebox_ready((t_ebox *)x);
return (x);
}
