1 files changed, 111 insertions, 0 deletions
diff --git a/s-controlsurface.pd b/s-controlsurface.pd
new file mode 100644
index 0000000..226618e
--- /dev/null
+++ b/s-controlsurface.pd
@@ -0,0 +1,111 @@
+#N canvas 239 16 721 668 10;
+#N canvas 0 16 999 675 1075data 0;
+#X coords 0 0 210 210 210 210 1;
+#X restore 13 39 pd \$0data;
+#N canvas 507 228 452 378 1075template 0;
+#X obj 3 4 struct \$0template float x0 float y0 float id float c;
+#X msg 195 257 traverse \$1 \, bang;
+#X obj 195 279 pointer;
+#X obj 4 107 inlet;
+#X obj 3 48 filledpolygon c 0 1 x0(0:200)(0:200) y0(0:200)(0:200) x0(0:200)(10:210)
+y0(0:200)(0:200) x0(0:200)(10:210) y0(0:200)(10:210) x0(0:200)(0:200)
+y0(0:200)(10:210);
+#X msg 4 282 100 100 \$1 \$2;
+#X obj 4 304 append \$0template x0 y0 id c;
+#X obj 195 235 makefilename pd-%ddata;
+#X obj 195 213 \$0;
+#X obj 4 131 t l b;
+#X connect 1 0 2 0;
+#X connect 2 0 6 4;
+#X connect 3 0 9 0;
+#X connect 5 0 6 0;
+#X connect 7 0 1 0;
+#X connect 8 0 7 0;
+#X connect 9 0 5 0;
+#X connect 9 1 8 0;
+#X restore 8 602 pd \$0template;
+#X obj 8 392 loadbang;
+#X msg 8 431 0;
+#X obj 8 478 f;
+#X obj 39 478 + 1;
+#X obj 187 22 bng 14 250 50 0 \$0-add \$0-add add 18 12 0 8 -260818
+-1 -1;
+#X obj 15 452 r \$0-add;
+#X obj 136 22 bng 14 250 50 0 \$0-clear \$0-clear clear 18 12 0 8 -260818
+-1 -1;
+#X msg 526 85 \; \$1 clear;
+#X obj 526 64 makefilename pd-%ddata;
+#X obj 526 43 \$0;
+#X obj 526 22 r \$0-clear;
+#X obj 8 499 t f f;
+#X obj 8 581 pack f f;
+#X obj 59 557 * 16;
+#X obj 69 392 r \$0-clear;
+#X obj 261 177 inlet;
+#X obj 465 564 outlet;
+#X msg 312 451 next;
+#X obj 465 484 pointer;
+#X obj 465 377 \$0;
+#X obj 465 402 makefilename pd-%ddata;
+#X obj 261 372 until;
+#X obj 291 331 > 0;
+#X obj 261 310 t f f;
+#X obj 261 352 spigot;
+#X obj 261 404 f;
+#X obj 289 404 + 1;
+#X obj 261 424 t b f;
+#X msg 336 355 0;
+#X msg 465 426 traverse \$1;
+#X obj 364 433 ==;
+#X obj 261 270 t f b b f;
+#X obj 465 516 spigot;
+#X obj 465 540 get \$0template x0 y0 id c;
+#X obj 521 564 outlet;
+#X obj 14 40 cnv 15 208 208 empty empty empty 20 12 0 14 -260818 -66577
+0;
+#X obj 57 498 s \$0-count;
+#X obj 261 224 mod;
+#X obj 277 202 r \$0-count;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 4 0 13 0;
+#X connect 4 0 38 0;
+#X connect 5 0 4 1;
+#X connect 7 0 4 0;
+#X connect 10 0 9 0;
+#X connect 11 0 10 0;
+#X connect 12 0 11 0;
+#X connect 13 0 14 0;
+#X connect 13 1 15 0;
+#X connect 14 0 1 0;
+#X connect 15 0 14 1;
+#X connect 16 0 3 0;
+#X connect 17 0 39 0;
+#X connect 19 0 20 0;
+#X connect 20 0 34 0;
+#X connect 21 0 22 0;
+#X connect 22 0 31 0;
+#X connect 23 0 27 0;
+#X connect 24 0 26 1;
+#X connect 25 0 26 0;
+#X connect 25 1 24 0;
+#X connect 26 0 23 0;
+#X connect 27 0 28 0;
+#X connect 27 0 29 0;
+#X connect 28 0 27 1;
+#X connect 29 0 19 0;
+#X connect 29 1 32 0;
+#X connect 30 0 27 0;
+#X connect 31 0 20 0;
+#X connect 32 0 34 1;
+#X connect 33 0 25 0;
+#X connect 33 1 30 0;
+#X connect 33 2 21 0;
+#X connect 33 3 32 1;
+#X connect 34 0 35 0;
+#X connect 35 0 18 0;
+#X connect 35 1 36 0;
+#X connect 39 0 33 0;
+#X connect 40 0 39 1;
+#X coords 0 0 216 232 216 232 1 10 20;