From 3980b38b7d9efb6f1d322ef0785feaed1f06a806 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Sat, 17 Nov 2007 13:58:45 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r9017, which included commits to RCS files with non-trunk default branches. svn path=/trunk/abstractions/s-abstractions/; revision=9018 --- s-chordarp.pd | 120 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 120 insertions(+) create mode 100644 s-chordarp.pd (limited to 's-chordarp.pd') diff --git a/s-chordarp.pd b/s-chordarp.pd new file mode 100644 index 0000000..c5b6c72 --- /dev/null +++ b/s-chordarp.pd @@ -0,0 +1,120 @@ +#N canvas 508 82 595 588 10; +#X obj 460 3 table \$0/notes 127; +#X obj 449 94 tabwrite \$0/notes; +#X obj 449 47 unpack f f; +#X obj 405 3 inlet; +#X obj 6 39 nbx 3 14 0 127 0 1 \$0/speed \$1/speed speed 0 -6 0 8 -260818 +-1 -1 80 256; +#X obj 319 547 outlet; +#X obj 289 238 f; +#X obj 320 238 + 1; +#X obj 449 420 mtof; +#X obj 449 442 s-ftoms; +#X obj 289 305 tabread \$0/notes; +#X msg 311 211 0; +#X obj 289 285 t f f; +#X obj 449 398 + 1; +#X obj 449 377 r \$0/speed; +#X obj 289 418 sel 0; +#X obj 319 526 pack f f; +#X obj 203 347 spigot; +#X obj 240 306 < 127; +#X msg 340 211 0; +#X obj 270 376 spigot; +#X obj 449 70 swap; +#X obj 289 71 unpack f f; +#X obj 289 189 t f b b; +#X obj 240 327 t f f; +#X obj 319 440 t f b b; +#X msg 376 440 1; +#X obj 270 348 sel 0; +#X msg 270 397 0; +#X obj 289 261 t f f; +#X obj 319 462 swap; +#X obj 391 485 t b b b; +#X msg 435 505 0; +#X obj 9 448 sssad/auto \$0/speed \$1/speed; +#X obj 391 464 delay 100; +#X obj 427 126 sel 0; +#X obj 289 95 swap; +#X obj 289 117 sel 0; +#X obj 289 167 f; +#X msg 319 137 bang; +#X obj 405 23 t l l l; +#X msg 471 147 1; +#X msg 427 146 -1; +#X obj 427 166 t b f; +#X obj 471 167 t b f; +#X obj 362 105 unpack f f; +#X obj 457 217 + 1; +#X obj 427 217 0; +#X obj 457 240 sel 0; +#X msg 457 261 0; +#X connect 2 0 21 0; +#X connect 2 1 21 1; +#X connect 3 0 40 0; +#X connect 6 0 7 0; +#X connect 6 0 29 0; +#X connect 7 0 6 1; +#X connect 8 0 9 0; +#X connect 9 0 34 1; +#X connect 10 0 15 0; +#X connect 11 0 6 1; +#X connect 12 0 10 0; +#X connect 12 1 30 1; +#X connect 13 0 8 0; +#X connect 14 0 13 0; +#X connect 15 0 17 0; +#X connect 15 1 25 0; +#X connect 16 0 5 0; +#X connect 17 0 6 0; +#X connect 18 0 24 0; +#X connect 19 0 20 1; +#X connect 20 0 28 0; +#X connect 21 0 1 0; +#X connect 21 1 1 1; +#X connect 22 0 36 0; +#X connect 22 1 36 1; +#X connect 23 0 6 0; +#X connect 23 1 11 0; +#X connect 23 2 19 0; +#X connect 24 0 17 1; +#X connect 24 1 27 0; +#X connect 25 0 30 0; +#X connect 25 1 34 0; +#X connect 25 2 26 0; +#X connect 26 0 20 1; +#X connect 27 0 20 0; +#X connect 28 0 23 0; +#X connect 29 0 12 0; +#X connect 29 1 18 0; +#X connect 30 0 16 0; +#X connect 30 1 16 1; +#X connect 31 0 6 0; +#X connect 31 1 16 0; +#X connect 31 2 32 0; +#X connect 32 0 16 1; +#X connect 34 0 31 0; +#X connect 35 0 42 0; +#X connect 35 1 41 0; +#X connect 36 0 37 0; +#X connect 36 1 38 1; +#X connect 37 1 39 0; +#X connect 38 0 23 0; +#X connect 39 0 38 0; +#X connect 40 0 22 0; +#X connect 40 1 45 0; +#X connect 40 2 2 0; +#X connect 41 0 44 0; +#X connect 42 0 43 0; +#X connect 43 0 47 0; +#X connect 43 1 46 1; +#X connect 44 0 47 0; +#X connect 44 1 46 1; +#X connect 45 1 35 0; +#X connect 46 0 47 1; +#X connect 46 0 48 0; +#X connect 47 0 46 0; +#X connect 48 0 49 0; +#X connect 49 0 20 1; +#X coords 0 -1 1 1 85 60 1 0 0; -- cgit v1.2.1