#N canvas 2 53 1037 708 10; #N canvas 2 49 1916 713 output~ 0; #X obj 155 385 t b; #X obj 155 332 f; #X obj 155 410 f; #X msg 269 409 0; #X obj 155 362 moses 1; #X obj 269 381 t b f; #X obj 235 342 moses 1; #X obj -169 -8 dbtorms; #X obj -113 65 inlet~; #X msg 101 205 \; pd dsp 1; #X obj -169 65 line~; #X obj -134 137 *~; #X obj -134 167 dac~; #X obj -169 22 pack 0 50; #X text -77 41 audio in; #X text -60 359 test if less than 1 -->; #X text -94 386 if true convert to bang -->; #X text -98 -9 <-- convert from dB to linear units; #X floatatom 125 114 3 0 100 0 dB - -; #X obj 152 135 bng 15 250 50 0 empty empty mute -38 7 0 12 -262144 -1 -1; #X text -80 21 <-- make a ramp to avoid clicks or zipper noise; #X obj -50 65 inlet~; #X obj -44 136 *~; #X text 175 273 MUTE logic:; #X obj 125 69 r \$0-master-lvl; #X obj 155 436 s \$0-master-lvl; #X obj 125 174 s \$0-master-out; #X obj -169 -34 r \$0-master-out; #X obj 235 313 r \$0-master-out; #X text -138 -95 Level control abstraction \, used in many of the Pd example patches. The "level" and "mute" controls show up on the parent \, calling patch.; #X text -132 412 previous nonzero master-lvl -->; #X text -60 316 recall previous; #X text -60 334 value of master-lvl -->; #X text -159 214 automatically start DSP -->; #X obj -113 87 hip~ 3; #X obj -51 87 hip~ 3; #X connect 0 0 2 0; #X connect 1 0 4 0; #X connect 2 0 25 0; #X connect 3 0 25 0; #X connect 4 0 0 0; #X connect 4 1 5 0; #X connect 5 0 3 0; #X connect 6 1 2 1; #X connect 7 0 13 0; #X connect 8 0 34 0; #X connect 10 0 22 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 13 0 10 0; #X connect 18 0 9 0; #X connect 18 0 26 0; #X connect 19 0 1 0; #X connect 21 0 35 0; #X connect 22 0 12 1; #X connect 24 0 18 0; #X connect 27 0 7 0; #X connect 28 0 1 1; #X connect 28 0 6 0; #X connect 34 0 11 1; #X connect 35 0 22 1; #X coords 0 -1 1 1 85 60 1 100 100; #X restore 258 434 pd output~; #N canvas 407 53 956 708 notes 0; #X text 44 109 Some random Ideas to turn this into a nice impro patch: Use this to play any notes not played yet. [list-find] Find position(s) of a value in a list. sound idea: jazz-guitar: karplus->resonator->distortion->feedback fof~ is a nice singer :); #X text 49 218 comment; #X restore 183 499 pd notes; #X msg 270 -139 major; #X msg 276 -120 midle-east-minor; #X msg 282 -101 lydian-dominant; #X msg 288 -81 harmonic-minor; #X msg 293 -62 chromatic-blues; #X msg 298 -43 whole-tones; #X msg 305 -24 diminished; #X msg 311 -5 pentatonic; #X msg 317 14 pentatonic-blues; #X msg 416 -97 Gaku-Joshi; #X msg 424 -79 In-Sen; #X msg 433 -60 Hira-Joshi; #X msg 442 -42 Yo; #X msg 450 -23 Ryo; #X msg 458 -5 Iwato; #X msg 465 14 Tamuke; #X floatatom 276 347 5 0 0 0 - - -; #X floatatom 196 323 5 0 0 0 - - -; #X obj -54 191 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 415 111 list2symbol; #X symbolatom 414 131 0 0 0 0 current_scale: - -; #N canvas 641 53 636 708 scales 0; #X text 156 234 major; #X msg 70 256 0 1 4 5 7 8 11; #X msg 82 279 0 2 4 6 7 9 10; #X msg 93 301 0 2 3 5 7 8 11; #X msg 116 346 0 2 4 6 8 10; #X msg 126 368 0 2 3 5 6 8 9 11; #X text 168 256 middle-east-like minor; #X text 179 280 lydian-dominant (jazzy); #X text 191 303 harmonic minor; #X msg 104 324 0 2 3 4 5 6 7 9 10 11; #X text 242 325 chromatic blues; #X text 202 348 whole-tones scale; #X text 234 370 diminished scale; #X msg 134 390 0 2 4 7 9; #X text 202 391 pentatonic; #X text 234 412 pentatonic blues; #X msg 142 412 0 2 3 4 7 8 9; #X obj 61 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 81 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 101 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 121 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 140 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 160 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 180 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 200 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 222 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 55 119 inlet; #X obj 36 696 outlet; #X msg 153 434 0 2 4 7 7 9 12; #X text 251 434 Gaku_joshi; #X text 256 456 in_sen; #X msg 160 456 0 0 1 5 5 7 10; #X msg 168 477 0 2 3 7 7 9 10; #X text 264 476 hira-joshi; #X msg 177 498 0 2 4 7 7 9 11; #X text 274 500 yo; #X msg 184 519 0 2 4 6 6 9 11; #X text 284 519 ryo; #X msg 191 541 0 0 1 5 5 6 10; #X msg 202 563 0 2 3 7 7 9 12; #X text 291 540 Iwato; #X text 297 565 Tamuke; #X obj 246 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 266 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 286 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 306 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 325 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 345 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 365 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 385 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 407 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 55 152 route major midle-east-minor lydian-dominant harmonic-minor chromatic-blues whole-tones diminished pentatonic pentatonic-blues Gaku-Joshi In-Sen Hira-Joshi Yo Ryo Iwato Tamuke; #X text 492 162 comment; #X text 53 87 outputs a list of the notes in the scale \, largely stolen from pd2live; #X msg 61 233 0 2 4 5 7 9 11; #X connect 1 0 27 0; #X connect 2 0 27 0; #X connect 3 0 27 0; #X connect 4 0 27 0; #X connect 5 0 27 0; #X connect 9 0 27 0; #X connect 13 0 27 0; #X connect 16 0 27 0; #X connect 17 0 54 0; #X connect 18 0 1 0; #X connect 19 0 2 0; #X connect 20 0 3 0; #X connect 21 0 9 0; #X connect 22 0 4 0; #X connect 23 0 5 0; #X connect 24 0 13 0; #X connect 25 0 16 0; #X connect 26 0 51 0; #X connect 28 0 27 0; #X connect 31 0 27 0; #X connect 32 0 27 0; #X connect 34 0 27 0; #X connect 36 0 27 0; #X connect 38 0 27 0; #X connect 39 0 27 0; #X connect 42 0 28 0; #X connect 43 0 31 0; #X connect 44 0 32 0; #X connect 45 0 34 0; #X connect 46 0 36 0; #X connect 47 0 38 0; #X connect 48 0 39 0; #X connect 51 0 17 0; #X connect 51 1 18 0; #X connect 51 2 19 0; #X connect 51 3 20 0; #X connect 51 4 21 0; #X connect 51 5 22 0; #X connect 51 6 23 0; #X connect 51 7 24 0; #X connect 51 8 25 0; #X connect 51 9 42 0; #X connect 51 10 43 0; #X connect 51 11 44 0; #X connect 51 12 45 0; #X connect 51 13 46 0; #X connect 51 14 47 0; #X connect 51 15 48 0; #X connect 54 0 27 0; #X restore 327 86 pd scales; #X obj 53 159 length; #N canvas 499 105 636 708 SelectNoteFromScale 0; #X obj 39 328 list-idx 0; #X obj 286 481 outlet; #X obj 219 -10 inlet scale; #X obj 39 306 list; #X obj 349 61 length; #X obj 39 37 inlet note; #X obj 215 185 %; #X floatatom 214 249 5 0 0 0 - - -; #X obj 39 61 t b f; #X text 246 185 only numbers in the scale; #X text 120 328 select from scale; #X obj 513 292 /; #X obj 513 314 int; #X obj 513 371 * 12; #X obj 286 460 +; #X text 544 292 what octave are we in; #X text 545 315 round to whole numbers; #X text 545 372 octave to note number; #X text 322 461 add octave; #X obj 169 139 moses 0; #X obj 169 161 +; #X obj 169 183 %; #X obj 169 205 +; #X obj 169 227 %; #X floatatom 169 249 5 0 0 0 - - -; #X text 130 121 negative or positive; #X text 46 157 if i dont do this; #X text 42 210 if i dont do this; #X text 396 62 how many notes are in the scale; #X text -134 223 it misbehaves as soon as note < 0 - length; #X text -71 169 it misbehaves as soon as note < 0; #X floatatom 518 338 5 0 0 0 - - -; #X obj 513 188 -; #X obj 568 128 < 0; #X obj 531 158 *; #X obj 513 216 +; #X floatatom 586 164 5 0 0 0 - - -; #X floatatom 550 197 5 0 0 0 - - -; #X obj 513 393 t b f; #X text 540 175 can't really explain this; #X text 79 307 output the scale at every note change and scale change ; #X obj 219 12 t b; #X connect 0 0 14 0; #X connect 2 0 4 0; #X connect 2 0 3 1; #X connect 2 0 41 0; #X connect 3 0 0 0; #X connect 4 0 6 1; #X connect 4 0 11 1; #X connect 4 0 20 1; #X connect 4 0 21 1; #X connect 4 0 22 1; #X connect 4 0 23 1; #X connect 4 0 34 0; #X connect 5 0 8 0; #X connect 5 0 32 0; #X connect 6 0 7 0; #X connect 7 0 0 1; #X connect 8 0 3 0; #X connect 8 0 34 0; #X connect 8 1 19 0; #X connect 8 1 33 0; #X connect 11 0 12 0; #X connect 12 0 13 0; #X connect 12 0 31 0; #X connect 13 0 38 0; #X connect 14 0 1 0; #X connect 19 0 20 0; #X connect 19 1 6 0; #X connect 20 0 21 0; #X connect 21 0 22 0; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 24 0 0 1; #X connect 32 0 35 0; #X connect 33 0 35 1; #X connect 33 0 36 0; #X connect 33 0 34 1; #X connect 34 0 32 1; #X connect 34 0 37 0; #X connect 35 0 11 0; #X connect 38 0 14 0; #X connect 38 1 14 1; #X connect 41 0 3 0; #X restore 242 305 pd SelectNoteFromScale; #X obj 12 178 * 2; #X obj -54 258 -; #X floatatom -20 261 5 0 0 0 - - -; #X obj 229 345 + 60; #X obj -54 -171 loadbang; #X text 320 340 transpose into usefull range; #X floatatom 321 223 5 0 0 0 - - -; #X msg -19 177 2; #X obj -54 214 metro 300; #X obj -54 236 cyclone/counter; #N canvas 962 49 956 775 Organ 0; #X obj -33 89 inlet; #X obj -32 427 outlet~; #X obj -32 267 cos~; #X obj 20 267 cos~; #X obj 70 267 cos~; #X obj 121 267 cos~; #X obj 168 267 cos~; #X obj 20 242 *~ 2; #X obj -33 111 mtof; #X obj -32 243 *~ 1; #X obj 70 242 *~ 4; #X obj 121 242 *~ 8; #X obj 168 242 *~ 16; #X obj 215 266 cos~; #X obj 215 241 *~ 32; #X obj 265 266 cos~; #X obj 265 241 *~ 64; #X obj -32 340 /~ 2; #X obj -33 133 phasor~; #X obj 20 289 /~ 2; #X obj 121 289 /~ 8; #X obj 168 289 /~ 16; #X obj 215 288 /~ 32; #X obj 265 288 /~ 64; #X obj 70 289 /~ 4; #X connect 0 0 8 0; #X connect 2 0 17 0; #X connect 3 0 19 0; #X connect 4 0 24 0; #X connect 5 0 20 0; #X connect 6 0 21 0; #X connect 7 0 3 0; #X connect 8 0 18 0; #X connect 9 0 2 0; #X connect 10 0 4 0; #X connect 11 0 5 0; #X connect 12 0 6 0; #X connect 13 0 22 0; #X connect 14 0 13 0; #X connect 15 0 23 0; #X connect 16 0 15 0; #X connect 17 0 1 0; #X connect 18 0 7 0; #X connect 18 0 9 0; #X connect 18 0 10 0; #X connect 18 0 11 0; #X connect 18 0 12 0; #X connect 18 0 14 0; #X connect 18 0 16 0; #X connect 19 0 17 0; #X connect 20 0 17 0; #X connect 21 0 17 0; #X connect 22 0 17 0; #X connect 23 0 17 0; #X connect 24 0 17 0; #X restore 242 374 pd Organ; #X text 110 -209 comment; #X obj 761 150 list2symbol; #X symbolatom 762 173 0 0 0 0 current_chord: - -; #X obj 673 218 unpack f f f f; #X floatatom 664 247 5 0 0 0 - - -; #X floatatom 706 246 5 0 0 0 - - -; #X floatatom 744 246 5 0 0 0 - - -; #X floatatom 780 246 5 0 0 0 - - -; #N canvas 708 53 655 708 chords 0; #X obj 61 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 81 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 101 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 121 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 140 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 160 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 180 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 200 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 222 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 55 119 inlet; #X obj 36 696 outlet; #X obj 246 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 266 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 286 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 306 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 325 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 345 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 365 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 385 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 407 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X text 492 162 comment; #X msg 61 233 0 2 5 9; #X msg 80 253 0 3 5 8; #X msg 99 272 0 4 7 9; #X msg 117 291 0 3 7 10; #X text 156 248 1MAJ6; #X text 163 266 2MAJ6; #X text 153 231 MAJ6; #X text 172 289 3MAJ6; #X msg 60 326 0 2 6 9; #X msg 74 346 0 3 5 9; #X msg 89 368 0 3 6 8; #X msg 104 391 0 4 7 10; #X text 122 321 MIN6; #X text 128 346 1MIN6; #X text 144 370 2MIN6; #X text 162 391 3MIN6; #X text 234 412 MIN7; #X text 251 434 1MIN7; #X text 256 456 2MIN7; #X text 264 476 3MIN7; #X msg 142 412 0 3 7 10; #X msg 153 434 0 2 5 9; #X msg 160 456 0 3 5 8; #X msg 168 477 0 4 7 9; #X text 274 500 MAJ7; #X text 284 519 1MAJ7; #X text 291 540 2MAJ7; #X text 297 565 3MAJ7; #X msg 177 498 0 3 6 10; #X msg 184 519 0 2 5 8; #X msg 191 541 0 3 5 8; #X msg 202 563 0 3 7 9; #X obj 429 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 449 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 472 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 493 213 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 513 213 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 535 212 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X text 303 589 DIM; #X msg 206 587 0 3 6 9; #X text 313 608 AUG; #X msg 213 608 0 2 6 10; #X msg 220 630 0 2 4 8; #X msg 231 652 0 4 6 8; #X text 320 629 1AUG; #X text 326 654 2AUG; #X text 329 675 3AUG; #X msg 234 673 0 4 8 10; #X obj 119 116 route MAJ6 1MAJ6 2MAJ6 3MAJ6 MIN6 1MIN6 2MIN6 3MIN6 MIN7 1MIN7 2MIN7 3MIN7 MAJ7 1MAJ7 2MAJ7 3MAJ7 DIM AUG 1AUG 2AUG 3AUG ; #X text 53 87 outputs 5 Basic forms of Chords: MAJ/MIN/SEPT/DIM/AUG ; #X connect 0 0 21 0; #X connect 1 0 22 0; #X connect 2 0 23 0; #X connect 3 0 24 0; #X connect 4 0 29 0; #X connect 5 0 30 0; #X connect 6 0 31 0; #X connect 7 0 32 0; #X connect 8 0 41 0; #X connect 9 0 69 0; #X connect 11 0 42 0; #X connect 12 0 43 0; #X connect 13 0 44 0; #X connect 14 0 49 0; #X connect 15 0 50 0; #X connect 16 0 51 0; #X connect 17 0 52 0; #X connect 18 0 60 0; #X connect 19 0 62 0; #X connect 21 0 10 0; #X connect 22 0 10 0; #X connect 23 0 10 0; #X connect 24 0 10 0; #X connect 29 0 10 0; #X connect 30 0 10 0; #X connect 31 0 10 0; #X connect 32 0 10 0; #X connect 41 0 10 0; #X connect 42 0 10 0; #X connect 43 0 10 0; #X connect 44 0 10 0; #X connect 49 0 10 0; #X connect 50 0 10 0; #X connect 51 0 10 0; #X connect 52 0 10 0; #X connect 53 0 63 0; #X connect 54 0 64 0; #X connect 55 0 68 0; #X connect 60 0 10 0; #X connect 62 0 10 0; #X connect 63 0 10 0; #X connect 64 0 10 0; #X connect 68 0 10 0; #X connect 69 0 0 0; #X connect 69 1 1 0; #X connect 69 2 2 0; #X connect 69 3 3 0; #X connect 69 4 4 0; #X connect 69 5 5 0; #X connect 69 6 6 0; #X connect 69 7 7 0; #X connect 69 8 8 0; #X connect 69 9 11 0; #X connect 69 10 12 0; #X connect 69 11 13 0; #X connect 69 12 14 0; #X connect 69 13 15 0; #X connect 69 14 16 0; #X connect 69 15 17 0; #X connect 69 16 18 0; #X connect 69 17 19 0; #X connect 69 18 53 0; #X connect 69 19 54 0; #X connect 69 20 55 0; #X restore 673 125 pd chords; #X msg 561 -155 MAJ6; #X msg 561 -134 1MAJ6; #X msg 561 -113 2MAJ6; #X msg 561 -92 3MAJ6; #X msg 665 -156 MIN6; #X msg 665 -135 1MIN6; #X msg 665 -114 2MIN6; #X msg 665 -93 3MIN6; #X msg 713 -155 MIN7; #X msg 713 -134 1MIN7; #X msg 713 -113 2MIN7; #X msg 713 -92 3MIN7; #X msg 601 -155 MAJ7; #X msg 601 -134 1MAJ7; #X msg 601 -113 2MAJ7; #X msg 601 -92 3MAJ7; #X msg 762 -154 DIM; #X msg 803 -154 AUG; #X msg 803 -133 1AUG; #X msg 803 -112 2AUG; #X msg 802 -89 3AUG; #X obj 682 277 -; #N canvas 408 53 956 708 Organ 0; #X obj -33 89 inlet; #X obj -32 427 outlet~; #X obj -32 267 cos~; #X obj 20 267 cos~; #X obj 70 267 cos~; #X obj 121 267 cos~; #X obj 168 267 cos~; #X obj 20 242 *~ 2; #X obj -33 111 mtof; #X obj -32 243 *~ 1; #X obj 70 242 *~ 4; #X obj 121 242 *~ 8; #X obj 168 242 *~ 16; #X obj 215 266 cos~; #X obj 215 241 *~ 32; #X obj 265 266 cos~; #X obj 265 241 *~ 64; #X obj -32 340 /~ 2; #X obj -33 133 phasor~; #X obj 20 289 /~ 2; #X obj 121 289 /~ 8; #X obj 168 289 /~ 16; #X obj 215 288 /~ 32; #X obj 265 288 /~ 64; #X obj 70 289 /~ 4; #X connect 0 0 8 0; #X connect 2 0 17 0; #X connect 3 0 19 0; #X connect 4 0 24 0; #X connect 5 0 20 0; #X connect 6 0 21 0; #X connect 7 0 3 0; #X connect 8 0 18 0; #X connect 9 0 2 0; #X connect 10 0 4 0; #X connect 11 0 5 0; #X connect 12 0 6 0; #X connect 13 0 22 0; #X connect 14 0 13 0; #X connect 15 0 23 0; #X connect 16 0 15 0; #X connect 17 0 1 0; #X connect 18 0 7 0; #X connect 18 0 9 0; #X connect 18 0 10 0; #X connect 18 0 11 0; #X connect 18 0 12 0; #X connect 18 0 14 0; #X connect 18 0 16 0; #X connect 19 0 17 0; #X connect 20 0 17 0; #X connect 21 0 17 0; #X connect 22 0 17 0; #X connect 23 0 17 0; #X connect 24 0 17 0; #X restore 679 320 pd Organ; #X obj 474 286 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 -262144 -1 -1 67 256; #X floatatom 682 296 5 0 0 0 - - -; #X obj 745 277 -; #N canvas 408 53 956 708 Organ 0; #X obj -33 89 inlet; #X obj -32 427 outlet~; #X obj -32 267 cos~; #X obj 20 267 cos~; #X obj 70 267 cos~; #X obj 121 267 cos~; #X obj 168 267 cos~; #X obj 20 242 *~ 2; #X obj -33 111 mtof; #X obj -32 243 *~ 1; #X obj 70 242 *~ 4; #X obj 121 242 *~ 8; #X obj 168 242 *~ 16; #X obj 215 266 cos~; #X obj 215 241 *~ 32; #X obj 265 266 cos~; #X obj 265 241 *~ 64; #X obj -32 340 /~ 2; #X obj -33 133 phasor~; #X obj 20 289 /~ 2; #X obj 121 289 /~ 8; #X obj 168 289 /~ 16; #X obj 215 288 /~ 32; #X obj 265 288 /~ 64; #X obj 70 289 /~ 4; #X connect 0 0 8 0; #X connect 2 0 17 0; #X connect 3 0 19 0; #X connect 4 0 24 0; #X connect 5 0 20 0; #X connect 6 0 21 0; #X connect 7 0 3 0; #X connect 8 0 18 0; #X connect 9 0 2 0; #X connect 10 0 4 0; #X connect 11 0 5 0; #X connect 12 0 6 0; #X connect 13 0 22 0; #X connect 14 0 13 0; #X connect 15 0 23 0; #X connect 16 0 15 0; #X connect 17 0 1 0; #X connect 18 0 7 0; #X connect 18 0 9 0; #X connect 18 0 10 0; #X connect 18 0 11 0; #X connect 18 0 12 0; #X connect 18 0 14 0; #X connect 18 0 16 0; #X connect 19 0 17 0; #X connect 20 0 17 0; #X connect 21 0 17 0; #X connect 22 0 17 0; #X connect 23 0 17 0; #X connect 24 0 17 0; #X restore 742 320 pd Organ; #X floatatom 745 296 5 0 0 0 - - -; #X obj 811 278 -; #N canvas 408 53 956 708 Organ 0; #X obj -33 89 inlet; #X obj -32 427 outlet~; #X obj -32 267 cos~; #X obj 20 267 cos~; #X obj 70 267 cos~; #X obj 121 267 cos~; #X obj 168 267 cos~; #X obj 20 242 *~ 2; #X obj -33 111 mtof; #X obj -32 243 *~ 1; #X obj 70 242 *~ 4; #X obj 121 242 *~ 8; #X obj 168 242 *~ 16; #X obj 215 266 cos~; #X obj 215 241 *~ 32; #X obj 265 266 cos~; #X obj 265 241 *~ 64; #X obj -32 340 /~ 2; #X obj -33 133 phasor~; #X obj 20 289 /~ 2; #X obj 121 289 /~ 8; #X obj 168 289 /~ 16; #X obj 215 288 /~ 32; #X obj 265 288 /~ 64; #X obj 70 289 /~ 4; #X connect 0 0 8 0; #X connect 2 0 17 0; #X connect 3 0 19 0; #X connect 4 0 24 0; #X connect 5 0 20 0; #X connect 6 0 21 0; #X connect 7 0 3 0; #X connect 8 0 18 0; #X connect 9 0 2 0; #X connect 10 0 4 0; #X connect 11 0 5 0; #X connect 12 0 6 0; #X connect 13 0 22 0; #X connect 14 0 13 0; #X connect 15 0 23 0; #X connect 16 0 15 0; #X connect 17 0 1 0; #X connect 18 0 7 0; #X connect 18 0 9 0; #X connect 18 0 10 0; #X connect 18 0 11 0; #X connect 18 0 12 0; #X connect 18 0 14 0; #X connect 18 0 16 0; #X connect 19 0 17 0; #X connect 20 0 17 0; #X connect 21 0 17 0; #X connect 22 0 17 0; #X connect 23 0 17 0; #X connect 24 0 17 0; #X restore 808 321 pd Organ; #X floatatom 811 297 5 0 0 0 - - -; #X obj 266 225 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 -2 -2; #X obj 245 245 spigot; #X text -84 284 test signal \, walk from -1 oct to + 1 oct and back ; #X text 559 -180 jazzonizer: select chord; #N canvas 416 170 494 396 META 0; #X text 12 25 LICENSE SIBSD; #X text 12 135 AUTHOR Frank Barknecht; #X text 12 95 OUTLET_0 list; #X text 12 155 HELP_PATCH_AUTHORS Frank Barknecht. "pd meta" information added by Jonathan Wilkes for Pd version 0.42.; #X text 12 5 KEYWORDS control list_op; #X text 12 45 DESCRIPTION serialize a list and put numbers in front of every element; #X text 12 75 INLET_0 anything; #X text 12 115 OUTLET_1 bang; #X restore 969 823 pd META; #X obj 234 190 loadbang; #X obj 505 -180 loadbang; #X connect 2 0 23 0; #X connect 3 0 23 0; #X connect 4 0 23 0; #X connect 5 0 23 0; #X connect 6 0 23 0; #X connect 7 0 23 0; #X connect 8 0 23 0; #X connect 9 0 23 0; #X connect 10 0 23 0; #X connect 11 0 23 0; #X connect 12 0 23 0; #X connect 13 0 23 0; #X connect 14 0 23 0; #X connect 15 0 23 0; #X connect 16 0 23 0; #X connect 17 0 23 0; #X connect 18 0 29 1; #X connect 20 0 34 0; #X connect 21 0 22 0; #X connect 23 0 25 1; #X connect 23 0 21 0; #X connect 23 0 24 0; #X connect 24 0 26 0; #X connect 24 0 27 1; #X connect 25 0 19 0; #X connect 25 0 29 0; #X connect 26 0 35 4; #X connect 27 0 28 0; #X connect 27 0 78 0; #X connect 29 0 36 0; #X connect 29 0 69 0; #X connect 30 0 20 0; #X connect 30 0 33 0; #X connect 30 0 2 0; #X connect 32 0 25 0; #X connect 33 0 35 1; #X connect 34 0 35 0; #X connect 35 0 27 0; #X connect 36 0 0 0; #X connect 38 0 39 0; #X connect 40 0 41 0; #X connect 40 1 42 0; #X connect 40 2 43 0; #X connect 40 3 44 0; #X connect 42 0 67 1; #X connect 43 0 71 1; #X connect 44 0 74 1; #X connect 45 0 38 0; #X connect 45 0 40 0; #X connect 46 0 45 0; #X connect 47 0 45 0; #X connect 48 0 45 0; #X connect 49 0 45 0; #X connect 50 0 45 0; #X connect 51 0 45 0; #X connect 52 0 45 0; #X connect 53 0 45 0; #X connect 54 0 45 0; #X connect 55 0 45 0; #X connect 56 0 45 0; #X connect 57 0 45 0; #X connect 58 0 45 0; #X connect 59 0 45 0; #X connect 60 0 45 0; #X connect 61 0 45 0; #X connect 62 0 45 0; #X connect 63 0 45 0; #X connect 64 0 45 0; #X connect 65 0 45 0; #X connect 66 0 45 0; #X connect 67 0 70 0; #X connect 68 0 0 1; #X connect 69 0 67 0; #X connect 69 0 71 0; #X connect 69 0 74 0; #X connect 70 0 68 0; #X connect 71 0 73 0; #X connect 72 0 0 1; #X connect 73 0 72 0; #X connect 74 0 76 0; #X connect 75 0 0 1; #X connect 76 0 75 0; #X connect 77 0 78 1; #X connect 78 0 25 0; #X connect 82 0 77 0; #X connect 83 0 46 0;