[Gridflow-cvs] [svn] commit: r4451 - in /trunk: abstractions/doc_h.pd base/flow_objects2.c

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Tue Oct 27 11:59:21 EDT 2009


Author: matju
Date: Tue Oct 27 11:59:21 2009
New Revision: 4451

Log:
improve [doc_hohoho]

Modified:
    trunk/abstractions/doc_h.pd
    trunk/base/flow_objects2.c

Modified: trunk/abstractions/doc_h.pd
==============================================================================
--- trunk/abstractions/doc_h.pd (original)
+++ trunk/abstractions/doc_h.pd Tue Oct 27 11:59:21 2009
@@ -1,5 +1,5 @@
 #N canvas 307 90 572 627 10;
-#X obj 3 3 cnv 15 544 18 empty \$0-rect ♯rgb_to_rgba 2 9 1 13 -1
+#X obj 3 3 cnv 15 544 18 empty \$0-rect ♯cluster_avg 2 9 1 13 -1
 -262144 0;
 #X obj 6 28 loadbang;
 #X obj 61 30 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
@@ -48,8 +48,7 @@
 #X msg 138 579 open png/\$1;
 #X obj 27 474 gf/canvas_xid 1;
 #X msg 29 451 bang;
-#X obj 383 434 gf/canvas_hehehe 1;
-#X obj 383 415 metro 400;
+#X obj 383 510 gf/canvas_hehehe 1;
 #X obj 383 398 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
 1;
 #X obj 383 360 loadbang;
@@ -78,6 +77,11 @@
 #X msg 230 128 0;
 #X text 258 127 can't use [gf.oneshot] here because of its [args];
 #X obj 176 411 spigot 1;
+#X obj 383 415 metro 400;
+#X msg 383 434 0 0;
+#X msg 383 472 \$2;
+#X obj 383 453 doc_below f;
+#X obj 383 491 + 5;
 #X connect 1 0 6 0;
 #X connect 2 0 6 0;
 #X connect 3 0 7 0;
@@ -88,7 +92,7 @@
 #X connect 10 0 11 0;
 #X connect 11 0 12 0;
 #X connect 12 0 8 0;
-#X connect 13 0 49 1;
+#X connect 13 0 48 1;
 #X connect 14 0 19 0;
 #X connect 15 0 18 0;
 #X connect 16 0 15 0;
@@ -120,35 +124,39 @@
 #X connect 41 0 28 0;
 #X connect 42 0 27 0;
 #X connect 43 0 42 0;
-#X connect 45 0 44 0;
-#X connect 46 0 45 0;
-#X connect 47 0 48 0;
-#X connect 48 0 46 0;
-#X connect 49 2 13 0;
-#X connect 50 0 53 0;
-#X connect 51 0 68 0;
-#X connect 52 0 22 0;
-#X connect 53 0 52 0;
-#X connect 54 0 56 0;
-#X connect 55 0 54 0;
-#X connect 56 0 22 0;
-#X connect 57 0 58 0;
-#X connect 58 0 22 0;
-#X connect 59 0 57 0;
-#X connect 60 0 63 0;
-#X connect 61 0 62 0;
-#X connect 61 1 59 0;
-#X connect 61 2 55 0;
-#X connect 61 3 50 0;
-#X connect 62 0 60 0;
-#X connect 63 0 22 0;
-#X connect 64 0 66 0;
-#X connect 66 0 67 0;
-#X connect 66 1 61 0;
-#X connect 67 0 72 0;
-#X connect 68 0 69 0;
-#X connect 69 0 64 0;
-#X connect 69 1 70 0;
-#X connect 70 0 68 1;
-#X connect 72 0 22 0;
+#X connect 45 0 72 0;
+#X connect 46 0 47 0;
+#X connect 47 0 45 0;
+#X connect 48 2 13 0;
+#X connect 49 0 52 0;
+#X connect 50 0 67 0;
+#X connect 51 0 22 0;
+#X connect 52 0 51 0;
+#X connect 53 0 55 0;
+#X connect 54 0 53 0;
+#X connect 55 0 22 0;
+#X connect 56 0 57 0;
+#X connect 57 0 22 0;
+#X connect 58 0 56 0;
+#X connect 59 0 62 0;
+#X connect 60 0 61 0;
+#X connect 60 1 58 0;
+#X connect 60 2 54 0;
+#X connect 60 3 49 0;
+#X connect 61 0 59 0;
+#X connect 62 0 22 0;
+#X connect 63 0 65 0;
+#X connect 65 0 66 0;
+#X connect 65 1 60 0;
+#X connect 66 0 71 0;
+#X connect 67 0 68 0;
+#X connect 68 0 63 0;
+#X connect 68 1 69 0;
+#X connect 69 0 67 1;
+#X connect 71 0 22 0;
+#X connect 72 0 73 0;
+#X connect 73 0 75 0;
+#X connect 74 0 76 0;
+#X connect 75 0 74 0;
+#X connect 76 0 44 0;
 #X coords 0 -1 1 1 550 24 2 0 0;

Modified: trunk/base/flow_objects2.c
==============================================================================
--- trunk/base/flow_objects2.c (original)
+++ trunk/base/flow_objects2.c Tue Oct 27 11:59:21 2009
@@ -219,12 +219,16 @@
 \class GFCanvasHeHeHe : FObject {
 	int n;
 	\constructor (int n) {this->n=n;}
-	\decl 0 bang ();
-};
-\def 0 bang () {
-	t_canvas *mom = bself->mom;
-	for (int i=0; i<n; i++) {mom = mom->gl_owner; if (!mom) RAISE("no such canvas");}
-	mom->gl_screenx2 = mom->gl_screenx1 + 560;
+	\decl 0 float (float y);
+};
+\def 0 float (float y) {
+	t_canvas *mom = bself->mom;
+	for (int i=0; i<n; i++) {mom = mom->gl_owner; if (!mom) RAISE("no such canvas");}
+	mom->gl_screenx2 = mom->gl_screenx1 + 568;
+	if (mom->gl_screeny2-mom->gl_screeny1 < y) mom->gl_screeny2 = mom->gl_screeny1+y;
+	sys_vgui("wm geometry .x%lx %dx%d\n",long(mom),
+	  int(mom->gl_screenx2-mom->gl_screenx1),
+	  int(mom->gl_screeny2-mom->gl_screeny1));
 }
 \end class {install("gf/canvas_hehehe",1,1);}
 



More information about the Gridflow-cvs mailing list