From 04b0af3634801ae7831ed8143e63a68f1e85f6b7 Mon Sep 17 00:00:00 2001
From: Jonathan Wilkes <jancsika@yahoo.com>
Date: Thu, 5 Jun 2014 15:47:57 -0400
Subject: [PATCH] First attempt at an [objectinfo] class
---
pd/src/x_interface.c | 195 +++++++++++++++++++++++++++++++++++++------
1 file changed, 169 insertions(+), 26 deletions(-)
diff --git a/pd/src/x_interface.c b/pd/src/x_interface.c
index 1803d9027..92e0fdeea 100644
--- a/pd/src/x_interface.c
+++ b/pd/src/x_interface.c
@@ -102,7 +102,7 @@ static void print_setup(void)
class_addanything(print_class, print_anything);
}
-/* -----------------canvasinfo, pdinfo, classinfo ------------------------------ */
+/* --------------pdinfo, canvasinfo, classinfo, objectinfo --------------- */
static t_class *canvasinfo_class;
typedef struct _canvasinfo {
@@ -125,9 +125,19 @@ typedef struct _classinfo {
t_symbol *x_name;
} t_classinfo;
+static t_class *objectinfo_class;
+
+typedef struct _objectinfo {
+ t_object x_obj;
+ t_outlet *x_out2;
+ t_canvas *x_canvas;
+ t_float x_index;
+ t_float x_depth;
+} t_objectinfo;
+
/* used by all the *info objects */
-static t_int info_to_console = 0;
+static int info_to_console = 0;
void info_out(t_text *te, t_symbol *s, int argc, t_atom *argv)
{
@@ -158,27 +168,32 @@ void info_print(t_text *te)
for(i = c->c_nmethod, m = c->c_methods; i; i--, m++)
if(m->me_name != gensym("print"))
(m->me_fun)(te, m->me_name, 0, 0);
-/* pd_forwardmess(te->te_pd, 0, 0); not sure why this doesn't work */
+ /* not sure why this doesn't work... */
+ /* pd_forwardmess(te->te_pd, 0, 0); */
info_to_console = 0;
}
/* -------------------------- canvasinfo ------------------------------ */
-t_canvas *canvasinfo_dig(t_canvasinfo *x)
+/* climb up to a parent canvas */
+t_canvas *canvas_climb(t_canvas *c, int level)
{
- int depth = (int)x->x_depth;
- t_canvas *c = x->x_canvas;
- if(depth<0) depth = 0;
-
- while(depth && c->gl_owner) {
- c = c->gl_owner;
- depth--;
+ if(level <= 0)
+ return c;
+ else
+ {
+ t_canvas *ret = c;
+ while(level && ret->gl_owner)
+ {
+ ret = ret->gl_owner;
+ level--;
+ }
+ return c;
}
- return c;
}
void canvasinfo_args(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
int n = 0;
t_atom *a = 0;
t_binbuf *b;
@@ -202,7 +217,7 @@ void canvasinfo_args(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
void canvasinfo_coords(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
t_int gop = c->gl_isgraph + c->gl_hidetext;
t_atom at[9];
SETFLOAT(at, (c->gl_isgraph) ? c->gl_x1 : 0);
@@ -219,7 +234,7 @@ void canvasinfo_coords(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
void canvasinfo_dir(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
c = canvas_getrootfor(c);
t_atom at[1];
SETSYMBOL(at, canvas_getdir(c));
@@ -228,7 +243,7 @@ void canvasinfo_dir(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
void canvasinfo_dirty(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
t_atom at[1];
SETFLOAT(at, c->gl_dirty);
info_out((t_text *)x, s, 1, at);
@@ -236,7 +251,7 @@ void canvasinfo_dirty(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
void canvasinfo_dollarzero(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
c = canvas_getrootfor(c);
t_symbol *d = gensym("$0");
t_symbol *ret = canvas_realizedollar(c, d);
@@ -248,7 +263,7 @@ void canvasinfo_dollarzero(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
void canvasinfo_editmode(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
t_atom at[1];
SETFLOAT(at, c->gl_edit);
info_out((t_text *)x, s, 1, at);
@@ -256,7 +271,7 @@ void canvasinfo_editmode(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
void canvasinfo_filename(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
c = canvas_getrootfor(c);
t_atom at[1];
SETSYMBOL(at, c->gl_name);
@@ -265,7 +280,7 @@ void canvasinfo_filename(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
void canvasinfo_hitbox(t_canvasinfo *x, t_floatarg xpos, t_floatarg ypos)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
int x1, y1, x2, y2, indexno;
t_gobj *ob = canvas_findhitbox(c, xpos, ypos, &x1, &y1, &x2, &y2);
if (ob)
@@ -289,7 +304,7 @@ void canvasinfo_hitbox(t_canvasinfo *x, t_floatarg xpos, t_floatarg ypos)
void canvasinfo_name(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
char buf[MAXPDSTRING];
snprintf(buf, MAXPDSTRING, ".x%lx", (long unsigned int)c);
t_atom at[1];
@@ -299,7 +314,7 @@ void canvasinfo_name(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
void canvasinfo_pointer(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
t_atom at[1];
t_gpointer gp;
gpointer_init(&gp);
@@ -312,7 +327,7 @@ void canvasinfo_pointer(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
void canvasinfo_posonparent(t_canvasinfo *x, t_symbol *s,
int argc, t_atom *argv)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
t_atom at[2];
SETFLOAT(at, c->gl_obj.te_xpix);
SETFLOAT(at+1, c->gl_obj.te_ypix);
@@ -321,7 +336,7 @@ void canvasinfo_posonparent(t_canvasinfo *x, t_symbol *s,
void canvasinfo_screenpos(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
t_atom at[4];
SETFLOAT(at, c->gl_screenx1);
SETFLOAT(at+1, c->gl_screeny1);
@@ -332,7 +347,7 @@ void canvasinfo_screenpos(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
void canvasinfo_toplevel(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
t_float f = c->gl_owner ? 0 : 1;
t_atom at[1];
SETFLOAT(at, f);
@@ -341,7 +356,7 @@ void canvasinfo_toplevel(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
void canvasinfo_vis(t_canvasinfo *x, t_symbol *s, int argc, t_atom *argv)
{
- t_canvas *c = canvasinfo_dig(x);
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
t_atom at[1];
SETFLOAT(at, glist_isvisible(c));
info_out((t_text *)x, s, 1, at);
@@ -961,10 +976,138 @@ void classinfo_setup(void)
*/
}
+/* -------------------------- objectinfo ------------------------------ */
+
+t_gobj *objectinfo_getobject(t_canvas *c, int index)
+{
+ int i = index;
+ t_gobj *y = c->gl_list;
+ while(i-- && y)
+ y = y->g_next;
+ return y;
+}
+
+void objectinfo_float(t_floatarg f)
+{
+
+}
+
+void objectinfo_boxtext(t_objectinfo *x, t_symbol *s, int argc, t_atom *argv)
+{
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
+ t_gobj *ob;
+
+ if(ob = objectinfo_getobject(c, x->x_index))
+ {
+ int n = 0;
+ t_atom *a = 0;
+ t_binbuf *b;
+ /* if it's not t_object (e.g., a scalar), or if it is but
+ does not have any binbuf content, send a bang... */
+ if (!pd_checkobject(&ob->g_pd) ||
+ !(b = ((t_text *)ob)->te_binbuf))
+ {
+ info_out((t_text *)x, &s_bang, 0, 0);
+ }
+ else
+ {
+ n = binbuf_getnatom(b);
+ a = binbuf_getvec(b);
+ info_out((t_text *)x, s, n, a);
+ }
+ }
+ else
+ outlet_bang(x->x_out2);
+}
+
+void objectinfo_bbox(t_objectinfo *x, t_symbol *s, int argc, t_atom *argv)
+{
+ t_gobj *ob;
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
+ int x1, y1, x2, y2;
+ if(ob = objectinfo_getobject(c, x->x_index))
+ {
+ /* check for a getrectfn */
+ if (ob->g_pd->c_wb && ob->g_pd->c_wb->w_getrectfn)
+ {
+ t_atom at[4];
+ gobj_getrect(ob, c, &x1, &y1, &x2, &y2);
+ SETFLOAT(at, (t_float)x1);
+ SETFLOAT(at+1, (t_float)y1);
+ SETFLOAT(at+2, (t_float)x2);
+ SETFLOAT(at+3, (t_float)y2);
+ info_out((t_text *)x, s, 4, at);
+ }
+ else
+ {
+ info_out((t_text *)x, &s_bang, 0, 0);
+ }
+ }
+ else
+ outlet_bang(x->x_out2);
+}
+
+
+void objectinfo_classname(t_objectinfo *x, t_symbol *s,
+ int argc, t_atom *argv)
+{
+ t_atom at[1];
+ t_gobj *ob;
+ t_canvas *c = canvas_climb(x->x_canvas, x->x_depth);
+ if(ob = objectinfo_getobject(c, x->x_index))
+ {
+ char *classname = class_getname(ob->g_pd);
+ SETSYMBOL(at, gensym(classname));
+ info_out((t_text *)x, s, 1, at);
+ }
+ else
+ outlet_bang(x->x_out2);
+}
+
+void objectinfo_print(t_classinfo *x)
+{
+ info_print((t_text *)x);
+}
+
+void *objectinfo_new(t_floatarg f)
+{
+ t_objectinfo *x = (t_objectinfo *)pd_new(objectinfo_class);
+ t_glist *glist = (t_glist *)canvas_getcurrent();
+ x->x_canvas = (t_canvas*)glist_getcanvas(glist);
+ x->x_index = f;
+ floatinlet_new(&x->x_obj, &x->x_index);
+ floatinlet_new(&x->x_obj, &x->x_depth);
+ outlet_new(&x->x_obj, &s_anything);
+ x->x_out2 = outlet_new(&x->x_obj, &s_bang);
+ return (void *)x;
+}
+
+void objectinfo_setup(void)
+{
+ objectinfo_class = class_new(gensym("objectinfo"),
+ (t_newmethod)objectinfo_new, 0,
+ sizeof(t_objectinfo),
+ CLASS_DEFAULT, A_DEFFLOAT, 0);
+
+ class_addfloat(objectinfo_class, objectinfo_float);
+ class_addmethod(objectinfo_class, (t_method)objectinfo_bbox,
+ gensym("bbox"), A_GIMME, 0);
+ class_addmethod(objectinfo_class, (t_method)objectinfo_boxtext,
+ gensym("boxtext"), A_GIMME, 0);
+ class_addmethod(objectinfo_class, (t_method)objectinfo_classname,
+ gensym("class"), A_GIMME, 0);
+ class_addmethod(objectinfo_class, (t_method)objectinfo_print,
+ gensym("print"), 0);
+
+ post("objectinfo: v.0.1");
+ post("stable objectinfo methods: class");
+}
+
void x_interface_setup(void)
{
print_setup();
canvasinfo_setup();
pdinfo_setup();
classinfo_setup();
+ objectinfo_setup();
}
--
GitLab