From 10a3fd828512907e52f3eabdd7c69b3eaa98757f Mon Sep 17 00:00:00 2001
From: Davide Morelli <morellid@users.sourceforge.net>
Date: Mon, 16 Jan 2006 00:56:01 +0000
Subject: fixed bugs in evaluating indices

svn path=/trunk/externals/frankenstein/; revision=4410
---
 test-harmonizer.pd | 55 +++++++++++++++++++++++++++++++++++++++---------------
 1 file changed, 40 insertions(+), 15 deletions(-)

(limited to 'test-harmonizer.pd')

diff --git a/test-harmonizer.pd b/test-harmonizer.pd
index f8e4ebd..1818262 100755
--- a/test-harmonizer.pd
+++ b/test-harmonizer.pd
@@ -1,4 +1,4 @@
-#N canvas 328 37 702 643 12;
+#N canvas 328 37 714 655 12;
 #X symbolatom 179 191 20 0 0 0 - - -;
 #N canvas 39 349 531 328 readme 0;
 #X text 59 31 howto populate the graph: play the chord \, when the
@@ -95,14 +95,29 @@ max novelty \, 1= min novelty;
 #X obj 99 585 dac~;
 #X obj 99 558 *~ 0.2;
 #X obj 109 418 print;
-#X obj 83 169 chords_graph test.graph;
 #X obj 74 111 f 1;
 #X msg 59 135 next \$1;
 #X obj 63 70 vsl 15 30 0 1 0 0 empty empty empty 0 -8 0 8 -262144 -1
--1 2900 1;
+-1 0 1;
 #X floatatom 32 112 5 0 0 0 - - -;
+#X obj 83 169 chords_memory test.graph;
+#X obj 471 355 voicing_analyzer;
+#X floatatom 470 390 5 0 0 0 - - -;
+#X floatatom 506 411 5 0 0 0 - - -;
+#X floatatom 539 393 5 0 0 0 - - -;
+#X floatatom 587 412 5 0 0 0 - - -;
+#X msg 461 152 i_like_parallelism \$1;
+#X obj 463 132 hsl 128 15 -1 1 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 6500 1;
+#X obj 436 85 hsl 128 15 0 8 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 11700 1;
+#X msg 434 106 wideness \$1;
+#X obj 270 76 hsl 128 15 -1 1 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 0 1;
+#X msg 268 96 small_intervals \$1;
 #X connect 2 0 15 0;
 #X connect 2 0 49 0;
+#X connect 2 0 55 0;
 #X connect 3 0 2 0;
 #X connect 4 0 2 0;
 #X connect 5 0 3 0;
@@ -132,10 +147,10 @@ max novelty \, 1= min novelty;
 #X connect 15 4 38 0;
 #X connect 16 0 18 0;
 #X connect 17 0 21 0;
-#X connect 18 0 50 0;
-#X connect 19 0 50 0;
-#X connect 20 0 50 0;
-#X connect 21 0 51 0;
+#X connect 18 0 54 0;
+#X connect 19 0 54 0;
+#X connect 20 0 54 0;
+#X connect 21 0 50 0;
 #X connect 21 1 16 0;
 #X connect 22 0 14 0;
 #X connect 22 1 7 0;
@@ -162,11 +177,21 @@ max novelty \, 1= min novelty;
 #X connect 46 0 48 0;
 #X connect 48 0 47 0;
 #X connect 48 0 47 1;
-#X connect 50 0 0 0;
-#X connect 50 0 5 1;
-#X connect 50 0 16 1;
-#X connect 50 0 22 0;
-#X connect 51 0 52 0;
-#X connect 52 0 50 0;
-#X connect 53 0 51 1;
-#X connect 53 0 54 0;
+#X connect 50 0 51 0;
+#X connect 51 0 54 0;
+#X connect 52 0 50 1;
+#X connect 52 0 53 0;
+#X connect 54 0 0 0;
+#X connect 54 0 5 1;
+#X connect 54 0 16 1;
+#X connect 54 0 22 0;
+#X connect 55 0 56 0;
+#X connect 55 1 57 0;
+#X connect 55 2 58 0;
+#X connect 55 3 59 0;
+#X connect 60 0 2 0;
+#X connect 61 0 60 0;
+#X connect 62 0 63 0;
+#X connect 63 0 2 0;
+#X connect 64 0 65 0;
+#X connect 65 0 2 0;
-- 
cgit v1.2.1