Ripples-Pd-mic.pd

#N canvas 480 130 624 244 10;
#X text 26 9 Ripples - By Andrew R. Brown;
#N canvas 569 397 793 529 ripples_main 0;
#X obj 23 22 inlet go;
#X obj 59 160 int;
#X obj 90 160 + 1;
#X floatatom 59 183 15 0 0 0 - - -, f 15;
#X obj 58 79 tgl 25 0 empty empty empty 17 7 0 10 -4034 -1 -1 0 1;
#X obj 59 206 % 16;
#X obj 59 231 select 0;
#X obj 59 301 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 59 111 metro 30;
#X floatatom 104 86 5 0 0 0 - - -, f 5;
#X obj 100 204 s tick;
#X floatatom 174 134 5 0 0 0 - - -, f 5;
#X obj 104 54 / 16;
#X text 130 127 tempo;
#X obj 174 54 loadbang;
#N canvas 0 22 196 225 tempo-dur-calc 0;
#X floatatom 32 158 10 0 0 0 - - -, f 10;
#X floatatom 33 109 5 0 0 0 - - -, f 5;
#X msg 32 61 60;
#X obj 32 83 / 1;
#X obj 31 40 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 32 129 * 1000;
#X obj 48 10 inlet tempo-in-bpm;
#X obj 32 187 outlet beat-dur;
#X connect 0 0 7 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 5 0 0 0;
#X connect 6 0 4 0;
#X connect 6 0 3 1;
#X restore 174 155 pd tempo-dur-calc;
#X msg 73 135 0;
#X obj 59 350 spigot;
#X obj 92 329 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X msg 92 306 0;
#X obj 193 185 notein, f 16;
#X floatatom 192 211 5 0 0 0 - - -, f 5;
#X floatatom 284 233 5 0 0 0 - - -, f 5;
#X obj 239 210 select 0;
#X obj 198 79 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 58 54 r go;
#N canvas 628 280 413 281 output-a 0;
#X obj 38 177 makenote 80 200;
#X floatatom 198 171 10 0 0 0 - - -, f 10;
#X obj 38 13 inlet pitch;
#X obj 121 15 inlet vel;
#X obj 196 16 inlet dur;
#X obj 269 15 inlet ch;
#X obj 8 50 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 209 41 15 0 0 0 - - -, f 15;
#X obj 87 39 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 134 39 5 0 0 0 - - -, f 5;
#N canvas 1016 247 177 321 \$0-dur-var 0;
#X obj 67 51 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 67 106 5 0 0 0 - - -, f 5;
#X obj 67 158 / 10;
#X obj 52 15 inlet;
#X obj 52 270 outlet;
#X obj 67 185 + 1;
#X floatatom 67 210 5 0 0 0 - - -, f 5;
#X obj 52 240 * 1;
#X obj 67 131 - 5;
#X obj 67 80 random 10;
#X connect 0 0 9 0;
#X connect 1 0 8 0;
#X connect 2 0 5 0;
#X connect 3 0 0 0;
#X connect 3 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 7 0 4 0;
#X connect 8 0 2 0;
#X connect 9 0 1 0;
#X restore 196 143 pd \$0-dur-var;
#N canvas 0 23 260 356 \$0-parse-vel 0;
#X obj 59 152 + 0;
#X obj 60 81 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 49 48 route 0;
#X msg 25 150 0;
#X obj 51 18 inlet;
#X obj 25 296 outlet;
#X obj 59 241 min 127;
#X floatatom 83 297 5 0 0 0 - - -, f 5;
#X obj 59 265 max 1;
#X obj 60 127 - 10;
#X obj 59 103 random 30;
#X obj 111 73 r dyn-range;
#X obj 96 154 r dyn-offset;
#X obj 59 181 + 0;
#X obj 59 209 + 0;
#X obj 101 186 r dyn-var;
#X connect 0 0 13 0;
#X connect 1 0 10 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 2 1 0 1;
#X connect 3 0 5 0;
#X connect 4 0 2 0;
#X connect 6 0 8 0;
#X connect 8 0 5 0;
#X connect 8 0 7 0;
#X connect 9 0 0 0;
#X connect 10 0 9 0;
#X connect 11 0 10 1;
#X connect 12 0 13 1;
#X connect 13 0 14 0;
#X connect 14 0 6 0;
#X connect 15 0 14 1;
#X restore 134 210 pd \$0-parse-vel;
#X obj 342 19 inlet pc;
#X floatatom 157 231 5 0 0 0 - - -, f 5;
#N canvas 42 117 446 367 \$0-pitch-quantise-3 0;
#X obj 18 48 inlet pitch;
#X obj 127 48 inlet scale;
#X obj 59 317 outlet;
#N canvas 724 286 474 460 list-contains 0;
#X obj 22 32 inlet val;
#X obj 228 30 inlet list;
#X obj 25 418 outlet 1or0;
#X obj 228 88 list trim;
#X obj 228 62 list prepend set;
#X text 238 169 List;
#X obj 121 62 list length;
#X obj 104 114 f;
#X obj 104 137 until;
#X obj 104 162 f;
#X obj 139 162 + 1;
#X obj 104 186 t b f;
#X obj 95 238 list split 1;
#X obj 102 63 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 154 88 5 0 0 0 - - -, f 5;
#X msg 151 136 0;
#X obj 104 88 t b b;
#X obj 55 212 list split 0;
#X obj 24 381 f;
#X msg 86 355 0;
#X obj 49 268 == 0;
#X obj 50 296 sel 1;
#X obj 22 57 t b b f;
#X msg 51 323 1;
#X text 19 4 Compare number to those in a list - return boolean result
;
#X text 213 419 Andrew R. Brown - byron bay \, 2017;
#X msg 229 187 9 9 9 9 11 11 11 0 2 2 2 2;
#X connect 0 0 22 0;
#X connect 1 0 4 0;
#X connect 1 0 6 0;
#X connect 3 0 26 0;
#X connect 4 0 3 0;
#X connect 6 0 7 1;
#X connect 6 0 14 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 9 1;
#X connect 11 0 26 0;
#X connect 11 1 17 1;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 15 0 9 1;
#X connect 16 0 7 0;
#X connect 16 1 15 0;
#X connect 16 1 19 0;
#X connect 17 1 12 0;
#X connect 18 0 2 0;
#X connect 19 0 18 1;
#X connect 20 0 21 0;
#X connect 21 0 23 0;
#X connect 22 0 18 0;
#X connect 22 1 16 0;
#X connect 22 2 20 1;
#X connect 23 0 18 1;
#X connect 26 0 17 0;
#X restore 18 196 pd list-contains;
#X floatatom 18 82 5 0 0 0 - - -, f 5;
#X obj 18 218 sel 1;
#X obj 18 243 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 51 244 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 18 170 % 12;
#X obj 18 108 f;
#X obj 49 109 - 1;
#X obj 59 270 f;
#X floatatom 59 293 5 0 0 0 - - -, f 5;
#X obj 18 134 t f f;
#X text 117 77 test;
#X text 15 7 Quantise a number to a list of numbers (range within 0-12)
, f 39;
#X text 11 342 Andrew R. Brown \, byron bay \, 2017;
#N canvas 447 145 413 622 list-modulo 0;
#X obj 195 11 inlet list;
#X obj 228 97 list trim;
#X msg 229 196 9 9 9 9 11 11 11 0 2 2 2 2;
#X obj 228 71 list prepend set;
#X text 230 217 List;
#X obj 121 71 list length;
#X obj 104 123 f;
#X obj 104 146 until;
#X obj 104 171 f;
#X obj 139 171 + 1;
#X obj 103 193 t b f;
#X obj 81 72 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 167 98 5 0 0 0 - - -, f 5;
#X msg 151 145 0;
#X obj 55 225 list split 0;
#X obj 48 558 outlet new-list;
#X obj 196 34 t b l;
#X obj 95 364 list trim;
#X obj 95 337 list prepend set;
#X msg 95 434 9 9 9 9 11 11 11 0 2 2 2 2;
#X obj 205 241 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 168 279 bang;
#X text 206 280 empty list;
#X obj 81 97 t b b b;
#X obj 49 473 spigot 0;
#X msg 189 443 0;
#X obj 51 409 t b b;
#X msg 51 444 1;
#X obj 49 529 list trim;
#X obj 49 502 list prepend set;
#X obj 95 283 % 12;
#X obj 318 152 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 95 390 t b a;
#X obj 95 311 list prepend;
#X obj 95 247 list split 1;
#X connect 0 0 16 0;
#X connect 1 0 2 0;
#X connect 2 0 14 0;
#X connect 3 0 1 0;
#X connect 5 0 6 1;
#X connect 5 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 2 0;
#X connect 10 1 14 1;
#X connect 11 0 23 0;
#X connect 13 0 8 1;
#X connect 14 1 34 0;
#X connect 16 0 11 0;
#X connect 16 1 3 0;
#X connect 16 1 5 0;
#X connect 17 0 32 0;
#X connect 18 0 17 0;
#X connect 19 0 24 0;
#X connect 19 0 33 1;
#X connect 20 0 21 0;
#X connect 20 0 25 0;
#X connect 21 0 33 1;
#X connect 23 0 26 0;
#X connect 23 1 6 0;
#X connect 23 2 20 0;
#X connect 23 2 13 0;
#X connect 24 0 29 0;
#X connect 25 0 24 1;
#X connect 26 0 19 0;
#X connect 26 1 27 0;
#X connect 27 0 24 1;
#X connect 28 0 15 0;
#X connect 29 0 28 0;
#X connect 30 0 33 0;
#X connect 31 0 2 0;
#X connect 32 0 19 0;
#X connect 32 1 19 0;
#X connect 33 0 18 0;
#X connect 34 0 30 0;
#X restore 127 104 pd list-modulo;
#X msg 127 174 9 9 9 9 11 11 11 0 2 2 2 2;
#X msg 157 77 60 62 64 65 67;
#X obj 127 151 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 127 127 t b a;
#X obj 250 52 loadbang;
#X connect 0 0 4 0;
#X connect 1 0 17 0;
#X connect 3 0 5 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 11 0;
#X connect 7 0 9 0;
#X connect 8 0 3 0;
#X connect 9 0 10 0;
#X connect 9 0 13 0;
#X connect 10 0 9 1;
#X connect 11 0 12 0;
#X connect 12 0 2 0;
#X connect 13 0 8 0;
#X connect 13 1 11 1;
#X connect 17 0 21 0;
#X connect 18 0 3 1;
#X connect 19 0 17 0;
#X connect 20 0 18 0;
#X connect 21 0 20 0;
#X connect 21 1 18 0;
#X connect 22 0 19 0;
#X restore 38 117 pd \$0-pitch-quantise-3;
#X obj 38 251 noteout 1, f 30;
#X connect 0 0 15 0;
#X connect 0 1 11 0;
#X connect 2 0 6 0;
#X connect 2 0 14 0;
#X connect 3 0 8 0;
#X connect 3 0 9 0;
#X connect 4 0 10 0;
#X connect 4 0 7 0;
#X connect 5 0 15 2;
#X connect 9 0 11 0;
#X connect 10 0 0 2;
#X connect 10 0 1 0;
#X connect 11 0 13 0;
#X connect 11 0 15 1;
#X connect 12 0 14 1;
#X connect 14 0 0 0;
#X restore 59 445 pd output-a;
#X obj 38 377 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 168 314 5 0 0 0 - - -, f 5;
#N canvas 450 448 419 279 output-b 0;
#X obj 38 171 makenote 80 200;
#X floatatom 195 133 10 0 0 0 - - -, f 10;
#X obj 58 198 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 38 13 inlet pitch;
#X obj 121 15 inlet vel;
#X obj 196 16 inlet dur;
#X obj 269 15 inlet ch;
#X obj 8 50 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 209 41 15 0 0 0 - - -, f 15;
#N canvas 1016 247 177 321 \$0-dur-var 0;
#X obj 67 51 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 67 106 5 0 0 0 - - -, f 5;
#X obj 67 158 / 10;
#X obj 52 15 inlet;
#X obj 52 270 outlet;
#X obj 67 185 + 1;
#X floatatom 67 210 5 0 0 0 - - -, f 5;
#X obj 52 240 * 1;
#X obj 67 131 - 3;
#X obj 67 80 random 12;
#X connect 0 0 9 0;
#X connect 1 0 8 0;
#X connect 2 0 5 0;
#X connect 3 0 0 0;
#X connect 3 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 7 0 4 0;
#X connect 8 0 2 0;
#X connect 9 0 1 0;
#X restore 196 107 pd \$0-dur-var;
#N canvas 0 23 226 320 \$0-parse-vel 0;
#X obj 59 152 + 0;
#X obj 60 81 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 49 48 route 0;
#X msg 25 150 0;
#X obj 51 18 inlet;
#X obj 25 286 outlet;
#X obj 59 231 min 127;
#X obj 59 255 max 1;
#X obj 60 127 - 10;
#X obj 59 103 random 30;
#X obj 111 76 r dyn-range;
#X obj 96 154 r dyn-offset;
#X obj 59 181 + 0;
#X obj 59 209 + 0;
#X obj 101 186 r dyn-var;
#X connect 0 0 12 0;
#X connect 1 0 9 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 2 1 0 1;
#X connect 3 0 5 0;
#X connect 4 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 0 0;
#X connect 9 0 8 0;
#X connect 10 0 9 1;
#X connect 11 0 12 1;
#X connect 12 0 13 0;
#X connect 13 0 6 0;
#X connect 14 0 13 1;
#X restore 142 201 pd \$0-parse-vel;
#N canvas 42 117 386 300 \$0-pitch-quantise-2 0;
#N canvas 458 336 431 364 inlist 0;
#X obj 54 120 int;
#X obj 98 120 + 1;
#X msg 70 82 0;
#X obj 43 76 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 53 149 5 0 0 0 - - -, f 5;
#X obj 226 233 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 278 239 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 81 180 < 10;
#X floatatom 81 206 5 0 0 0 - - -, f 5;
#X obj 44 242 select 1;
#X obj 42 45 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 297 252 5 0 0 0 - - -, f 5;
#X obj 136 91 list;
#X obj 133 130 list length;
#X floatatom 132 166 5 0 0 0 - - -, f 5;
#X obj 245 180 list split 1;
#X obj 247 153 list split 3;
#X obj 243 206 select 2;
#X obj 35 8 inlet val;
#X obj 157 8 inlet list;
#X obj 211 293 int;
#X msg 226 259 1;
#X msg 171 250 0;
#X obj 120 245 == 4;
#X obj 129 216 - 1;
#X obj 212 320 outlet result;
#X floatatom 164 325 5 0 0 0 - - -, f 5;
#X floatatom 367 96 5 0 0 0 - - -, f 5;
#X msg 367 65 2;
#X obj 174 33 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 259 33 2 4 6;
#X msg 214 65 1 4 5;
#X obj 140 287 delay 5;
#X obj 330 324 outlet val;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 0 0 16 1;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 3 0 0 0;
#X connect 3 0 12 0;
#X connect 4 0 7 0;
#X connect 4 0 23 0;
#X connect 5 0 21 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 3 0;
#X connect 10 0 22 0;
#X connect 10 0 2 0;
#X connect 10 0 3 0;
#X connect 12 0 13 0;
#X connect 12 0 16 0;
#X connect 13 0 14 0;
#X connect 14 0 7 1;
#X connect 14 0 24 0;
#X connect 15 0 17 0;
#X connect 16 1 15 0;
#X connect 17 0 5 0;
#X connect 17 1 6 0;
#X connect 17 1 11 0;
#X connect 18 0 17 1;
#X connect 18 0 10 0;
#X connect 18 0 33 0;
#X connect 19 0 12 1;
#X connect 19 0 29 0;
#X connect 20 0 25 0;
#X connect 20 0 26 0;
#X connect 21 0 20 1;
#X connect 22 0 20 1;
#X connect 23 0 32 0;
#X connect 24 0 23 1;
#X connect 27 0 17 1;
#X connect 27 0 10 0;
#X connect 28 0 27 0;
#X connect 30 0 12 1;
#X connect 31 0 12 1;
#X connect 32 0 20 0;
#X restore 107 89 pd inlist;
#X floatatom 105 116 5 0 0 0 - - -, f 5;
#X floatatom 105 44 5 0 0 0 - - -, f 5;
#X floatatom 157 112 5 0 0 0 - - -, f 5;
#X obj 106 167 select -1;
#X obj 106 141 expr if($i1 == 0 && $i2 >= 0 \, $i2 - 1 \, -1);
#X obj 22 164 select 1;
#X obj 23 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 159 199 5 0 0 0 - - -, f 5;
#X obj 105 15 inlet pitch;
#X obj 157 42 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 24 271 outlet pitch;
#X obj 23 221 int;
#X obj 106 64 % 12;
#X obj 67 218 int;
#X obj 65 191 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 24 246 5 0 0 0 - - -, f 5;
#X obj 98 218 - 1;
#X obj 246 18 inlet pitch-class-set;
#X obj 157 66 list;
#X msg 248 74 0 2 4 7 9;
#X obj 250 44 loadbang;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 12 1;
#X connect 2 0 13 0;
#X connect 2 0 14 1;
#X connect 3 0 5 1;
#X connect 4 1 8 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 12 0;
#X connect 8 0 15 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 9 0 2 0;
#X connect 10 0 19 0;
#X connect 12 0 16 0;
#X connect 13 0 0 0;
#X connect 14 0 17 0;
#X connect 15 0 14 0;
#X connect 16 0 11 0;
#X connect 17 0 14 1;
#X connect 17 0 12 1;
#X connect 18 0 19 1;
#X connect 19 0 0 1;
#X connect 20 0 19 1;
#X connect 21 0 20 0;
#X restore 38 107 pd \$0-pitch-quantise-2;
#X obj 342 16 inlet pc;
#X obj 38 233 noteout 1, f 35;
#X connect 0 0 2 0;
#X connect 0 0 13 0;
#X connect 0 1 10 0;
#X connect 3 0 7 0;
#X connect 3 0 11 0;
#X connect 4 0 10 0;
#X connect 5 0 9 0;
#X connect 5 0 8 0;
#X connect 6 0 13 2;
#X connect 9 0 0 2;
#X connect 9 0 1 0;
#X connect 10 0 13 1;
#X connect 11 0 0 0;
#X connect 12 0 11 1;
#X restore 169 440 pd output-b;
#N canvas 640 247 401 265 output-c 0;
#X obj 38 171 makenote 80 200;
#X floatatom 166 172 10 0 0 0 - - -, f 10;
#X obj 58 198 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 38 13 inlet pitch;
#X obj 121 15 inlet vel;
#X obj 196 16 inlet dur;
#X obj 269 15 inlet ch;
#X obj 8 50 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 196 39 15 0 0 0 - - -, f 15;
#N canvas 1016 247 177 321 \$0-dur-var 0;
#X obj 67 51 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 67 106 5 0 0 0 - - -, f 5;
#X obj 67 158 / 10;
#X obj 52 15 inlet;
#X obj 52 270 outlet;
#X obj 67 185 + 1;
#X floatatom 67 210 5 0 0 0 - - -, f 5;
#X obj 52 240 * 1;
#X obj 67 131 - 3;
#X obj 67 80 random 10;
#X connect 0 0 9 0;
#X connect 1 0 8 0;
#X connect 2 0 5 0;
#X connect 3 0 0 0;
#X connect 3 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 7 0 4 0;
#X connect 8 0 2 0;
#X connect 9 0 1 0;
#X restore 166 143 pd \$0-dur-var;
#N canvas 0 22 225 319 \$0-parse-vel 0;
#X obj 59 152 + 0;
#X obj 60 81 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 49 48 route 0;
#X msg 25 150 0;
#X obj 51 18 inlet;
#X obj 25 289 outlet;
#X obj 59 232 min 127;
#X obj 59 258 max 1;
#X obj 60 127 - 10;
#X obj 59 103 random 30;
#X obj 110 74 r dyn-range;
#X obj 96 154 r dyn-offset;
#X obj 59 181 + 0;
#X obj 59 209 + 0;
#X obj 101 186 r dyn-var;
#X connect 0 0 12 0;
#X connect 1 0 9 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 2 1 0 1;
#X connect 3 0 5 0;
#X connect 4 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 0 0;
#X connect 9 0 8 0;
#X connect 10 0 9 1;
#X connect 11 0 12 1;
#X connect 12 0 13 0;
#X connect 13 0 6 0;
#X connect 14 0 13 1;
#X restore 104 201 pd \$0-parse-vel;
#X floatatom 269 69 5 0 0 0 - - -, f 5;
#N canvas 42 117 386 300 \$0-pitch-quantise-2 0;
#N canvas 458 336 431 364 inlist 0;
#X obj 54 120 int;
#X obj 98 120 + 1;
#X msg 70 82 0;
#X obj 43 76 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 53 149 5 0 0 0 - - -, f 5;
#X obj 226 233 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 278 239 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 81 180 < 10;
#X floatatom 81 206 5 0 0 0 - - -, f 5;
#X obj 44 242 select 1;
#X obj 42 45 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 297 252 5 0 0 0 - - -, f 5;
#X obj 136 91 list;
#X obj 133 130 list length;
#X floatatom 132 166 5 0 0 0 - - -, f 5;
#X obj 245 180 list split 1;
#X obj 247 153 list split 3;
#X obj 243 206 select 2;
#X obj 35 8 inlet val;
#X obj 157 8 inlet list;
#X obj 211 293 int;
#X msg 226 259 1;
#X msg 171 250 0;
#X obj 120 245 == 4;
#X obj 129 216 - 1;
#X obj 212 320 outlet result;
#X floatatom 164 325 5 0 0 0 - - -, f 5;
#X floatatom 367 96 5 0 0 0 - - -, f 5;
#X msg 367 65 2;
#X obj 174 33 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 259 33 2 4 6;
#X msg 214 65 1 4 5;
#X obj 140 287 delay 5;
#X obj 330 324 outlet val;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 0 0 16 1;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 3 0 0 0;
#X connect 3 0 12 0;
#X connect 4 0 7 0;
#X connect 4 0 23 0;
#X connect 5 0 21 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 3 0;
#X connect 10 0 22 0;
#X connect 10 0 2 0;
#X connect 10 0 3 0;
#X connect 12 0 13 0;
#X connect 12 0 16 0;
#X connect 13 0 14 0;
#X connect 14 0 7 1;
#X connect 14 0 24 0;
#X connect 15 0 17 0;
#X connect 16 1 15 0;
#X connect 17 0 5 0;
#X connect 17 1 6 0;
#X connect 17 1 11 0;
#X connect 18 0 17 1;
#X connect 18 0 10 0;
#X connect 18 0 33 0;
#X connect 19 0 12 1;
#X connect 19 0 29 0;
#X connect 20 0 25 0;
#X connect 20 0 26 0;
#X connect 21 0 20 1;
#X connect 22 0 20 1;
#X connect 23 0 32 0;
#X connect 24 0 23 1;
#X connect 27 0 17 1;
#X connect 27 0 10 0;
#X connect 28 0 27 0;
#X connect 30 0 12 1;
#X connect 31 0 12 1;
#X connect 32 0 20 0;
#X restore 107 89 pd inlist;
#X floatatom 105 116 5 0 0 0 - - -, f 5;
#X floatatom 105 44 5 0 0 0 - - -, f 5;
#X floatatom 157 112 5 0 0 0 - - -, f 5;
#X obj 106 167 select -1;
#X obj 106 141 expr if($i1 == 0 && $i2 >= 0 \, $i2 - 1 \, -1);
#X obj 22 164 select 1;
#X obj 23 193 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 159 199 5 0 0 0 - - -, f 5;
#X obj 105 15 inlet pitch;
#X obj 157 42 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 24 271 outlet pitch;
#X obj 23 221 int;
#X obj 106 64 % 12;
#X obj 67 218 int;
#X obj 65 191 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 24 246 5 0 0 0 - - -, f 5;
#X obj 98 218 - 1;
#X obj 246 18 inlet pitch-class-set;
#X obj 157 66 list;
#X msg 248 74 0 2 4 7 9;
#X obj 250 44 loadbang;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 12 1;
#X connect 2 0 13 0;
#X connect 2 0 14 1;
#X connect 3 0 5 1;
#X connect 4 1 8 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 12 0;
#X connect 8 0 15 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 9 0 2 0;
#X connect 10 0 19 0;
#X connect 12 0 16 0;
#X connect 13 0 0 0;
#X connect 14 0 17 0;
#X connect 15 0 14 0;
#X connect 16 0 11 0;
#X connect 17 0 14 1;
#X connect 17 0 12 1;
#X connect 18 0 19 1;
#X connect 19 0 0 1;
#X connect 20 0 19 1;
#X connect 21 0 20 0;
#X restore 38 115 pd \$0-pitch-quantise-2;
#X obj 332 15 inlet pc;
#X obj 38 233 noteout 1, f 27;
#X connect 0 0 2 0;
#X connect 0 0 14 0;
#X connect 0 1 10 0;
#X connect 3 0 7 0;
#X connect 3 0 12 0;
#X connect 4 0 10 0;
#X connect 5 0 9 0;
#X connect 5 0 8 0;
#X connect 6 0 11 0;
#X connect 6 0 14 2;
#X connect 9 0 0 2;
#X connect 9 0 1 0;
#X connect 10 0 14 1;
#X connect 12 0 0 0;
#X connect 13 0 12 1;
#X restore 306 440 pd output-c;
#N canvas 917 144 370 270 agent-c 0;
#X obj 38 17 inlet trigger;
#X obj 223 19 inlet dely-dur;
#X obj 38 174 outlet pitches;
#X obj 133 18 inlet vel;
#X obj 240 164 int;
#X obj 297 84 * 0.3;
#X obj 39 49 delay 1500;
#X obj 161 204 outlet vel;
#X obj 240 210 outlet dur;
#X floatatom 240 188 5 0 0 0 - - -, f 5;
#N canvas 159 235 387 359 \$0-arp-agent 0;
#X floatatom 56 109 10 0 0 0 - - -, f 10;
#X floatatom 148 114 5 0 0 0 - - -, f 5;
#X obj 56 145 * 2;
#X text 15 194 pitch;
#X obj 56 169 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 56 224 5 0 0 0 - - -, f 5;
#X obj 118 193 + 0;
#X obj 56 193 float;
#X obj 248 86 random 15;
#X obj 248 112 - 7;
#X obj 248 57 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 248 141 5 0 0 0 - - -, f 5;
#X obj 21 13 inlet trigger;
#X obj 57 297 outlet pitch;
#X obj 125 61 random 60;
#X obj 147 89 / 10;
#X obj 125 37 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 125 12 inlet rate-change;
#X obj 248 13 inlet int-change;
#X text 146 156 reset pitch;
#X obj 57 250 + 0.5;
#X obj 57 273 int;
#X msg 104 162 72;
#X obj 112 135 loadbang;
#X obj 119 217 expr if($f1 > 30 \, $f1 \, 72);
#X obj 122 244 expr if($f1 < 100 \, $f1 \, 72);
#N canvas 0 22 219 274 \$0-lfo 0;
#X floatatom 128 69 5 0 0 0 - - -, f 5;
#N canvas 154 262 208 195 now 0;
#X obj 36 18 inlet;
#X obj 40 139 outlet;
#X obj 39 50 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 40 111 15 0 0 0 - - -, f 15;
#X obj 79 51 r tick;
#X obj 39 83 int;
#X connect 0 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 4 0 5 1;
#X connect 5 0 3 0;
#X restore 27 68 pd now;
#X obj 128 30 inlet rate;
#X obj 28 28 inlet trigger;
#X obj 28 234 outlet result;
#X obj 28 181 sin;
#X obj 28 148 * 6.28319;
#X obj 28 122 / 360;
#X obj 27 96 * 1 1;
#X floatatom 28 207 10 0 0 0 - - -, f 10;
#X connect 0 0 8 1;
#X connect 1 0 8 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 4 0;
#X restore 56 77 pd \$0-lfo;
#X connect 0 0 2 0;
#X connect 1 0 26 1;
#X connect 2 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 7 0;
#X connect 5 0 20 0;
#X connect 6 0 24 0;
#X connect 7 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 2 1;
#X connect 9 0 11 0;
#X connect 10 0 8 0;
#X connect 12 0 26 0;
#X connect 14 0 15 0;
#X connect 15 0 1 0;
#X connect 16 0 14 0;
#X connect 17 0 16 0;
#X connect 18 0 10 0;
#X connect 20 0 21 0;
#X connect 21 0 13 0;
#X connect 22 0 7 1;
#X connect 23 0 22 0;
#X connect 24 0 25 0;
#X connect 25 0 7 1;
#X connect 26 0 0 0;
#X restore 38 116 pd \$0-arp-agent;
#N canvas 606 360 547 362 \$0-onset-delay 0;
#X obj 12 9 inlet tap;
#X obj 303 7 inlet beat-time;
#X obj 110 123 spigot 1;
#X obj 88 9 inlet vel;
#X obj 64 39 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 12 324 outlet;
#X obj 110 152 delay 500;
#X obj 272 43 / 2;
#X obj 185 140 spigot 1;
#X obj 186 242 delay 250;
#X obj 257 247 delay 750;
#X obj 344 39 / 4;
#X obj 344 67 * 3;
#X obj 257 197 sel 0;
#X obj 257 173 random 2;
#X obj 257 222 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 185 195 sel 0;
#X obj 185 171 random 2;
#X obj 185 220 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 104 68 5 0 0 0 - - -, f 5;
#X obj 330 194 spigot 1;
#X obj 330 249 sel 0;
#X obj 330 225 random 2;
#X obj 330 274 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 330 296 delay 125;
#X obj 382 38 / 8;
#X obj 29 232 delay 333;
#X obj 100 231 delay 667;
#X obj 308 40 / 3;
#X obj 309 68 * 2;
#X obj 29 121 spigot 1;
#N canvas 361 60 257 264 \$0-choose-path 0;
#X obj 43 102 pack;
#X floatatom 84 104 5 0 0 0 - - -, f 5;
#X obj 43 13 inlet val;
#X obj 43 188 outlet one;
#X obj 127 188 outlet two;
#X obj 43 44 t b b;
#X obj 42 159 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 100 161 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 43 74 random 6;
#X obj 43 131 route 0 1 2 3 4 5;
#X msg 110 72 -1;
#X connect 0 0 9 0;
#X connect 2 0 5 0;
#X connect 5 0 8 0;
#X connect 5 1 10 0;
#X connect 6 0 3 0;
#X connect 7 0 4 0;
#X connect 8 0 1 0;
#X connect 8 0 0 0;
#X connect 9 0 6 0;
#X connect 9 1 7 0;
#X connect 9 2 7 0;
#X connect 9 3 7 0;
#X connect 9 4 7 0;
#X connect 9 5 7 0;
#X connect 10 0 0 1;
#X restore 29 86 pd \$0-choose-path;
#X obj 88 38 expr if($i1 < 55 \, 0 \, 1);
#X obj 230 114 expr if($i1 < 70 \, 0 \, 1);
#X obj 375 162 expr if($i1 < 95 \, 0 \, 1);
#X connect 0 0 5 0;
#X connect 0 0 31 0;
#X connect 1 0 7 0;
#X connect 1 0 11 0;
#X connect 1 0 25 0;
#X connect 1 0 28 0;
#X connect 2 0 6 0;
#X connect 2 0 8 0;
#X connect 3 0 4 0;
#X connect 3 0 19 0;
#X connect 3 0 32 0;
#X connect 3 0 33 0;
#X connect 3 0 34 0;
#X connect 6 0 5 0;
#X connect 7 0 6 1;
#X connect 8 0 14 0;
#X connect 8 0 17 0;
#X connect 9 0 5 0;
#X connect 9 0 20 0;
#X connect 10 0 5 0;
#X connect 10 0 20 0;
#X connect 11 0 9 1;
#X connect 11 0 12 0;
#X connect 12 0 10 1;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 10 0;
#X connect 16 0 18 0;
#X connect 17 0 16 0;
#X connect 18 0 9 0;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 0;
#X connect 23 0 24 0;
#X connect 24 0 5 0;
#X connect 25 0 24 1;
#X connect 26 0 5 0;
#X connect 27 0 5 0;
#X connect 28 0 26 1;
#X connect 28 0 29 0;
#X connect 29 0 27 1;
#X connect 30 0 26 0;
#X connect 30 0 27 0;
#X connect 31 0 30 0;
#X connect 31 1 2 0;
#X connect 32 0 2 1;
#X connect 32 0 30 1;
#X connect 33 0 8 1;
#X connect 34 0 20 1;
#X restore 38 86 pd \$0-onset-delay;
#X obj 130 53 expr if($i1 < 55 \, $i2 \, $i2 * 3);
#X obj 160 114 expr if($i1 < 85 \, $i2 \, $i3);
#X floatatom 168 81 5 0 0 0 - - -, f 5;
#X obj 243 85 * 1.2;
#X obj 38 145 t f b;
#X floatatom 161 181 5 0 0 0 - - -, f 5;
#X connect 0 0 6 0;
#X connect 1 0 5 0;
#X connect 1 0 12 1;
#X connect 1 0 15 0;
#X connect 1 0 11 2;
#X connect 3 0 12 0;
#X connect 3 0 13 0;
#X connect 3 0 17 0;
#X connect 3 0 11 1;
#X connect 4 0 9 0;
#X connect 5 0 13 2;
#X connect 6 0 10 1;
#X connect 6 0 10 2;
#X connect 6 0 11 0;
#X connect 9 0 8 0;
#X connect 10 0 16 0;
#X connect 11 0 10 0;
#X connect 12 0 6 1;
#X connect 12 0 14 0;
#X connect 13 0 4 1;
#X connect 15 0 13 1;
#X connect 16 0 2 0;
#X connect 16 1 17 0;
#X connect 16 1 4 0;
#X connect 17 0 7 0;
#X restore 306 409 pd agent-c;
#N canvas 434 163 396 256 agent-b 0;
#X obj 38 17 inlet trigger;
#X obj 223 19 inlet dely-dur;
#X obj 36 185 outlet pitches;
#X obj 133 18 inlet vel;
#X obj 39 49 delay 1000;
#X obj 244 148 int;
#X obj 297 84 * 0.3;
#X obj 163 197 outlet vel;
#X obj 244 194 outlet dur;
#X floatatom 244 172 5 0 0 0 - - -, f 5;
#N canvas 316 241 387 359 \$0-arp-agent 0;
#X floatatom 56 109 10 0 0 0 - - -, f 10;
#X floatatom 148 114 5 0 0 0 - - -, f 5;
#X obj 56 145 * 2;
#X text 15 194 pitch;
#X obj 56 169 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 56 224 5 0 0 0 - - -, f 5;
#X obj 118 193 + 0;
#X obj 56 193 float;
#X obj 248 86 random 15;
#X obj 248 112 - 7;
#X obj 248 57 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 248 141 5 0 0 0 - - -, f 5;
#X obj 21 13 inlet trigger;
#X obj 56 297 outlet pitch;
#X obj 125 61 random 60;
#X obj 147 89 / 10;
#X obj 125 37 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 125 12 inlet rate-change;
#X obj 248 13 inlet int-change;
#X text 146 156 reset pitch;
#X obj 57 250 + 0.5;
#X obj 58 273 int;
#X obj 104 131 loadbang;
#X msg 105 155 48;
#X obj 119 217 expr if($f1 > 30 \, $f1 \, 48);
#X obj 122 244 expr if($f1 < 100 \, $f1 \, 48);
#N canvas 0 22 219 274 \$0-lfo 0;
#X floatatom 128 69 5 0 0 0 - - -, f 5;
#N canvas 154 262 208 195 now 0;
#X obj 36 18 inlet;
#X obj 40 139 outlet;
#X obj 39 50 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 40 111 15 0 0 0 - - -, f 15;
#X obj 79 51 r tick;
#X obj 39 83 int;
#X connect 0 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 4 0 5 1;
#X connect 5 0 3 0;
#X restore 27 68 pd now;
#X obj 128 30 inlet rate;
#X obj 28 28 inlet trigger;
#X obj 28 234 outlet result;
#X obj 28 181 sin;
#X obj 28 148 * 6.28319;
#X obj 28 122 / 360;
#X obj 27 96 * 1 1;
#X floatatom 28 207 10 0 0 0 - - -, f 10;
#X connect 0 0 8 1;
#X connect 1 0 8 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 4 0;
#X restore 56 77 pd \$0-lfo;
#X connect 0 0 2 0;
#X connect 1 0 26 1;
#X connect 2 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 7 0;
#X connect 5 0 20 0;
#X connect 6 0 24 0;
#X connect 7 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 2 1;
#X connect 9 0 11 0;
#X connect 10 0 8 0;
#X connect 12 0 26 0;
#X connect 14 0 15 0;
#X connect 15 0 1 0;
#X connect 16 0 14 0;
#X connect 17 0 16 0;
#X connect 18 0 10 0;
#X connect 20 0 21 0;
#X connect 21 0 13 0;
#X connect 22 0 23 0;
#X connect 23 0 7 1;
#X connect 24 0 25 0;
#X connect 25 0 7 1;
#X connect 26 0 0 0;
#X restore 38 116 pd \$0-arp-agent;
#N canvas 482 369 550 358 \$0-onset-delay 0;
#X obj 12 9 inlet tap;
#X obj 303 7 inlet beat-time;
#X obj 110 123 spigot 1;
#X obj 88 9 inlet vel;
#X obj 64 39 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 12 324 outlet;
#X obj 110 152 delay 500;
#X obj 272 43 / 2;
#X obj 185 140 spigot 1;
#X obj 186 242 delay 250;
#X obj 257 247 delay 750;
#X obj 344 39 / 4;
#X obj 344 67 * 3;
#X obj 257 197 sel 0;
#X obj 257 173 random 2;
#X obj 257 222 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 185 195 sel 0;
#X obj 185 171 random 2;
#X obj 185 220 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 104 68 5 0 0 0 - - -, f 5;
#X obj 330 194 spigot 1;
#X obj 330 249 sel 0;
#X obj 330 225 random 2;
#X obj 330 274 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 330 296 delay 125;
#X obj 382 38 / 8;
#X obj 29 232 delay 333;
#X obj 100 231 delay 667;
#X obj 308 40 / 3;
#X obj 309 68 * 2;
#X obj 29 121 spigot 1;
#N canvas 361 60 257 264 \$0-choose-path 0;
#X obj 43 102 pack;
#X floatatom 85 102 5 0 0 0 - - -, f 5;
#X obj 43 13 inlet val;
#X obj 43 188 outlet one;
#X obj 127 188 outlet two;
#X obj 43 44 t b b;
#X obj 42 159 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 100 161 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 43 74 random 6;
#X obj 43 131 route 0 1 2 3 4 5;
#X msg 108 75 -1;
#X connect 0 0 9 0;
#X connect 2 0 5 0;
#X connect 5 0 8 0;
#X connect 5 1 10 0;
#X connect 6 0 3 0;
#X connect 7 0 4 0;
#X connect 8 0 1 0;
#X connect 8 0 0 0;
#X connect 9 0 6 0;
#X connect 9 1 7 0;
#X connect 9 2 7 0;
#X connect 9 3 7 0;
#X connect 9 4 7 0;
#X connect 9 5 7 0;
#X connect 10 0 0 1;
#X restore 29 86 pd \$0-choose-path;
#X obj 230 114 expr if($i1 < 60 \, 0 \, 1);
#X obj 375 162 expr if($i1 < 85 \, 0 \, 1);
#X obj 88 38 expr if($i1 < 45 \, 0 \, 1);
#X connect 0 0 5 0;
#X connect 0 0 31 0;
#X connect 1 0 7 0;
#X connect 1 0 11 0;
#X connect 1 0 25 0;
#X connect 1 0 28 0;
#X connect 2 0 6 0;
#X connect 2 0 8 0;
#X connect 3 0 4 0;
#X connect 3 0 19 0;
#X connect 3 0 32 0;
#X connect 3 0 33 0;
#X connect 3 0 34 0;
#X connect 6 0 5 0;
#X connect 7 0 6 1;
#X connect 8 0 14 0;
#X connect 8 0 17 0;
#X connect 9 0 5 0;
#X connect 9 0 20 0;
#X connect 10 0 5 0;
#X connect 10 0 20 0;
#X connect 11 0 9 1;
#X connect 11 0 12 0;
#X connect 12 0 10 1;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 10 0;
#X connect 16 0 18 0;
#X connect 17 0 16 0;
#X connect 18 0 9 0;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 0;
#X connect 23 0 24 0;
#X connect 24 0 5 0;
#X connect 25 0 24 1;
#X connect 26 0 5 0;
#X connect 27 0 5 0;
#X connect 28 0 26 1;
#X connect 28 0 29 0;
#X connect 29 0 27 1;
#X connect 30 0 26 0;
#X connect 30 0 27 0;
#X connect 31 0 30 0;
#X connect 31 1 2 0;
#X connect 32 0 8 1;
#X connect 33 0 20 1;
#X connect 34 0 2 1;
#X connect 34 0 30 1;
#X restore 38 86 pd \$0-onset-delay;
#X floatatom 176 88 5 0 0 0 - - -, f 5;
#X floatatom 348 49 5 0 0 0 - - -, f 5;
#X obj 130 53 expr if($i1 < 45 \, $i2 \, $i2 * 2);
#X obj 160 114 expr if($i1 < 55 \, $i2 \, $i3);
#X obj 243 85 * 1.2;
#X floatatom 163 172 5 0 0 0 - - -, f 5;
#X obj 36 146 t f b;
#X connect 0 0 4 0;
#X connect 1 0 6 0;
#X connect 1 0 13 0;
#X connect 1 0 14 1;
#X connect 1 0 16 0;
#X connect 1 0 11 2;
#X connect 3 0 14 0;
#X connect 3 0 15 0;
#X connect 3 0 17 0;
#X connect 3 0 11 1;
#X connect 4 0 10 1;
#X connect 4 0 10 2;
#X connect 4 0 11 0;
#X connect 5 0 9 0;
#X connect 6 0 15 2;
#X connect 9 0 8 0;
#X connect 10 0 18 0;
#X connect 11 0 10 0;
#X connect 14 0 4 1;
#X connect 14 0 12 0;
#X connect 15 0 5 1;
#X connect 16 0 15 1;
#X connect 17 0 7 0;
#X connect 18 0 2 0;
#X connect 18 1 17 0;
#X connect 18 1 5 0;
#X restore 169 409 pd agent-b;
#N canvas 90 76 385 242 agent-a 0;
#X obj 38 17 inlet trigger;
#X obj 38 206 outlet pitches;
#X obj 139 17 inlet vel;
#X obj 152 206 outlet vel;
#X obj 244 206 outlet dur;
#X obj 244 142 int;
#X obj 199 154 bng 15 100 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 38 49 delay 500;
#X floatatom 154 177 5 0 0 0 - - -, f 5;
#X floatatom 244 166 5 0 0 0 - - -, f 5;
#X obj 38 142 t f b;
#N canvas 713 136 390 355 #0-arp-agent 0;
#X floatatom 56 109 10 0 0 0 - - -, f 10;
#X floatatom 89 57 5 0 0 0 - - -, f 5;
#X obj 56 145 * 2;
#X text 15 194 pitch;
#X obj 56 169 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 56 224 5 0 0 0 - - -, f 5;
#X obj 118 193 + 0;
#X obj 56 193 float;
#X obj 261 86 random 15;
#X obj 261 112 - 7;
#X obj 261 57 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 119 217 expr if($f1 > 30 \, $f1 \, 60);
#X obj 122 244 expr if($f1 < 100 \, $f1 \, 60);
#X floatatom 261 141 5 0 0 0 - - -, f 5;
#X obj 21 13 inlet trigger;
#X obj 58 299 outlet pitch;
#X obj 129 61 random 60;
#X obj 89 35 / 10;
#X obj 129 37 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 129 12 inlet rate-change;
#X obj 261 13 inlet int-change;
#X text 135 164 reset pitch;
#X obj 57 250 + 0.5;
#X obj 58 273 int;
#X msg 133 145 60;
#X obj 133 114 loadbang;
#N canvas 0 23 219 274 \$0-lfo 0;
#X floatatom 128 69 5 0 0 0 - - -, f 5;
#N canvas 154 262 208 195 now 0;
#X obj 36 18 inlet;
#X obj 40 139 outlet;
#X obj 39 50 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 40 111 15 0 0 0 - - -, f 15;
#X obj 79 51 r tick;
#X obj 39 83 int;
#X connect 0 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 4 0 5 1;
#X connect 5 0 3 0;
#X restore 27 68 pd now;
#X obj 128 30 inlet rate;
#X obj 28 28 inlet trigger;
#X obj 28 234 outlet result;
#X obj 28 181 sin;
#X obj 28 148 * 6.28319;
#X obj 28 122 / 360;
#X obj 27 96 * 1 1;
#X floatatom 28 207 10 0 0 0 - - -, f 10;
#X connect 0 0 8 1;
#X connect 1 0 8 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 4 0;
#X restore 56 77 pd \$0-lfo;
#X floatatom 124 271 5 0 0 0 - - -, f 5;
#X connect 0 0 2 0;
#X connect 1 0 26 1;
#X connect 2 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 7 0;
#X connect 5 0 22 0;
#X connect 6 0 11 0;
#X connect 7 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 2 1;
#X connect 9 0 13 0;
#X connect 10 0 8 0;
#X connect 11 0 12 0;
#X connect 12 0 7 1;
#X connect 12 0 27 0;
#X connect 14 0 26 0;
#X connect 16 0 17 0;
#X connect 17 0 1 0;
#X connect 18 0 16 0;
#X connect 19 0 18 0;
#X connect 20 0 10 0;
#X connect 22 0 23 0;
#X connect 23 0 15 0;
#X connect 24 0 7 1;
#X connect 25 0 24 0;
#X connect 26 0 0 0;
#X restore 38 116 pd #0-arp-agent;
#N canvas 202 378 525 355 \$0-onset-delay 0;
#X obj 12 9 inlet tap;
#X obj 303 7 inlet beat-time;
#X obj 110 123 spigot 1;
#X obj 88 9 inlet vel;
#X obj 64 39 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 88 38 expr if($i1 < 35 \, 0 \, 1);
#X obj 12 324 outlet;
#X obj 110 152 delay 500;
#X obj 272 43 / 2;
#X obj 185 140 spigot 1;
#X obj 186 242 delay 250;
#X obj 257 247 delay 750;
#X obj 344 39 / 4;
#X obj 344 67 * 3;
#X obj 257 197 sel 0;
#X obj 257 173 random 2;
#X obj 257 222 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 185 195 sel 0;
#X obj 185 171 random 2;
#X obj 185 220 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 230 114 expr if($i1 < 50 \, 0 \, 1);
#X floatatom 104 68 5 0 0 0 - - -, f 5;
#X obj 330 194 spigot 1;
#X obj 330 249 sel 0;
#X obj 330 225 random 2;
#X obj 330 274 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 375 162 expr if($i1 < 75 \, 0 \, 1);
#X obj 330 296 delay 125;
#X obj 382 38 / 8;
#X obj 29 232 delay 333;
#X obj 100 231 delay 667;
#X obj 308 40 / 3;
#X obj 309 68 * 2;
#X obj 29 121 spigot 1;
#N canvas 361 60 257 264 \$0-choose-path 0;
#X obj 43 102 pack;
#X floatatom 84 103 5 0 0 0 - - -, f 5;
#X obj 43 13 inlet val;
#X obj 43 188 outlet one;
#X obj 127 188 outlet two;
#X obj 43 44 t b b;
#X obj 42 159 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 100 161 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 43 74 random 6;
#X obj 43 131 route 0 1 2 3 4 5;
#X obj 137 19 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 123 74 -1;
#X connect 0 0 9 0;
#X connect 2 0 5 0;
#X connect 5 0 8 0;
#X connect 5 1 11 0;
#X connect 6 0 3 0;
#X connect 7 0 4 0;
#X connect 8 0 1 0;
#X connect 8 0 0 0;
#X connect 9 0 6 0;
#X connect 9 1 7 0;
#X connect 9 2 7 0;
#X connect 9 3 7 0;
#X connect 9 4 7 0;
#X connect 9 5 7 0;
#X connect 10 0 5 0;
#X connect 11 0 0 1;
#X restore 29 86 pd \$0-choose-path;
#X connect 0 0 6 0;
#X connect 0 0 34 0;
#X connect 1 0 8 0;
#X connect 1 0 12 0;
#X connect 1 0 28 0;
#X connect 1 0 31 0;
#X connect 2 0 7 0;
#X connect 2 0 9 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 3 0 20 0;
#X connect 3 0 21 0;
#X connect 3 0 26 0;
#X connect 5 0 2 1;
#X connect 5 0 33 1;
#X connect 7 0 6 0;
#X connect 8 0 7 1;
#X connect 9 0 15 0;
#X connect 9 0 18 0;
#X connect 10 0 6 0;
#X connect 10 0 22 0;
#X connect 11 0 6 0;
#X connect 11 0 22 0;
#X connect 12 0 10 1;
#X connect 12 0 13 0;
#X connect 13 0 11 1;
#X connect 14 0 16 0;
#X connect 15 0 14 0;
#X connect 16 0 11 0;
#X connect 17 0 19 0;
#X connect 18 0 17 0;
#X connect 19 0 10 0;
#X connect 20 0 9 1;
#X connect 22 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 23 0;
#X connect 25 0 27 0;
#X connect 26 0 22 1;
#X connect 27 0 6 0;
#X connect 28 0 27 1;
#X connect 29 0 6 0;
#X connect 30 0 6 0;
#X connect 31 0 29 1;
#X connect 31 0 32 0;
#X connect 32 0 30 1;
#X connect 33 0 29 0;
#X connect 33 0 30 0;
#X connect 34 0 33 0;
#X connect 34 1 2 0;
#X restore 38 86 pd \$0-onset-delay;
#X obj 130 53 expr if($i1 < 35 \, $i2 \, $i2);
#X obj 157 113 expr if($i1 < 35 \, $i2 \, $i3);
#X obj 237 88 * 1.2;
#X obj 297 84 * 0.3;
#X obj 213 17 inlet delay-dur;
#X floatatom 49 177 5 0 0 0 - - -, f 5;
#X connect 0 0 7 0;
#X connect 2 0 13 0;
#X connect 2 0 14 0;
#X connect 2 0 12 1;
#X connect 2 0 8 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 11 1;
#X connect 7 0 11 2;
#X connect 7 0 12 0;
#X connect 8 0 3 0;
#X connect 9 0 4 0;
#X connect 10 0 1 0;
#X connect 10 0 18 0;
#X connect 10 1 8 0;
#X connect 11 0 10 0;
#X connect 11 0 6 0;
#X connect 12 0 11 0;
#X connect 13 0 7 1;
#X connect 14 0 5 1;
#X connect 15 0 14 1;
#X connect 16 0 14 2;
#X connect 17 0 13 1;
#X connect 17 0 12 2;
#X connect 17 0 15 0;
#X connect 17 0 16 0;
#X restore 59 412 pd agent-a;
#X obj 378 88 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 397 222 2;
#X msg 430 222 3;
#X msg 462 223 4;
#X obj 405 189 t b b b;
#X msg 379 334 1;
#X text 144 338 comment;
#X text 295 133 MIDI channels (1 or 2-3-4);
#X obj 284 276 t b f;
#X obj 59 254 t b b;
#X msg 128 306 1;
#X obj 103 22 inlet tempo;
#X obj 192 259 noteout;
#X obj 192 233 spigot 0;
#X obj 7 301 s met, f 6;
#X obj 217 131 s tempo;
#X msg 303 210 1;
#N canvas 0 23 159 262 ave-vel 0;
#X obj 37 37 inlet;
#X obj 45 204 outlet;
#X obj 64 90 f;
#X obj 47 118 +;
#X obj 37 64 t f b;
#X obj 46 148 / 2;
#X floatatom 45 173 5 0 0 0 - - -, f 5;
#X connect 0 0 4 0;
#X connect 2 0 3 1;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 4 1 2 0;
#X connect 5 0 2 1;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X restore 284 252 pd ave-vel;
#N canvas 644 364 336 204 \$0-recent-pitch-class-set 0;
#X obj 13 15 inlet;
#X obj 13 47 % 12;
#X floatatom 13 74 5 0 0 0 - - -, f 5;
#X obj 13 133 list append;
#X obj 13 99 t f b;
#X obj 13 163 outlet;
#X text 63 17 Accumulate the n most recent;
#X text 64 44 pitch classes and output as a list;
#X obj 75 163 print pcs;
#X obj 150 163 print split;
#X obj 104 133 list split 11;
#X msg 58 100 0 0 0 0 0 0 0 0 0 0 0;
#X obj 58 73 loadbang;
#X obj 125 75 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 3 0 10 0;
#X connect 4 0 3 0;
#X connect 4 1 3 0;
#X connect 10 0 3 1;
#X connect 11 0 3 0;
#X connect 12 0 11 0;
#X connect 13 0 11 0;
#X restore 241 311 pd \$0-recent-pitch-class-set;
#X obj 200 289 f;
#X obj 259 256 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 141 53 / 2;
#X msg 174 103 60;
#X obj 378 115 sel 0;
#X obj 355 170 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 427 156 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 440 340 5 0 0 0 - - -, f 5;
#X obj 489 337 ctlout 64 1;
#X obj 461 366 ctlout 64 2;
#X obj 487 391 ctlout 64 3;
#X obj 505 419 ctlout 64 4;
#X text 432 278 Pedal pass through;
#X obj 465 65 loadbang;
#X obj 465 114 s init-tempo;
#X msg 465 90 120;
#X msg 434 91 30;
#X obj 461 141 s init-dyn-range;
#X obj 308 23 inlet dyn-range;
#X obj 308 45 s dyn-range;
#X obj 188 23 inlet dyn-offset;
#X obj 241 111 s dyn-offset;
#X obj 464 163 s init-dyn-level;
#X msg 505 90 0;
#X obj 119 232 s pulse;
#N canvas 810 213 323 162 dyn-var 0;
#X obj 32 19 inlet pulse;
#X obj 32 94 s dyn-var;
#X obj 32 59 expr cos(4 * 3.14159 / 16 * $f1) * 20;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 113 258 pd dyn-var;
#N canvas 35 113 695 549 microphone-input 0;
#X obj 91 22 adc~;
#X obj 23 144 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 116 84 *~ 1;
#X floatatom 115 172 5 0 0 0 - - -, f 5;
#X obj 144 43 hsl 128 15 0 1 0 0 empty input-gain Input_Gain -2 -8
0 10 -204786 -1 -1 3229 1;
#N canvas 592 139 325 274 map-level 0;
#X obj 32 56 *~ 0.01;
#X obj 32 83 env~ 1024;
#X obj 34 171 outlet;
#X obj 35 23 inlet~;
#X obj 32 107 - 30;
#X obj 33 138 expr if ($i1 < -20 \, $i1 * 3 \, $i1);
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X restore 22 113 pd map-level;
#N canvas 0 23 192 194 round 0;
#X obj 49 43 + 0.49999;
#X obj 49 76 int;
#X obj 49 12 inlet;
#X obj 49 107 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 116 140 pd round;
#X obj 141 11 inlet gain;
#X obj 8 275 s mic-level;
#X obj 46 443 outlet pitches;
#X obj 197 434 s onset-detected;
#X floatatom 74 159 5 0 0 0 - - -, f 5;
#N canvas 0 359 555 300 map 0;
#X obj 28 19 inlet input;
#X obj 115 20 inlet in-min;
#X obj 212 22 inlet in-max;
#X obj 300 23 inlet out-min;
#X obj 401 21 inlet out-max;
#X obj 32 262 outlet output;
#X obj 97 61 -;
#X obj 187 62 -;
#X obj 361 62 -;
#X obj 140 102 /;
#X obj 245 133 *;
#X obj 245 178 +;
#X text 333 130 Y = (X-A)/(B-A) * (D-C) + C, f 18;
#X connect 0 0 6 0;
#X connect 1 0 6 1;
#X connect 1 0 7 1;
#X connect 2 0 7 0;
#X connect 3 0 8 1;
#X connect 3 0 11 1;
#X connect 4 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 9 1;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 5 0;
#X restore 472 347 pd map;
#X msg 590 320 127;
#X obj 452 416 outlet vel;
#X obj 547 286 loadbang;
#X obj 308 21 r mic-input;
#X obj 308 45 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 308 71 \; pd dsp \$1;
#X obj 104 239 spigot 0;
#X floatatom 74 300 5 0 0 0 - - -, f 5;
#X floatatom 201 267 5 0 0 0 - - -, f 5;
#X obj 155 213 + 0;
#X obj 118 268 change;
#X msg 190 235 set 0;
#X obj 116 113 fiddle~ 2048 1 100 0;
#X obj 176 314 delay 200;
#X floatatom 294 179 5 0 0 0 - - -, f 5;
#X msg 552 319 0;
#X obj 462 376 int;
#X floatatom 487 397 5 0 0 0 - - -, f 5;
#X obj 293 111 env~;
#X floatatom 309 134 5 0 0 0 - - -, f 5;
#X obj 294 152 expr if ($i1 > 40 \, $i1 \, 0);
#N canvas 634 448 543 312 filter-pitches 0;
#X obj 56 64 % 12;
#X floatatom 58 91 5 0 0 0 - - -, f 5;
#X obj 109 55 int;
#X obj 56 116 route 0 1 2 3 4 5 6 7 8 9 10 11, f 36;
#X floatatom 110 78 5 0 0 0 - - -, f 5;
#X obj 31 260 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 58 29 t f f;
#X obj 54 168 spigot 0;
#X obj 107 142 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 69 192 spigot 0;
#X obj 122 166 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 84 216 spigot 0;
#X obj 137 190 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 101 238 spigot 0;
#X obj 154 212 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 152 168 spigot 0;
#X obj 167 192 spigot 0;
#X obj 220 166 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 182 216 spigot 0;
#X obj 235 190 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 199 238 spigot 0;
#X obj 252 212 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 205 140 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 247 166 spigot 0;
#X obj 262 190 spigot 0;
#X obj 315 164 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 277 214 spigot 0;
#X obj 330 188 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 294 236 spigot 0;
#X obj 347 210 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 300 138 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 110 96 outlet pitch;
#X obj 58 4 inlet pitch;
#X obj 179 31 inlet;
#X obj 162 7 inlet;
#X obj 212 7 inlet;
#X obj 227 30 inlet;
#X obj 259 8 inlet;
#X obj 274 28 inlet;
#X obj 308 6 inlet;
#X obj 318 30 inlet;
#X obj 353 6 inlet;
#X obj 365 31 inlet;
#X obj 400 4 inlet;
#X obj 412 29 inlet, f 37;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 7 0;
#X connect 3 1 9 0;
#X connect 3 2 11 0;
#X connect 3 3 13 0;
#X connect 3 4 15 0;
#X connect 3 5 16 0;
#X connect 3 6 18 0;
#X connect 3 7 20 0;
#X connect 3 8 23 0;
#X connect 3 9 24 0;
#X connect 3 10 26 0;
#X connect 3 11 28 0;
#X connect 4 0 31 0;
#X connect 5 0 2 0;
#X connect 6 0 0 0;
#X connect 6 1 2 1;
#X connect 7 0 5 0;
#X connect 8 0 7 1;
#X connect 9 0 5 0;
#X connect 10 0 9 1;
#X connect 11 0 5 0;
#X connect 12 0 11 1;
#X connect 13 0 5 0;
#X connect 14 0 13 1;
#X connect 15 0 5 0;
#X connect 16 0 5 0;
#X connect 17 0 16 1;
#X connect 18 0 5 0;
#X connect 19 0 18 1;
#X connect 20 0 5 0;
#X connect 21 0 20 1;
#X connect 22 0 15 1;
#X connect 23 0 5 0;
#X connect 24 0 5 0;
#X connect 25 0 24 1;
#X connect 26 0 5 0;
#X connect 27 0 26 1;
#X connect 28 0 5 0;
#X connect 29 0 28 1;
#X connect 30 0 23 1;
#X connect 32 0 6 0;
#X connect 33 0 10 0;
#X connect 34 0 8 0;
#X connect 35 0 12 0;
#X connect 36 0 14 0;
#X connect 37 0 22 0;
#X connect 38 0 17 0;
#X connect 39 0 19 0;
#X connect 40 0 21 0;
#X connect 41 0 30 0;
#X connect 42 0 25 0;
#X connect 43 0 27 0;
#X connect 44 0 29 0;
#X restore 48 406 pd filter-pitches;
#X obj 69 381 tgl 15 0 empty filter-p0 empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 90 381 tgl 15 0 empty filter-p1 empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 112 381 tgl 15 0 empty filter-p2 empty 17 7 0 10 -262144 -1
-1 1 1;
#X obj 133 381 tgl 15 0 empty filter-p3 empty 17 7 0 10 -262144 -1
-1 0 1;
#X obj 154 381 tgl 15 0 empty filter-p4 empty 17 7 0 10 -262144 -1
-1 1 1;
#X obj 176 381 tgl 15 0 empty filter-p5 empty 17 7 0 10 -262144 -1
-1 1 1;
#X obj 197 381 tgl 15 0 empty filter-p6 empty 17 7 0 10 -262144 -1
-1 0 1;
#X obj 218 381 tgl 15 0 empty filter-p7 empty 17 7 0 10 -262144 -1
-1 1 1;
#X obj 240 381 tgl 15 0 empty filter-p8 empty 17 7 0 10 -262144 -1
-1 0 1;
#X obj 261 381 tgl 15 0 empty filter-p9 empty 17 7 0 10 -262144 -1
-1 1 1;
#X obj 282 381 tgl 15 0 empty filter-p10 empty 17 7 0 10 -262144 -1
-1 0 1;
#X obj 304 381 tgl 15 0 empty filter-p11 11 17 7 0 10 -262144 -1 -1
1 1;
#X msg 392 58 -100;
#X obj 392 84 s mic-level;
#X text 68 359 0;
#X text 92 360 1;
#X text 116 361 2;
#X text 133 360 3;
#X text 157 361 4;
#X text 181 360 5;
#X text 199 360 6;
#X text 220 360 7;
#X text 242 360 8;
#X text 262 359 9;
#X text 282 361 10;
#X text 309 362 11;
#X text 338 364 Pitch Classes;
#X obj 128 331 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 5 470 s pitch-found;
#X obj 141 62 pow 2;
#X obj 251 212 expr if ($i1 > -30 \, $i1 + 30 \, 0);
#X floatatom 253 236 5 0 0 0 - - -, f 5;
#X obj 254 258 sel 0;
#X msg 481 321 0;
#N canvas 612 193 450 300 largest 0;
#X obj 45 124 int;
#X floatatom 45 47 5 0 0 0 - - -, f 5;
#X obj 46 89 expr if ($i1 > $i2 \, $i1 \, $i2);
#X obj 45 64 t f b;
#X floatatom 50 152 5 0 0 0 - - -, f 5;
#X obj 45 13 inlet;
#X obj 42 182 outlet;
#X obj 124 16 inlet reset;
#X obj 173 48 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 15 154 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 125 44 5;
#X connect 0 0 2 1;
#X connect 0 0 4 0;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
#X connect 3 1 0 0;
#X connect 4 0 6 0;
#X connect 5 0 1 0;
#X connect 7 0 10 0;
#X connect 7 0 8 0;
#X connect 10 0 0 1;
#X restore 385 302 pd largest;
#X obj 74 189 t f f;
#X floatatom 279 292 5 0 0 0 - - -, f 5;
#X floatatom 387 332 5 0 0 0 - - -, f 5;
#X obj 119 295 t f b b;
#X obj 452 273 delay 1000;
#X msg 515 319 50;
#X connect 0 0 2 0;
#X connect 0 1 2 0;
#X connect 2 0 5 0;
#X connect 2 0 25 0;
#X connect 3 0 19 0;
#X connect 4 0 64 0;
#X connect 5 0 1 0;
#X connect 5 0 8 0;
#X connect 5 0 11 0;
#X connect 6 0 3 0;
#X connect 7 0 4 0;
#X connect 11 0 70 0;
#X connect 12 0 29 1;
#X connect 13 0 12 4;
#X connect 15 0 68 0;
#X connect 15 0 75 0;
#X connect 15 0 28 0;
#X connect 15 0 13 0;
#X connect 16 0 17 0;
#X connect 16 0 47 0;
#X connect 17 0 18 0;
#X connect 19 0 23 0;
#X connect 22 0 19 1;
#X connect 22 0 21 0;
#X connect 23 0 20 0;
#X connect 23 0 73 0;
#X connect 24 0 23 0;
#X connect 25 0 6 0;
#X connect 26 0 24 0;
#X connect 28 0 12 3;
#X connect 29 0 14 0;
#X connect 29 0 30 0;
#X connect 31 0 32 0;
#X connect 31 0 33 0;
#X connect 33 0 27 0;
#X connect 34 0 10 0;
#X connect 34 0 9 0;
#X connect 34 0 63 0;
#X connect 35 0 34 1;
#X connect 36 0 34 2;
#X connect 37 0 34 3;
#X connect 38 0 34 4;
#X connect 39 0 34 5;
#X connect 40 0 34 6;
#X connect 41 0 34 7;
#X connect 42 0 34 8;
#X connect 43 0 34 9;
#X connect 44 0 34 10;
#X connect 45 0 34 11;
#X connect 46 0 34 12;
#X connect 47 0 48 0;
#X connect 64 0 2 1;
#X connect 65 0 66 0;
#X connect 66 0 67 0;
#X connect 67 1 71 0;
#X connect 67 1 69 0;
#X connect 68 0 12 1;
#X connect 69 0 12 0;
#X connect 69 0 72 0;
#X connect 70 0 22 0;
#X connect 70 1 65 0;
#X connect 73 0 34 0;
#X connect 73 0 62 0;
#X connect 73 1 26 0;
#X connect 73 2 29 0;
#X connect 73 2 74 0;
#X connect 74 0 69 1;
#X connect 75 0 12 2;
#X restore 591 25 pd microphone-input;
#X floatatom 602 173 5 0 0 0 - - -, f 5;
#X obj 598 96 t f b;
#X msg 618 149 0;
#X obj 617 121 delay 10;
#X obj 505 21 r pass-thru;
#X obj 424 22 r chan;
#X obj 504 41 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 477 306 ctlin 64;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 3 0 5 0;
#X connect 3 0 10 0;
#X connect 4 0 8 0;
#X connect 4 0 16 0;
#X connect 4 0 50 0;
#X connect 5 0 6 0;
#X connect 5 0 77 0;
#X connect 5 0 78 0;
#X connect 6 0 43 0;
#X connect 7 0 17 0;
#X connect 8 0 1 0;
#X connect 9 0 8 1;
#X connect 11 0 15 0;
#X connect 12 0 9 0;
#X connect 14 0 56 0;
#X connect 14 0 24 0;
#X connect 15 0 12 0;
#X connect 15 0 28 0;
#X connect 16 0 1 1;
#X connect 17 0 27 0;
#X connect 17 0 33 0;
#X connect 17 0 32 0;
#X connect 17 0 31 0;
#X connect 18 0 17 1;
#X connect 19 0 18 0;
#X connect 20 0 21 0;
#X connect 20 1 23 0;
#X connect 20 1 46 1;
#X connect 20 2 46 2;
#X connect 21 0 47 0;
#X connect 21 0 53 1;
#X connect 22 0 51 0;
#X connect 22 0 54 0;
#X connect 23 1 22 0;
#X connect 24 0 56 0;
#X connect 24 0 50 0;
#X connect 25 0 4 0;
#X connect 28 0 32 2;
#X connect 28 0 31 2;
#X connect 28 0 33 2;
#X connect 31 0 30 0;
#X connect 31 1 30 1;
#X connect 31 2 30 2;
#X connect 32 0 29 0;
#X connect 32 1 29 1;
#X connect 32 2 29 2;
#X connect 33 0 26 0;
#X connect 33 1 26 1;
#X connect 33 2 26 2;
#X connect 34 0 57 0;
#X connect 35 0 26 3;
#X connect 36 0 29 3;
#X connect 37 0 30 3;
#X connect 38 0 35 0;
#X connect 38 1 36 0;
#X connect 38 2 37 0;
#X connect 39 0 26 3;
#X connect 39 0 29 3;
#X connect 39 0 30 3;
#X connect 42 0 44 0;
#X connect 42 1 33 1;
#X connect 42 1 32 1;
#X connect 42 1 31 1;
#X connect 43 0 19 0;
#X connect 43 1 7 0;
#X connect 43 1 48 0;
#X connect 44 0 18 0;
#X connect 45 0 55 0;
#X connect 47 0 46 0;
#X connect 50 0 22 0;
#X connect 51 0 42 0;
#X connect 52 0 26 4;
#X connect 52 0 29 4;
#X connect 52 0 30 4;
#X connect 53 0 52 0;
#X connect 54 0 53 0;
#X connect 55 0 11 0;
#X connect 56 0 11 0;
#X connect 56 0 49 0;
#X connect 57 0 39 0;
#X connect 57 0 58 0;
#X connect 57 1 38 0;
#X connect 57 1 59 0;
#X connect 66 0 68 0;
#X connect 66 0 69 0;
#X connect 66 0 76 0;
#X connect 68 0 67 0;
#X connect 69 0 70 0;
#X connect 71 0 72 0;
#X connect 73 0 74 0;
#X connect 76 0 75 0;
#X connect 79 0 21 0;
#X connect 79 1 81 0;
#X connect 80 0 23 0;
#X connect 80 0 46 1;
#X connect 81 0 80 0;
#X connect 81 1 83 0;
#X connect 82 0 80 0;
#X connect 83 0 82 0;
#X connect 84 0 86 0;
#X connect 85 0 34 0;
#X connect 86 0 47 1;
#X connect 87 0 60 0;
#X connect 87 0 61 0;
#X connect 87 0 62 0;
#X connect 87 0 63 0;
#X connect 87 0 64 0;
#X restore 148 179 pd ripples_main;
#X obj 26 40 tgl 100 1 empty empty Start-Stop 17 7 0 10 -4034 -1 -1
0 1;
#X floatatom 148 146 5 0 0 0 bpm - -, f 5;
#X obj 373 100 tgl 40 0 chan empty Ch_2-3-4 -5 -10 0 10 -232576 -1
-1 0 1;
#X obj 27 159 bng 25 100 50 0 empty met empty 17 7 0 10 -228856 -1
-1;
#X obj 371 39 tgl 40 0 pass-thru empty MIDI_Pass_Thru -17 -10 0 10
-262130 -1 -1 0 1;
#X floatatom 297 146 5 0 0 0 - - -, f 5;
#X obj 297 57 vsl 53 80 0 60 0 0 empty init-dyn-range Dyn_Range 0 -10
0 10 -228856 -1 -1 3950 1;
#X obj 148 56 vsl 53 80 60 200 0 0 empty init-tempo Tempo 10 -10 0
10 -203904 -1 -1 3386 1;
#X floatatom 222 146 5 0 0 0 - - -, f 5;
#X obj 222 56 vsl 53 80 -60 60 0 0 empty init-dyn-level Dyn_Level 0
-10 0 10 -261234 -1 -1 3950 1;
#X text 24 215 Pd edition: 2016-2018;
#X obj 463 37 hsl 60 15 0 1 0 0 input-gain empty Audio_Input_Gain -10
-8 0 10 -204786 -1 -1 1500 1;
#X obj 466 77 vu 15 120 mic-level empty -1 -8 0 10 -66577 -1 1 0;
#X obj 518 66 bng 15 50 50 0 empty onset-detected empty 17 7 0 10 -262144
-1 -1;
#X obj 375 159 tgl 40 0 mic-input empty Mic_input -4 -10 0 10 -204786
-1 -1 0 1;
#N canvas 778 403 334 98 pitch-filter 0;
#X obj 18 35 tgl 15 0 filter-p0 empty 0 4 -10 0 10 -262144 -1 -1 1
1;
#X obj 39 35 tgl 15 0 filter-p1 empty 1 4 -10 0 10 -262144 -1 -1 0
1;
#X obj 61 35 tgl 15 0 filter-p2 empty 2 4 -10 0 10 -262144 -1 -1 1
1;
#X obj 82 35 tgl 15 0 filter-p3 empty 3 4 -10 0 10 -262144 -1 -1 0
1;
#X obj 103 35 tgl 15 0 filter-p4 empty 4 4 -10 0 10 -262144 -1 -1 1
1;
#X obj 125 35 tgl 15 0 filter-p5 empty 5 4 -10 0 10 -262144 -1 -1 1
1;
#X obj 146 35 tgl 15 0 filter-p6 empty 6 4 -10 0 10 -262144 -1 -1 0
1;
#X obj 167 35 tgl 15 0 filter-p7 empty 7 4 -10 0 10 -262144 -1 -1 1
1;
#X obj 189 35 tgl 15 0 filter-p8 empty 8 4 -10 0 10 -262144 -1 -1 0
1;
#X obj 210 35 tgl 15 0 filter-p9 empty 9 4 -10 0 10 -262144 -1 -1 1
1;
#X obj 231 35 tgl 15 0 filter-p10 empty 10 2 -10 0 10 -262144 -1 -1
0 1;
#X obj 253 35 tgl 15 0 filter-p11 empty 11 2 -10 0 10 -262144 -1 -1
1 1;
#X text 96 59 Pitch Classes;
#X restore 463 211 pd pitch-filter;
#X floatatom 519 99 3 0 0 2 Pitch pitch-found -, f 3;
#X connect 2 0 1 0;
#X connect 3 0 1 1;
#X connect 7 0 1 3;
#X connect 8 0 7 0;
#X connect 9 0 3 0;
#X connect 10 0 1 2;
#X connect 11 0 10 0;