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
---
 instruments/polyengines.pd | 130 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 130 insertions(+)
 create mode 100644 instruments/polyengines.pd

(limited to 'instruments/polyengines.pd')

diff --git a/instruments/polyengines.pd b/instruments/polyengines.pd
new file mode 100644
index 0000000..46dd563
--- /dev/null
+++ b/instruments/polyengines.pd
@@ -0,0 +1,130 @@
+#N canvas 0 0 1242 860 10;
+#X obj 119 414 adsr-engine;
+#X obj 157 68 inlet;
+#X obj 342 67 inlet;
+#X text 146 43 note/velocity pairs;
+#X text 342 41 control data;
+#X obj 163 103 unpack 0 0;
+#X obj 154 186 route 1 2 3 4;
+#X obj 161 167 pack 0 0 0;
+#X obj 108 235 s \$0-v1;
+#X obj 285 241 s \$0-v4;
+#X obj 227 238 s \$0-v3;
+#X obj 166 237 s \$0-v2;
+#X obj 342 98 s \$0-ctldat;
+#X obj 7 415 analogue-engine;
+#X obj 17 334 unpack 0 0;
+#X msg 7 358 freq \$1;
+#X msg 125 357 level \$1;
+#X obj 135 380 r \$0-ctldat;
+#X obj 38 454 *~;
+#X obj 38 479 throw~ \$0-outanadsr;
+#X obj 357 556 catch~ \$0-outanadsr;
+#X obj 357 585 outlet~;
+#X obj 21 315 r \$0-v1;
+#X obj 335 420 adsr-engine;
+#X obj 223 421 analogue-engine;
+#X obj 233 340 unpack 0 0;
+#X msg 223 364 freq \$1;
+#X msg 341 363 level \$1;
+#X obj 351 386 r \$0-ctldat;
+#X obj 254 460 *~;
+#X obj 254 485 throw~ \$0-outanadsr;
+#X obj 537 420 adsr-engine;
+#X obj 425 421 analogue-engine;
+#X obj 435 340 unpack 0 0;
+#X msg 425 364 freq \$1;
+#X msg 543 363 level \$1;
+#X obj 553 386 r \$0-ctldat;
+#X obj 456 460 *~;
+#X obj 456 485 throw~ \$0-outanadsr;
+#X obj 748 426 adsr-engine;
+#X obj 636 427 analogue-engine;
+#X obj 646 346 unpack 0 0;
+#X msg 636 370 freq \$1;
+#X msg 754 369 level \$1;
+#X obj 764 392 r \$0-ctldat;
+#X obj 667 466 *~;
+#X obj 667 491 throw~ \$0-outanadsr;
+#X obj 237 321 r \$0-v2;
+#X obj 439 321 r \$0-v3;
+#X obj 650 327 r \$0-v4;
+#X text 512 41 polyphony is done here!;
+#X obj 173 146 poly 4 1;
+#X obj 526 444 *~;
+#X obj 528 463 *~;
+#X obj 751 451 *~;
+#X obj 753 470 *~;
+#X obj 333 441 *~;
+#X obj 335 460 *~;
+#X obj 92 437 *~;
+#X obj 94 456 *~;
+#X connect 0 0 58 0;
+#X connect 0 0 58 1;
+#X connect 1 0 5 0;
+#X connect 2 0 12 0;
+#X connect 5 0 51 0;
+#X connect 5 1 51 1;
+#X connect 6 0 8 0;
+#X connect 6 1 11 0;
+#X connect 6 2 10 0;
+#X connect 6 3 9 0;
+#X connect 7 0 6 0;
+#X connect 13 0 18 0;
+#X connect 14 0 15 0;
+#X connect 14 1 16 0;
+#X connect 15 0 13 0;
+#X connect 16 0 0 0;
+#X connect 17 0 13 0;
+#X connect 17 0 0 0;
+#X connect 18 0 19 0;
+#X connect 20 0 21 0;
+#X connect 22 0 14 0;
+#X connect 23 0 56 0;
+#X connect 23 0 56 1;
+#X connect 24 0 29 0;
+#X connect 25 0 26 0;
+#X connect 25 1 27 0;
+#X connect 26 0 24 0;
+#X connect 27 0 23 0;
+#X connect 28 0 24 0;
+#X connect 28 0 23 0;
+#X connect 29 0 30 0;
+#X connect 31 0 52 0;
+#X connect 31 0 52 1;
+#X connect 32 0 37 0;
+#X connect 33 0 34 0;
+#X connect 33 1 35 0;
+#X connect 34 0 32 0;
+#X connect 35 0 31 0;
+#X connect 36 0 32 0;
+#X connect 36 0 31 0;
+#X connect 37 0 38 0;
+#X connect 39 0 54 0;
+#X connect 39 0 54 1;
+#X connect 40 0 45 0;
+#X connect 41 0 42 0;
+#X connect 41 1 43 0;
+#X connect 42 0 40 0;
+#X connect 43 0 39 0;
+#X connect 44 0 40 0;
+#X connect 44 0 39 0;
+#X connect 45 0 46 0;
+#X connect 47 0 25 0;
+#X connect 48 0 33 0;
+#X connect 49 0 41 0;
+#X connect 51 0 7 0;
+#X connect 51 1 7 1;
+#X connect 51 2 7 2;
+#X connect 52 0 53 0;
+#X connect 52 0 53 1;
+#X connect 53 0 37 1;
+#X connect 54 0 55 0;
+#X connect 54 0 55 1;
+#X connect 55 0 45 1;
+#X connect 56 0 57 0;
+#X connect 56 0 57 1;
+#X connect 57 0 29 1;
+#X connect 58 0 59 0;
+#X connect 58 0 59 1;
+#X connect 59 0 18 1;
-- 
cgit v1.2.1