From 22b9e5ea8f143c2540e5fcc5103d013c97ed4f5e Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sat, 11 Apr 2009 22:06:29 +0000 Subject: got the basics of a global send and a Tcl unbind function working for the motion data, now I need to debug the unbind and add the button and wheel functions svn path=/trunk/externals/hcs/; revision=11007 --- cursor.c | 122 +++++++++++++++++++++++++++++++++++++++++++++++---------------- 1 file changed, 91 insertions(+), 31 deletions(-) (limited to 'cursor.c') diff --git a/cursor.c b/cursor.c index 6cc0bfd..9773534 100644 --- a/cursor.c +++ b/cursor.c @@ -1,3 +1,6 @@ +/* TODO add reset method for cursor icons, this should probably be done in +pd.tk, or cursor reset method could be done in help patch */ + #include #include #include @@ -5,15 +8,14 @@ #include static t_symbol *button_symbol; -static t_symbol *motion_symbol; static t_symbol *wheel_symbol; +static t_symbol *motion_symbol; +static t_symbol *x_symbol; +static t_symbol *y_symbol; +static t_symbol *cursor_receive_symbol; -//TODO add reset method for cursor icons, this should probably be done in pd.tk - -// TODO figure out some way to get -//t_int hidio_instance_count; -/* this is used to test for the first instance to execute */ -//double last_execute_time; +t_int cursor_instance_count; +t_int cursor_instances_polling; static t_class *cursor_class; @@ -28,17 +30,59 @@ typedef struct _cursor char *optionv[]; } t_cursor; +/* idea from #tcl for a Tcl unbind */ -/* idea from #tcl for a Tcl unbind -proc unbind {tag event script} { - set bind "" - foreach x [split [bind $tag $event] "\n"] { - if {$x != $script} {lappend bind $x} - } - bind $tag $event {} - foreach x $bind {bind $tag $event $x} - } -*/ +static void create_unbind (void) +{ + sys_gui("if {[info commands ::hcs_cursor_class::unbind] ne {::hcs_cursor_class::unbind}} {"); + sys_gui(" proc ::hcs_cursor_class::unbind {tag event script} {\n"); + sys_gui(" set bind {}\n"); + sys_gui(" foreach x [split [bind $tag $event] \"\n\"] {\n"); + sys_gui(" if {$x != $script} {lappend bind $x}\n"); + sys_gui(" }\n"); + sys_gui(" bind $tag $event {}\n"); + sys_gui(" foreach x $bind {bind $tag $event $x}\n"); + sys_gui(" }\n"); + sys_gui("}\n"); +} + +static void create_namespace(void) +{ + sys_gui("if { [namespace exists ::hcs_cursor_class]} {\n"); + sys_gui(" puts stderr {ERROR: ::hcs_cursor_class namespace exists!}\n"); + sys_gui("} else {\n"); + sys_gui(" namespace eval ::hcs_cursor_class {\n"); + sys_gui(" variable send_to_pd 0\n"); + sys_gui(" variable last_x 0\n"); + sys_gui(" variable last_y 0\n"); + sys_gui(" }\n"); + sys_gui("}\n"); +} + +static void create_button_proc(void) +{ +} + +static void create_mousewheel_proc(void) +{ +} + +static void create_motion_proc(void) +{ + /* create proc and bind it, if it doesn't exist */ +// sys_gui("if {[info commands ::hcs_cursor_class::motion] ne {::hcs_cursor_class::motion}} {"); + sys_gui (" proc ::hcs_cursor_class::motion {x y} {\n"); +// sys_gui (" if {{$::hcs_cursor_class::send_to_pd > 0} {\n"); +// sys_gui (" if { $x != $::hcs_cursor_class::last_x \\\n"); +// sys_gui (" || $y != $::hcs_cursor_class::last_y} {\n"); + sys_vgui(" pd [concat %s motion $x $y \\;]\n", + cursor_receive_symbol->s_name); +// sys_gui (" }\n"); +// sys_gui (" }\n"); + sys_gui (" }\n"); +// sys_gui ("}\n"); + sys_gui ("\n"); +} static void cursor_setmethod(t_cursor *x, t_symbol *s, int argc, t_atom *argv) { @@ -52,24 +96,28 @@ static void cursor_bang(t_cursor *x) x->receive_symbol->s_name); } -/* TODO this needs some kind of working unbind to be useful, otherwise when an - * instance is deleted, you get reams of "error: #123123 no such object" - * messages in the Pd Window. static void cursor_float(t_cursor *x, t_float f) { if(f > 0) { - sys_vgui("bind all {+pd [concat %s motion %%x %%y \\;]}\n", - x->receive_symbol->s_name); + // TODO make sure the procs are setup + // TODO bind to the global cursor receive symbol + pd_bind(&x->x_obj.ob_pd, cursor_receive_symbol); + cursor_instances_polling++; + /* if this is the first instance to start polling, set up the bind */ + if (cursor_instances_polling == 1) + sys_gui ("bind all {+::hcs_cursor_class::motion %x %y}\n"); } else { - // TODO figure out how to turn off this binding - sys_vgui("bind all {+pd [concat %s motion %%x %%y \\;]}\n", - x->receive_symbol->s_name); + // TODO unbind from the global cursor receive symbol + pd_unbind(&x->x_obj.ob_pd, cursor_receive_symbol); + cursor_instances_polling--; + /* if no more objects are listening, stop sending the events */ + if (cursor_instances_polling == 0) + sys_gui ("unbind all {::hcs_cursor_class::motion %x %y}\n"); } } -*/ static void cursor_button_callback(t_cursor *x, t_float button, t_float state) { @@ -84,7 +132,10 @@ static void cursor_motion_callback(t_cursor *x, t_float x_position, t_float y_po { t_atom output_atoms[2]; - SETFLOAT(output_atoms, x_position); + SETSYMBOL(output_atoms, x_symbol); + SETFLOAT(output_atoms + 1, x_position); + outlet_anything(x->data_outlet, motion_symbol, 2, output_atoms); + SETSYMBOL(output_atoms, y_symbol); SETFLOAT(output_atoms + 1, y_position); outlet_anything(x->data_outlet, motion_symbol, 2, output_atoms); } @@ -99,8 +150,10 @@ static void cursor_wheel_callback(t_cursor *x, t_float f) static void cursor_free(t_cursor *x) { - pd_unbind(&x->x_obj.ob_pd, x->receive_symbol); - //TODO free the "bind all" + cursor_float(x, 0); + /* TODO free the "bind all" somehow so that the tcl procs aren't + * continuing to work even tho no cursor objects are receiving the data */ + cursor_instance_count--; } static void *cursor_new(void) @@ -116,6 +169,9 @@ static void *cursor_new(void) x->data_outlet = outlet_new(&x->x_obj, 0); // x->status_outlet = outlet_new(&x->x_obj, 0); + + create_namespace(); + create_motion_proc(); /* not working yet sys_vgui("bind . {+pd [concat %s button %%b 1 \\;]}\n", x->receive_symbol->s_name); @@ -124,6 +180,7 @@ static void *cursor_new(void) sys_vgui("bind . {+pd [concat %s wheel %%D \\;]}\n", x->receive_symbol->s_name); */ + cursor_instance_count++; return(x); } @@ -135,11 +192,14 @@ void cursor_setup(void) sizeof(t_cursor), 0, 0); class_addbang(cursor_class, (t_method)cursor_bang); -/* class_addfloat(cursor_class, (t_method)cursor_float); */ + class_addfloat(cursor_class, (t_method)cursor_float); button_symbol = gensym("button"); - motion_symbol = gensym("motion"); wheel_symbol = gensym("wheel"); + motion_symbol = gensym("motion"); + x_symbol = gensym("x"); + y_symbol = gensym("y"); + cursor_receive_symbol = gensym("#hcs_cursor_class_receive"); class_addmethod(cursor_class, (t_method)cursor_button_callback, button_symbol, A_DEFFLOAT, A_DEFFLOAT, 0); -- cgit v1.2.1