max v2;
#N vpatcher 20 74 801 725;
#P window setfont Times 18.;
#P window linecount 1;
#P comment 245 121 103 1310738 reset counter;
#P comment 95 22 207 1310738 start/stop both metronomes;
#P window linecount 2;
#P comment 234 51 170 1310738 "inter-onset interval" between notes (in ms);
#P window linecount 1;
#P comment 464 550 194 1310738 change synthesizer sound;
#P comment 276 549 111 1310738 MIDI channel;
#P window setfont Times 10.;
#P window linecount 3;
#P comment 162 335 196 1310730 the contents of both table objects are saved as part of the patcher (the Save With Patcher option is checked in the Get Info... dialog);
#P window linecount 2;
#P comment 176 169 196 1310730 table of velocities \, to make a repeating 16-note pattern of accents \, giving a metric effect;
#P comment 262 512 183 1310730 store the overlap factor \, then trigger the multiplication to set the new note duration;
#P window linecount 3;
#P comment 296 448 183 1310730 "overlap factor" can make the note durations greater than or less than the "inter-onset interval" between note occurrences;
#P window linecount 2;
#P comment 99 482 63 1310730 table of stored melody notes;
#P window linecount 3;
#P comment 42 355 98 1310730 step repeatedly through a 3-to-8-note pattern of melody notes;
#P window linecount 1;
#P comment 86 411 148 1310730 the offset location within the table;
#P window linecount 2;
#P comment 445 419 171 1310730 (some randiom location that's lesss than table length minus pattern length);
#P comment 445 394 154 1310730 choose a random starting location in the table of possible melody notes;
#P comment 143 287 233 1310730 randomly choose a pattern length from 3 to 8 notes long (set counter maximum from 2 to 7);
#P window setfont "Fixedwidth Serif" 18.;
#P window linecount 1;
#P newex 229 481 64 1441810 t b f;
#P number 408 549 56 18 1 128 3 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 408 582 119 1441810 pgmout a 1;
#P number 241 548 35 18 1 16 3 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 35 580 130 1441810 noteout a 1;
#N vtable 16 30 89 275 418 979920 128;
#T set 0 127 48 80 66 97 87 72 127 97 80 105 55 97 71 117 49;
#P newobj 112 170 64 1441810 table;
#P button 230 124 15 0;
#P flonum 229 455 67 18 0 0 0 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 209 515 53 1441810 * 1.;
#P newex 35 544 185 1441810 makenote 127 125;
#P number 35 514 35 18 0 0 0 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 35 430 35 18 0 0 0 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 79 430 35 18 0 0 0 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 111 288 29 18 0 0 0 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 435 318 31 1441810 32;
#P newex 80 116 42 1441810 b 2;
#N counter 0 15;
#X flags 0 0;
#P newobj 112 143 247 1441810 counter 0 15;
#P newex 35 455 54 1441810 +;
#P newex 419 107 42 1441810 b 3;
#P number 435 372 35 18 0 0 0 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 435 344 52 1441810 -;
#P newex 370 397 75 1441810 random;
#N counter;
#X flags 0 0;
#P newobj 35 319 86 1441810 counter;
#P newex 111 261 42 1441810 + 2;
#P newex 111 229 97 1441810 random 6;
#P toggle 80 24 15 0;
#P toggle 419 61 15 0;
#P toggle 80 59 15 0;
#P number 528 55 73 18 0 0 0 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 178 58 56 18 0 0 0 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 80 88 108 1441810 metro 125;
#P newex 419 80 119 1441810 metro 8000;
#N vtable 32 30 89 393 425 979920 128;
#T set 0 48 49 58 56 51 63 60 61 70 68 65 75 73 77 72 75 70 73 68 72 65 68 65 63 61 60 63 60 58 56 53 51;
#P newobj 35 483 64 1441810 table;
#P window setfont Times 18.;
#P window linecount 2;
#P comment 538 77 213 1310738 make a change of of pattern every x milliseconds;
#P fasten 18 0 11 0 85 145 40 145;
#P connect 11 0 22 0;
#P connect 22 0 16 0;
#P connect 16 0 1 0;
#P connect 1 0 23 0;
#P connect 23 0 24 0;
#P connect 24 0 29 0;
#P fasten 12 0 21 0 375 425 84 425;
#P connect 21 0 16 1;
#P connect 8 0 6 0;
#P connect 6 0 3 0;
#P connect 3 0 18 0;
#P fasten 24 1 29 1 215 571 100 571;
#P fasten 15 2 9 0 456 225 116 225;
#P connect 9 0 10 0;
#P connect 10 0 20 0;
#P connect 20 0 11 4;
#P connect 18 1 17 0;
#P connect 17 0 28 0;
#P fasten 28 0 24 1 117 198 127 198;
#P fasten 30 0 29 2 246 576 160 576;
#P connect 4 0 3 1;
#P fasten 4 0 25 0 183 83 214 83;
#P fasten 33 0 25 0 234 510 214 510;
#P connect 25 0 24 2;
#P connect 26 0 33 0;
#P connect 27 0 17 2;
#P fasten 33 1 25 1 288 510 257 510;
#P fasten 15 0 12 0 424 135 375 135;
#P connect 32 0 31 0;
#P fasten 8 0 7 0 85 46 424 46;
#P connect 7 0 2 0;
#P connect 2 0 15 0;
#P connect 15 1 19 0;
#P connect 19 0 13 0;
#P connect 13 0 14 0;
#P connect 14 0 12 1;
#P fasten 20 0 13 1 116 314 482 314;
#P fasten 30 0 31 1 246 576 522 576;
#P connect 5 0 2 1;
#P pop;