From ac33aae33bcd8e334755dfa6a725ffbb51a84931 Mon Sep 17 00:00:00 2001 From: Davide Morelli Date: Thu, 8 Dec 2005 16:31:11 +0000 Subject: fixing things svn path=/trunk/externals/frankenstein/; revision=4171 --- patches/test-harmonizer2.pd | 274 ++++++++++++++++++++++++++++++++------------ 1 file changed, 201 insertions(+), 73 deletions(-) (limited to 'patches') diff --git a/patches/test-harmonizer2.pd b/patches/test-harmonizer2.pd index ed41e1e..ced7281 100755 --- a/patches/test-harmonizer2.pd +++ b/patches/test-harmonizer2.pd @@ -1,5 +1,5 @@ -#N canvas 74 28 903 675 12; -#X symbolatom 157 205 18 0 0 2 next_chord - -; +#N canvas 14 34 915 687 12; +#X symbolatom 731 341 18 0 0 2 next_chord - -; #N canvas 39 349 531 328 readme 0; #X text 59 31 howto populate the graph: play the chord \, when the output of [chord] is ok bang the "add" message. bang it each time you @@ -13,10 +13,10 @@ max novelty \, 1= min novelty; #X text 56 259 you can save graph state sending the write message; #X restore 607 47 pd readme; #X obj 121 329 harmonizer; -#X msg 52 286 current \$1; +#X msg 44 298 current \$1; #X msg 158 283 target \$1; -#X obj 52 262 symbol; -#X obj 52 242 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +#X obj 44 274 symbol; +#X obj 44 254 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 157 261 symbol; #X obj 289 261 int 36; @@ -26,12 +26,12 @@ max novelty \, 1= min novelty; #X obj 566 262 int 84; #X obj 335 289 pack f f f f f; #X obj 358 233 t b b b b b; -#X obj 246 369 unpack f f f f f; +#X obj 245 347 unpack f f f f f; #X obj 153 97 symbol; #X obj 98 43 bng 15 250 50 0 empty empty change_chord 0 -6 0 8 -262144 -1 -1; #X msg 153 121 set \$1; -#N canvas 0 0 706 416 midi 0; +#N canvas 0 0 718 428 midi 0; #X obj 141 253 outlet; #X obj 271 31 notein; #X obj 271 66 chord 59; @@ -56,36 +56,30 @@ max novelty \, 1= min novelty; #X connect 7 0 6 0; #X connect 8 0 0 0; #X restore 423 135 pd midi; -#N canvas 0 0 454 304 fileIO 0; +#N canvas 0 0 466 316 fileIO 0; #X obj 143 225 outlet; -#X msg 115 77 write test.graph; -#X msg 145 105 read test.graph; #X msg 175 135 init 1; +#X msg 115 77 write strani; +#X msg 145 105 read strani; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 0 0; #X restore 340 134 pd fileIO; #X obj 100 73 t b b; #X obj 157 228 t b a; -#X obj 28 404 bang; -#X obj 203 420 mtof; -#X obj 252 419 mtof; -#X obj 337 423 mtof; -#X obj 180 601 dac~; -#X obj 109 431 print; +#X obj 49 348 bang; +#X obj 190 607 dac~; #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; #X floatatom 32 112 5 0 0 0 - - -; #X obj 178 571 csoundapi~ bay.orc; -#X msg 488 520 event i 10 0 17000 10 30; -#X msg 488 543 event i 30 0 17000 2 30; -#X msg 489 496 event i 25 0 17000 0.98 0.8 20000; -#X obj 482 458 loadbang; -#X msg 196 492 event i 9 0 10 \$1 80 0.5; -#X obj 295 422 mtof; -#X obj 381 424 mtof; +#X msg 463 545 event i 10 0 17000 10 30; +#X msg 463 568 event i 30 0 17000 2 30; +#X msg 464 521 event i 25 0 17000 0.98 0.8 20000; +#X obj 466 497 loadbang; +#X msg 171 522 event i 9 0 10 \$1 80 0.5; #X obj 462 22 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 462 41 metro 7000; @@ -97,7 +91,7 @@ max novelty \, 1= min novelty; #X obj 685 119 table tab-novelty; #X obj 600 147 % 10; #X obj 462 63 t b b; -#X msg 467 377 \; tab-novelty 0 1 1 0.8 0.7 0.3 0.5 0.9 0.1 0 0.2; +#X msg 463 457 \; tab-novelty 0 1 1 0.8 0.7 0.3 0.5 0.9 0.1 0 0.2; #X obj 220 96 symbol; #X msg 220 124 tonality \$1; #X obj 220 72 bng 15 250 50 0 empty empty change 0 -6 0 8 -262144 -1 @@ -105,9 +99,128 @@ max novelty \, 1= min novelty; #X obj 19 160 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X symbolatom 305 204 15 0 0 2 tonality - -; -#X obj 83 169 chords_memory test.graph; +#X text 529 392 this transposes of a + minor 3rd; +#X obj 458 348 loadbang; +#X msg 457 395 3; +#X symbolatom 575 339 18 0 0 2 curr_chord - -; +#X obj 42 218 symbol; +#X obj 42 194 t s b; +#X obj 64 604 outlet~; +#X obj 124 605 outlet~; +#X obj 578 358 outlet; +#X obj 733 360 outlet; +#N canvas 0 0 812 538 prepare_voice 0; +#X obj 48 57 inlet; +#X obj 392 55 inlet; +#X obj 46 422 outlet; +#X obj 52 95 + 0; +#X obj 49 184 mtof; +#X obj 52 129 t f b; +#X obj 50 154 int 60; +#X text 399 138 this adds a 1 chord delay; +#X obj 115 55 inlet; +#X obj 113 420 outlet; +#X obj 119 93 + 0; +#X obj 116 179 mtof; +#X obj 119 127 t f b; +#X obj 117 152 int 60; +#X obj 176 52 inlet; +#X obj 174 417 outlet; +#X obj 180 90 + 0; +#X obj 177 179 mtof; +#X obj 180 124 t f b; +#X obj 178 149 int 60; +#X obj 242 54 inlet; +#X obj 240 419 outlet; +#X obj 246 92 + 0; +#X obj 243 181 mtof; +#X obj 246 126 t f b; +#X obj 244 151 int 60; +#X obj 307 54 inlet; +#X obj 305 419 outlet; +#X obj 311 92 + 0; +#X obj 308 181 mtof; +#X obj 311 126 t f b; +#X obj 309 151 int 60; +#X text 383 38 semitones; +#X obj 47 313 spigot; +#X obj 505 268 loadbang; +#X msg 506 291 1; +#X obj 63 290 r v1; +#X obj 119 313 spigot; +#X obj 180 314 spigot; +#X obj 247 313 spigot; +#X obj 312 313 spigot; +#X obj 135 290 r v2; +#X obj 196 291 r v3; +#X obj 263 291 r v4; +#X obj 328 290 r v5; +#X connect 0 0 3 0; +#X connect 1 0 3 1; +#X connect 1 0 28 1; +#X connect 1 0 22 1; +#X connect 1 0 10 1; +#X connect 1 0 16 1; +#X connect 3 0 5 0; +#X connect 4 0 33 0; +#X connect 5 0 6 1; +#X connect 5 1 6 0; +#X connect 6 0 4 0; +#X connect 8 0 10 0; +#X connect 10 0 12 0; +#X connect 11 0 37 0; +#X connect 12 0 13 1; +#X connect 12 1 13 0; +#X connect 13 0 11 0; +#X connect 14 0 16 0; +#X connect 16 0 18 0; +#X connect 17 0 38 0; +#X connect 18 0 19 1; +#X connect 18 1 19 0; +#X connect 19 0 17 0; +#X connect 20 0 22 0; +#X connect 22 0 24 0; +#X connect 23 0 39 0; +#X connect 24 0 25 1; +#X connect 24 1 25 0; +#X connect 25 0 23 0; +#X connect 26 0 28 0; +#X connect 28 0 30 0; +#X connect 29 0 40 0; +#X connect 30 0 31 1; +#X connect 30 1 31 0; +#X connect 31 0 29 0; +#X connect 33 0 2 0; +#X connect 34 0 35 0; +#X connect 35 0 33 1; +#X connect 35 0 37 1; +#X connect 35 0 38 1; +#X connect 35 0 39 1; +#X connect 35 0 40 1; +#X connect 36 0 33 1; +#X connect 37 0 9 0; +#X connect 38 0 15 0; +#X connect 39 0 21 0; +#X connect 40 0 27 0; +#X connect 41 0 37 1; +#X connect 42 0 38 1; +#X connect 43 0 39 1; +#X connect 44 0 40 1; +#X restore 237 387 pd prepare_voice; +#X obj 45 415 tgl 20 0 v1 empty toggle_v1 0 -6 0 8 -262144 -1 -1 1 +1; +#X obj 44 446 tgl 20 0 v2 empty toggle_v2 0 -6 0 8 -262144 -1 -1 1 +1; +#X obj 43 476 tgl 20 0 v3 empty toggle_v3 0 -6 0 8 -262144 -1 -1 1 +1; +#X obj 43 507 tgl 20 0 v4 empty toggle_v4 0 -6 0 8 -262144 -1 -1 1 +1; +#X obj 40 537 tgl 20 0 v5 empty toggle_v5 0 -6 0 8 -262144 -1 -1 1 +1; +#X obj 7 376 loadbang; +#X msg 8 399 1; +#X obj 83 169 chords_memory strani; #X connect 2 0 15 0; -#X connect 2 0 28 0; #X connect 3 0 2 0; #X connect 4 0 2 0; #X connect 5 0 3 0; @@ -126,60 +239,75 @@ max novelty \, 1= min novelty; #X connect 14 4 12 0; #X connect 15 0 8 1; #X connect 15 0 23 0; -#X connect 15 0 24 0; +#X connect 15 0 61 0; #X connect 15 1 9 1; -#X connect 15 1 25 0; +#X connect 15 1 61 1; #X connect 15 2 10 1; -#X connect 15 2 39 0; +#X connect 15 2 61 2; #X connect 15 3 11 1; -#X connect 15 3 26 0; +#X connect 15 3 61 3; #X connect 15 4 12 1; -#X connect 15 4 40 0; +#X connect 15 4 61 4; #X connect 16 0 18 0; #X connect 17 0 21 0; -#X connect 18 0 57 0; -#X connect 19 0 57 0; -#X connect 20 0 57 0; -#X connect 21 0 29 0; +#X connect 18 0 69 0; +#X connect 19 0 69 0; +#X connect 20 0 69 0; +#X connect 21 0 25 0; #X connect 22 0 14 0; #X connect 22 1 7 0; #X connect 23 0 5 0; -#X connect 24 0 38 0; -#X connect 25 0 38 0; -#X connect 26 0 38 0; -#X connect 29 0 30 0; -#X connect 30 0 57 0; -#X connect 31 0 29 1; -#X connect 31 0 32 0; -#X connect 33 0 27 0; -#X connect 33 1 27 1; -#X connect 34 0 33 0; -#X connect 35 0 33 0; -#X connect 36 0 33 0; -#X connect 37 0 36 0; -#X connect 37 0 34 0; -#X connect 37 0 35 0; -#X connect 37 0 51 0; -#X connect 38 0 33 0; -#X connect 39 0 38 0; -#X connect 40 0 38 0; -#X connect 41 0 42 0; -#X connect 42 0 50 0; -#X connect 43 0 31 0; -#X connect 44 0 45 0; -#X connect 44 0 49 0; -#X connect 45 0 44 1; +#X connect 25 0 26 0; +#X connect 26 0 69 0; +#X connect 27 0 25 1; +#X connect 27 0 28 0; +#X connect 29 0 24 0; +#X connect 29 0 57 0; +#X connect 29 1 24 1; +#X connect 29 1 58 0; +#X connect 30 0 29 0; +#X connect 31 0 29 0; +#X connect 32 0 29 0; +#X connect 33 0 32 0; +#X connect 33 0 30 0; +#X connect 33 0 31 0; +#X connect 33 0 45 0; +#X connect 34 0 29 0; +#X connect 35 0 36 0; +#X connect 36 0 44 0; +#X connect 37 0 27 0; +#X connect 38 0 39 0; +#X connect 38 0 43 0; +#X connect 39 0 38 1; +#X connect 40 0 41 0; +#X connect 43 0 40 0; +#X connect 44 0 21 0; +#X connect 44 1 38 0; #X connect 46 0 47 0; -#X connect 49 0 46 0; -#X connect 50 0 21 0; -#X connect 50 1 44 0; -#X connect 52 0 53 0; -#X connect 53 0 57 0; -#X connect 54 0 52 0; -#X connect 55 0 57 0; -#X connect 57 0 0 0; -#X connect 57 0 5 1; -#X connect 57 0 22 0; -#X connect 57 0 52 1; -#X connect 57 0 16 0; -#X connect 57 1 56 0; +#X connect 47 0 69 0; +#X connect 48 0 46 0; +#X connect 49 0 69 0; +#X connect 53 0 61 5; +#X connect 55 0 54 0; +#X connect 55 0 59 0; +#X connect 56 0 55 1; +#X connect 56 1 55 0; +#X connect 61 0 34 0; +#X connect 61 1 34 0; +#X connect 61 2 34 0; +#X connect 61 3 34 0; +#X connect 61 4 34 0; +#X connect 67 0 68 0; +#X connect 68 0 62 0; +#X connect 68 0 63 0; +#X connect 68 0 64 0; +#X connect 68 0 65 0; +#X connect 68 0 66 0; +#X connect 69 0 0 0; +#X connect 69 0 5 1; +#X connect 69 0 22 0; +#X connect 69 0 46 1; +#X connect 69 0 16 0; +#X connect 69 0 56 0; +#X connect 69 0 60 0; +#X connect 69 1 50 0; -- cgit v1.2.1