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/m.ctlearn.pd | 74 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 74 insertions(+)
 create mode 100644 control/m.ctlearn.pd

(limited to 'control/m.ctlearn.pd')

diff --git a/control/m.ctlearn.pd b/control/m.ctlearn.pd
new file mode 100644
index 0000000..e0e28a9
--- /dev/null
+++ b/control/m.ctlearn.pd
@@ -0,0 +1,74 @@
+#N canvas 270 300 531 297 10;
+#X obj 150 149 tgl 12 0 \$0-onoff \$0-onoff empty -16 5 1729 7 -26823
+-262131 -1 1 1;
+#X obj 44 150 bng 12 250 50 0 \$0-learn \$0-learn L 4 6 1729 7 -258699
+-241291 -262131;
+#X obj 344 150 cnv 15 20 12 \$0-show1 \$0-show1 13_ 2 6 1729 8 -262144
+-66577 0;
+#X obj 424 150 cnv 15 20 14 \$0-show2 \$0-show2 2_ 2 6 1729 8 -262144
+-66577 0;
+#N canvas 0 0 654 332 innerworkings 0;
+#X obj 69 132 unpack 0 0;
+#X obj 158 131 symbol \$0-show1;
+#X obj 273 129 symbol \$0-show2;
+#X obj 76 160 pack 0 s;
+#X obj 191 163 pack 0 s;
+#X obj 158 45 loadbang;
+#X obj 69 34 inlet;
+#X obj 69 59 route set;
+#X obj 276 85 f 1;
+#X obj 274 105 s \$0-onoff;
+#X msg 76 184 \; \$2 label \$1_;
+#X msg 192 186 \; \$2 label \$1_;
+#X connect 0 0 3 0;
+#X connect 0 1 4 0;
+#X connect 1 0 3 1;
+#X connect 2 0 4 1;
+#X connect 3 0 10 0;
+#X connect 4 0 11 0;
+#X connect 5 0 1 0;
+#X connect 5 0 2 0;
+#X connect 5 0 8 0;
+#X connect 6 0 7 0;
+#X connect 7 0 0 0;
+#X connect 8 0 9 0;
+#X restore 366 115 pd innerworkings;
+#X obj 251 217 outlet;
+#X obj 337 214 outlet;
+#X msg 200 39 learn;
+#X obj 251 88 spigot;
+#X obj 288 61 r \$0-onoff;
+#X obj 251 38 ctlearn \$1 \$2;
+#X obj 337 17 inlet;
+#X obj 488 18 inlet;
+#N canvas 0 0 450 300 saves 0;
+#X obj 62 225 originator \$3 \$0;
+#X obj 209 150 s \$0-ctlset-r;
+#X obj 207 106 r \$0-ctlset;
+#X msg 106 155 set;
+#X obj 101 119 inlet;
+#X obj 187 176 inlet;
+#X obj 209 126 commun /cc \$0;
+#X connect 2 0 6 0;
+#X connect 3 0 0 0;
+#X connect 4 0 3 0;
+#X connect 5 0 0 1;
+#X connect 6 0 1 0;
+#X restore 438 200 pd saves;
+#X obj 402 87 s \$0-ctlset;
+#X obj 384 19 r \$0-ctlset-r;
+#X obj 256 149 bng 12 250 50 0 empty empty S 4 6 1 7 -262131 -258699
+-258699;
+#X connect 1 0 7 0;
+#X connect 7 0 10 0;
+#X connect 8 0 5 0;
+#X connect 9 0 8 1;
+#X connect 10 0 8 0;
+#X connect 10 1 4 0;
+#X connect 10 1 6 0;
+#X connect 10 2 14 0;
+#X connect 11 0 10 1;
+#X connect 12 0 13 1;
+#X connect 15 0 10 1;
+#X connect 16 0 13 0;
+#X coords 0 0 1 1 120 40 1;
-- 
cgit v1.2.1