From 3faf17f7b713905f582def227df90dac15f3468d Mon Sep 17 00:00:00 2001 From: "N.N." Date: Tue, 10 Jul 2007 07:47:46 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r7969, which included commits to RCS files with non-trunk default branches. svn path=/trunk/abstractions/s-abstractions/; revision=7970 --- s-controlsurface.pd | 111 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 111 insertions(+) create mode 100644 s-controlsurface.pd (limited to 's-controlsurface.pd') 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; -- cgit v1.2.1