fixed bugs in evaluating indices

svn path=/trunk/externals/frankenstein/; revision=4410

1 files changed, 40 insertions, 15 deletions

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;