From f18d063d9312c95e25294e0777bc135ee9a3fd8a Mon Sep 17 00:00:00 2001
From: Thomas O Fredericks <mrtof@users.sourceforge.net>
Date: Sun, 25 Oct 2009 00:39:13 +0000
Subject: Adding mtl

svn path=/trunk/abstractions/mtl/; revision=12667
---
 degreeToChord.pd | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 degreeToChord.pd

(limited to 'degreeToChord.pd')

diff --git a/degreeToChord.pd b/degreeToChord.pd
new file mode 100644
index 0000000..9591073
--- /dev/null
+++ b/degreeToChord.pd
@@ -0,0 +1,46 @@
+#N canvas 369 115 1071 783 10;
+#X obj 191 419 list;
+#X msg 733 559 1 0 1 0 1 1 0 1 0 1 0 1;
+#X obj 736 535 loadbang;
+#X obj 716 510 inlet;
+#X obj 146 87 inlet;
+#X text 759 590 The major;
+#X obj 849 650 - 1;
+#X text 713 484 Scale;
+#X obj 224 174 t b f;
+#X text 94 54 Offset (degree) of the chord to get;
+#X obj 412 179 inlet;
+#X text 418 153 Number of notes in the chord;
+#X obj 415 224 f;
+#X obj 183 694 outlet;
+#X obj 226 130 - 1;
+#X text 199 89 In music \, index 1 is the first degree. In computer
+sciences \, it is index 0;
+#X obj 218 464 expr 0-$f1;
+#X text 302 464 The offset are the inverse (negative) than those in
+list-rot;
+#X obj 459 192 tof/argument 1 3;
+#X obj 459 172 loadbang;
+#X obj 716 620 ./listBoolToPos;
+#X obj 716 653 ./listOp;
+#X obj 156 524 cyclone/zl rot;
+#X obj 183 639 ./listJump 2 3;
+#X connect 0 0 22 0;
+#X connect 1 0 20 0;
+#X connect 2 0 1 0;
+#X connect 3 0 20 0;
+#X connect 4 0 14 0;
+#X connect 6 0 21 1;
+#X connect 8 0 0 0;
+#X connect 8 1 16 0;
+#X connect 10 0 12 0;
+#X connect 12 0 23 2;
+#X connect 14 0 8 0;
+#X connect 16 0 22 1;
+#X connect 18 0 12 0;
+#X connect 19 0 18 0;
+#X connect 20 0 21 0;
+#X connect 21 0 0 1;
+#X connect 21 1 6 0;
+#X connect 22 0 23 0;
+#X connect 23 0 13 0;
-- 
cgit v1.2.1