From abbca94aa31066e1c449f81fce1d6903c95439f3 Mon Sep 17 00:00:00 2001 From: David Plans Casal Date: Tue, 10 Jan 2006 15:34:40 +0000 Subject: adding feb patches for belfast and norwich svn path=/trunk/externals/frankenstein/; revision=4385 --- patches/feb05/bay.pd | 250 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 250 insertions(+) create mode 100755 patches/feb05/bay.pd (limited to 'patches/feb05/bay.pd') diff --git a/patches/feb05/bay.pd b/patches/feb05/bay.pd new file mode 100755 index 0000000..2927cd7 --- /dev/null +++ b/patches/feb05/bay.pd @@ -0,0 +1,250 @@ +#N canvas 253 22 999 737 10; +#X symbolatom 157 205 18 0 0 2 next_chord - -; +#N canvas 39 349 535 332 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 +change chord \, it will store the transitions; +#X text 56 120 howto ask for the next chord: play the chord \, bang +the "set" message \, this will set the current chord without adding +it to the graph's memory \, now bang the next 1 message. this chord_graph +will respond with the chord you played most of the times after the +current chord. you can send "next x" where x is from 0 to 1 \, 0 = +max novelty \, 1= min novelty; +#X text 56 259 you can save graph state sending the write message; +#X restore 762 65 pd readme; +#X obj 121 329 harmonizer; +#X msg 52 286 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 +-1; +#X obj 157 261 symbol; +#X obj 289 261 int 36; +#X obj 355 262 int 60; +#X obj 426 260 int 67; +#X obj 494 259 int 76; +#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 127 108 symbol; +#X obj 98 43 bng 15 250 50 0 empty empty change_chord 0 -6 0 8 -262144 +-1 -1; +#X msg 127 132 set \$1; +#N canvas 527 22 738 448 midi 1; +#X obj 141 253 outlet; +#X obj 271 31 notein; +#X msg 175 149 add \$1; +#X obj 175 121 symbol; +#X obj 176 94 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 248 163 symbol; +#X obj 249 136 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X msg 248 191 set \$1; +#X symbolatom 311 101 25 0 0 0 - - -; +#X obj 271 66 chord 120; +#X connect 1 0 9 0; +#X connect 1 1 9 1; +#X connect 2 0 0 0; +#X connect 3 0 2 0; +#X connect 4 0 3 0; +#X connect 5 0 7 0; +#X connect 6 0 5 0; +#X connect 7 0 0 0; +#X connect 9 2 3 1; +#X connect 9 2 5 1; +#X connect 9 2 8 0; +#X connect 9 2 4 0; +#X restore 512 135 pd midi; +#N canvas 547 120 674 372 fileIO 0; +#X obj 143 225 outlet; +#X msg 145 105 read test.graph; +#X msg 175 135 init 1; +#X msg 115 77 write /Users/dc/Desktop/Orme.linux/TESTING/bel0205a.graph +; +#X connect 1 0 0 0; +#X connect 2 0 0 0; +#X connect 3 0 0 0; +#X restore 429 134 pd fileIO; +#X obj 100 73 t b b; +#X obj 157 228 t b a; +#X obj 28 404 bang; +#X obj 439 580 mtof; +#X obj 488 579 mtof; +#X obj 573 583 mtof; +#X obj 109 431 print; +#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 0 1; +#X floatatom 32 112 5 0 0 0 - - -; +#X msg 718 588 event i 10 0 17000 10 30; +#X msg 718 611 event i 30 0 17000 2 30; +#X msg 719 564 event i 25 0 17000 0.98 0.8 20000; +#X obj 648 539 loadbang; +#X msg 443 610 event i 9 0 10 \$1 80 0.5; +#X obj 531 582 mtof; +#X obj 617 584 mtof; +#X obj 580 54 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 +; +#X obj 22 486 r novelty; +#X obj 599 121 int 0; +#X obj 646 120 + 1; +#X obj 600 171 tabread tab-novelty; +#X obj 600 194 s novelty; +#X obj 685 119 table tab-novelty; +#X obj 600 147 % 10; +#X obj 462 63 t b b; +#X msg 645 504 \; tab-novelty 0 1 1 0.8 0.7 0.3 0.5 0.9 0.1 0 0.2; +#X obj 203 97 symbol; +#X msg 203 125 tonality \$1; +#X obj 203 73 bng 15 250 50 0 empty empty change 0 -6 0 8 -262144 -1 +-1; +#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 307 94 symbol; +#X obj 307 70 bng 15 250 50 0 empty empty change 0 -6 0 8 -262144 -1 +-1; +#X msg 307 122 modulation \$1; +#X obj 445 189 print sequence; +#X msg 235 15 search 9 1 5 0.9; +#X obj 76 576 outlet; +#X obj 145 576 outlet; +#X obj 220 579 outlet; +#X obj 283 579 outlet; +#X obj 349 581 outlet; +#X obj 606 15 loadbang; +#X msg 613 41 1; +#X obj 580 73 metro 10000; +#N canvas 0 22 458 308 bar 0; +#X obj 133 152 outlet; +#X obj 114 25 r bar; +#X obj 112 54 int 0; +#X obj 172 52 + 1; +#X obj 111 81 % 2; +#X obj 115 122 select 0; +#X obj 36 182 s nets; +#X msg 36 155 realbar 1; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 2 0 4 0; +#X connect 3 0 2 1; +#X connect 4 0 5 0; +#X connect 5 0 0 0; +#X connect 5 0 7 0; +#X connect 7 0 6 0; +#X restore 466 28 pd bar; +#X obj 40 13 r novita; +#X obj 94 157 chords_memory /Users/dc/Desktop/Orme.linux/TESTING/bel0205a.graph +; +#N canvas 0 22 450 300 graph2 0; +#X array notes 6 float 3; +#A 0 1 24 48 52 76 88; +#X coords 0 127 5 1 200 127 1; +#X restore 753 181 graph; +#X msg 525 363 \; notes 1 2 \$1; +#X msg 555 332 \; notes 2 3 \$1; +#X msg 603 393 \; notes 3 4 \$1; +#X floatatom 762 402 0 0 0 3 - - -; +#X floatatom 717 323 0 0 99 1 index - -; +#X msg 842 350 set another_table; +#X text 714 402 value; +#X obj 762 375 tabread notes; +#X msg 804 325 set notes; +#X msg 502 393 \; notes 0 1 \$1; +#X msg 646 361 \; notes 4 5 \$1; +#X connect 2 0 15 0; +#X connect 2 0 27 0; +#X connect 3 0 2 0; +#X connect 4 0 2 0; +#X connect 5 0 3 0; +#X connect 6 0 5 0; +#X connect 7 0 4 0; +#X connect 8 0 13 0; +#X connect 9 0 13 1; +#X connect 10 0 13 2; +#X connect 11 0 13 3; +#X connect 12 0 13 4; +#X connect 13 0 2 0; +#X connect 14 0 8 0; +#X connect 14 1 9 0; +#X connect 14 2 10 0; +#X connect 14 3 11 0; +#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 59 0; +#X connect 15 0 80 0; +#X connect 15 1 9 1; +#X connect 15 1 25 0; +#X connect 15 1 60 0; +#X connect 15 1 71 0; +#X connect 15 2 10 1; +#X connect 15 2 37 0; +#X connect 15 2 61 0; +#X connect 15 2 72 0; +#X connect 15 3 11 1; +#X connect 15 3 26 0; +#X connect 15 3 62 0; +#X connect 15 3 73 0; +#X connect 15 4 12 1; +#X connect 15 4 38 0; +#X connect 15 4 63 0; +#X connect 15 4 81 0; +#X connect 16 0 18 0; +#X connect 17 0 21 0; +#X connect 18 0 69 0; +#X connect 19 0 69 0; +#X connect 20 0 69 0; +#X connect 21 0 28 0; +#X connect 22 0 14 0; +#X connect 22 1 7 0; +#X connect 23 0 5 0; +#X connect 24 0 36 0; +#X connect 25 0 36 0; +#X connect 26 0 36 0; +#X connect 28 0 29 0; +#X connect 29 0 69 0; +#X connect 30 0 28 1; +#X connect 30 0 31 0; +#X connect 35 0 34 0; +#X connect 35 0 32 0; +#X connect 35 0 33 0; +#X connect 35 0 48 0; +#X connect 37 0 36 0; +#X connect 38 0 36 0; +#X connect 39 0 66 0; +#X connect 41 0 42 0; +#X connect 41 0 46 0; +#X connect 42 0 41 1; +#X connect 43 0 44 0; +#X connect 46 0 43 0; +#X connect 47 0 21 0; +#X connect 47 1 41 0; +#X connect 49 0 50 0; +#X connect 50 0 69 0; +#X connect 51 0 49 0; +#X connect 52 0 69 0; +#X connect 54 0 56 0; +#X connect 55 0 54 0; +#X connect 56 0 69 0; +#X connect 58 0 69 0; +#X connect 64 0 65 0; +#X connect 65 0 39 0; +#X connect 67 0 47 0; +#X connect 68 0 30 0; +#X connect 69 0 0 0; +#X connect 69 0 5 1; +#X connect 69 0 22 0; +#X connect 69 0 49 1; +#X connect 69 0 16 0; +#X connect 69 0 54 1; +#X connect 69 1 53 0; +#X connect 69 2 57 0; +#X connect 75 0 78 0; +#X connect 76 0 78 0; +#X connect 78 0 74 0; +#X connect 79 0 78 0; -- cgit v1.2.1