From 35994ca3a4ef6a136a16cac63b4f68540d0434e1 Mon Sep 17 00:00:00 2001
From: Frank Barknecht <fbar@users.sourceforge.net>
Date: Fri, 23 Apr 2004 16:22:42 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r1630, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/abstractions/rradical/; revision=1631
---
 control/commun-builder.pd | 131 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 131 insertions(+)
 create mode 100644 control/commun-builder.pd

(limited to 'control/commun-builder.pd')

diff --git a/control/commun-builder.pd b/control/commun-builder.pd
new file mode 100644
index 0000000..821004d
--- /dev/null
+++ b/control/commun-builder.pd
@@ -0,0 +1,131 @@
+#N canvas 355 231 703 585 10;
+#X floatatom 33 127 5 0 0 0 - - -;
+#N canvas 0 0 690 678 cm 0;
+#X obj 0 0 commun /s0 dollar0;
+#X obj 250 0 s dollar0-s0;
+#X obj 150 0 r dollar0-s0;
+#X obj 0 22 commun /s1 dollar0;
+#X obj 250 22 s dollar0-s1;
+#X obj 150 22 r dollar0-s1;
+#X obj 0 44 commun /s2 dollar0;
+#X obj 250 44 s dollar0-s2;
+#X obj 150 44 r dollar0-s2;
+#X obj 0 66 commun /s3 dollar0;
+#X obj 250 66 s dollar0-s3;
+#X obj 150 66 r dollar0-s3;
+#X obj 0 88 commun /s4 dollar0;
+#X obj 250 88 s dollar0-s4;
+#X obj 150 88 r dollar0-s4;
+#X obj 0 110 commun /s5 dollar0;
+#X obj 250 110 s dollar0-s5;
+#X obj 150 110 r dollar0-s5;
+#X obj 0 132 commun /s6 dollar0;
+#X obj 250 132 s dollar0-s6;
+#X obj 150 132 r dollar0-s6;
+#X obj 0 154 commun /s7 dollar0;
+#X obj 250 154 s dollar0-s7;
+#X obj 150 154 r dollar0-s7;
+#X obj 0 176 commun /s8 dollar0;
+#X obj 250 176 s dollar0-s8;
+#X obj 150 176 r dollar0-s8;
+#X obj 0 198 commun /s9 dollar0;
+#X obj 250 198 s dollar0-s9;
+#X obj 150 198 r dollar0-s9;
+#X obj 0 220 commun /s10 dollar0;
+#X obj 250 220 s dollar0-s10;
+#X obj 150 220 r dollar0-s10;
+#X obj 0 242 commun /s11 dollar0;
+#X obj 250 242 s dollar0-s11;
+#X obj 150 242 r dollar0-s11;
+#X obj 0 264 commun /s12 dollar0;
+#X obj 250 264 s dollar0-s12;
+#X obj 150 264 r dollar0-s12;
+#X obj 0 286 commun /s13 dollar0;
+#X obj 250 286 s dollar0-s13;
+#X obj 150 286 r dollar0-s13;
+#X obj 0 308 commun /s14 dollar0;
+#X obj 250 308 s dollar0-s14;
+#X obj 150 308 r dollar0-s14;
+#X obj 0 330 commun /s15 dollar0;
+#X obj 250 330 s dollar0-s15;
+#X obj 150 330 r dollar0-s15;
+#X connect 0 0 1 0;
+#X connect 2 0 0 0;
+#X connect 3 0 4 0;
+#X connect 5 0 3 0;
+#X connect 6 0 7 0;
+#X connect 8 0 6 0;
+#X connect 9 0 10 0;
+#X connect 11 0 9 0;
+#X connect 12 0 13 0;
+#X connect 14 0 12 0;
+#X connect 15 0 16 0;
+#X connect 17 0 15 0;
+#X connect 18 0 19 0;
+#X connect 20 0 18 0;
+#X connect 21 0 22 0;
+#X connect 23 0 21 0;
+#X connect 24 0 25 0;
+#X connect 26 0 24 0;
+#X connect 27 0 28 0;
+#X connect 29 0 27 0;
+#X connect 30 0 31 0;
+#X connect 32 0 30 0;
+#X connect 33 0 34 0;
+#X connect 35 0 33 0;
+#X connect 36 0 37 0;
+#X connect 38 0 36 0;
+#X connect 39 0 40 0;
+#X connect 41 0 39 0;
+#X connect 42 0 43 0;
+#X connect 44 0 42 0;
+#X connect 45 0 46 0;
+#X connect 47 0 45 0;
+#X restore 461 68 pd cm;
+#X obj 62 201 makefilename /s%d;
+#X msg 156 110 \; pd-cm clear;
+#X obj 22 76 until;
+#X obj 36 105 f;
+#X obj 67 107 + 1;
+#X obj 67 51 t f b b;
+#X msg 99 74 -1;
+#X obj 87 131 t f f f f;
+#X obj 76 282 pack s 0 s 0 0 0;
+#X obj 376 226 + 1;
+#X obj 404 226 + 2;
+#X obj 381 200 * 3;
+#X obj 191 201 makefilename dollar0-s%d;
+#X msg 65 314 \; pd-cm obj 0 \$2 commun \$1 dollar0 \; pd-cm obj 250
+\$2 s \$3 \; pd-cm obj 150 \$2 r \$3 \; pd-cm connect \$4 0 \$5 0 \;
+pd-cm connect \$6 0 \$4 0 \;;
+#X text 440 44 communs are built here:;
+#X text 57 427 Replace 'dollar0' with \$0 in a text editor later.;
+#X text 379 172 Connections;
+#X text 273 158 send/receives;
+#X text 78 182 commun id;
+#X obj 135 223 * 22;
+#X text 72 227 y-spacing;
+#X msg 76 26 16;
+#X connect 0 0 9 0;
+#X connect 2 0 10 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 5 0 0 0;
+#X connect 6 0 5 1;
+#X connect 7 0 4 0;
+#X connect 7 1 8 0;
+#X connect 7 2 3 0;
+#X connect 8 0 6 0;
+#X connect 9 0 2 0;
+#X connect 9 1 21 0;
+#X connect 9 2 14 0;
+#X connect 9 3 13 0;
+#X connect 10 0 15 0;
+#X connect 11 0 10 4;
+#X connect 12 0 10 5;
+#X connect 13 0 10 3;
+#X connect 13 0 12 0;
+#X connect 13 0 11 0;
+#X connect 14 0 10 2;
+#X connect 21 0 10 1;
+#X connect 23 0 7 0;
-- 
cgit v1.2.1