aboutsummaryrefslogtreecommitdiff
path: root/shared/unstable/fringe.c
diff options
context:
space:
mode:
authorN.N. <krzyszcz@users.sourceforge.net>2003-09-19 12:19:32 +0000
committerN.N. <krzyszcz@users.sourceforge.net>2003-09-19 12:19:32 +0000
commitedab184352cd14788a37c76dce147ac19f7464b4 (patch)
tree25436b1653813a1fa1e010711f8dd48be9d549a4 /shared/unstable/fringe.c
parentd9cbafdcc2cc8753036a5674570dd6b0b55bf62a (diff)
*** empty log message ***
svn path=/trunk/externals/miXed/; revision=1011
Diffstat (limited to 'shared/unstable/fringe.c')
-rw-r--r--shared/unstable/fringe.c98
1 files changed, 98 insertions, 0 deletions
diff --git a/shared/unstable/fringe.c b/shared/unstable/fringe.c
new file mode 100644
index 0000000..cf29ec6
--- /dev/null
+++ b/shared/unstable/fringe.c
@@ -0,0 +1,98 @@
+/* Copyright (c) 1997-2003 Miller Puckette, krzYszcz, and others.
+ * For information on usage and redistribution, and for a DISCLAIMER OF ALL
+ * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */
+
+/* Put here calls which are likely to (and should) make into Pd API some day. */
+
+#include "m_pd.h"
+#include "g_canvas.h"
+#include "unstable/forky.h"
+#include "unstable/fringe.h"
+
+static int gobj_getindex(t_glist *gl, t_gobj *ob)
+{
+ t_gobj *ob1;
+ int ndx;
+ for (ob1 = gl->gl_list, ndx = 0; ob1 && ob1 != ob; ob1 = ob1->g_next)
+ ndx++;
+ return (ndx);
+}
+
+static void gobj_totail(t_glist *gl, t_gobj *ob)
+{
+ if (ob->g_next)
+ {
+ t_gobj *ob1;
+ if (ob == gl->gl_list) ob1 = gl->gl_list = ob->g_next;
+ else
+ {
+ for (ob1 = gl->gl_list; ob1; ob1 = ob1->g_next)
+ if (ob1->g_next == ob)
+ break;
+ if (!ob1)
+ {
+ bug("gobj_totail");
+ return;
+ }
+ ob1->g_next = ob->g_next;
+ ob1 = ob1->g_next;
+ }
+ while (ob1->g_next) ob1 = ob1->g_next;
+ ob1->g_next = ob;
+ ob->g_next = 0;
+ }
+}
+
+static void gobj_stowconnections(t_glist *gl, t_gobj *ob, t_binbuf *bb)
+{
+ t_linetraverser lt;
+ t_outconnect *oc;
+ binbuf_clear(bb);
+ linetraverser_start(&lt, gl);
+ while (oc = linetraverser_next(&lt))
+ {
+ if ((t_gobj *)lt.tr_ob == ob || (t_gobj *)lt.tr_ob2 == ob)
+ binbuf_addv(bb, "ssiiii;",
+ gensym("#X"), gensym("connect"),
+ gobj_getindex(gl, (t_gobj *)lt.tr_ob), lt.tr_outno,
+ gobj_getindex(gl, (t_gobj *)lt.tr_ob2), lt.tr_inno);
+ }
+#if 0
+ post("packed connections:");
+ binbuf_print(bb);
+#endif
+}
+
+static void gobj_restoreconnections(t_glist *gl, t_binbuf *bb)
+{
+ pd_bind((t_pd *)gl, gensym("#X"));
+ binbuf_eval(bb, 0, 0, 0);
+ pd_unbind((t_pd *)gl, gensym("#X"));
+}
+
+void gobj_recreate(t_glist *gl, t_gobj *ob, t_binbuf *bb)
+{
+ /* LATER revisit all gobj calls, and sort out the gop case */
+ t_text *newt;
+ int xpix = ((t_text *)ob)->te_xpix, ypix = ((t_text *)ob)->te_ypix;
+ t_binbuf *bb1 = binbuf_new();
+ int ac = binbuf_getnatom(bb);
+ t_atom *av = binbuf_getvec(bb);
+ canvas_setcurrent(gl);
+ gobj_totail(gl, ob);
+ gobj_stowconnections(gl, ob, bb1);
+ glist_delete(gl, ob);
+ if (newt = (t_text *)forky_newobject(av->a_w.w_symbol, ac - 1, av + 1))
+ {
+ newt->te_binbuf = bb;
+ newt->te_xpix = xpix;
+ newt->te_ypix = ypix;
+ newt->te_width = 0;
+ newt->te_type = T_OBJECT;
+ glist_add(gl, (t_gobj *)newt);
+ gobj_restoreconnections(gl, bb1);
+ }
+ else bug("gobj_recreate");
+ binbuf_free(bb1);
+ canvas_unsetcurrent(gl);
+}