#N canvas 158 136 364 208 10;
#X text 108 16 Lost in translation;
#N canvas 436 289 550 374 lostintranslation 0;
#N canvas 0 0 466 879 --------------------htree 0;
#X obj 22 772 outlet;
#X obj 37 39 inlet;
#X obj 94 466 *;
#X obj 143 498 *;
#X obj 196 528 *;
#X obj 245 557 *;
#X obj 295 595 *;
#X obj 344 634 *;
#X obj 395 670 *;
#N canvas 0 0 450 384 rir 0;
#X obj 122 132 random 7;
#X obj 186 131 random 6;
#X obj 122 159 + 1;
#X obj 186 159 + 1;
#X obj 122 292 outlet;
#X obj 122 267 /;
#X obj 122 24 inlet;
#X obj 122 186 pack f f;
#X obj 237 105 - 1;
#X obj 122 76 t b b f f;
#X obj 122 50 max 3;
#X obj 122 209 sort;
#X obj 122 234 unpack f f;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 7 1;
#X connect 5 0 4 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 1 1;
#X connect 9 0 0 0;
#X connect 9 1 1 0;
#X connect 9 2 0 1;
#X connect 9 3 8 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 5 0;
#X connect 12 1 5 1;
#X restore 93 219 pd rir;
#X obj 230 37 inlet;
#X obj 21 220 f;
#X obj 184 320 pack f f f f f f f;
#X obj 184 367 unpack f f f f f f f;
#X obj 260 165 t f f f f f f f;
#X obj 230 126 t b f;
#X obj 37 84 t f b;
#X obj 184 343 sort -1;
#X obj 110 442 pow -1;
#X obj 161 475 pow -1;
#X obj 213 504 pow -1;
#X obj 265 535 pow -1;
#X obj 310 572 pow -1;
#X obj 360 611 pow -1;
#X obj 411 646 pow -1;
#X obj 22 743 pack f f f f f f f f;
#X text 168 823 http://www.csounds.com/ezine/trees/;
#X text 167 806 Based on the musings of Jacob T. Joaquin;
#X text 167 842 ajf2006;
#X text 167 788 Sorted harmonic tree;
#N canvas 0 0 450 384 rir 0;
#X obj 122 132 random 7;
#X obj 186 131 random 6;
#X obj 122 159 + 1;
#X obj 186 159 + 1;
#X obj 122 292 outlet;
#X obj 122 267 /;
#X obj 122 24 inlet;
#X obj 122 186 pack f f;
#X obj 237 105 - 1;
#X obj 122 76 t b b f f;
#X obj 122 50 max 3;
#X obj 122 209 sort;
#X obj 122 234 unpack f f;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 7 1;
#X connect 5 0 4 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 1 1;
#X connect 9 0 0 0;
#X connect 9 1 1 0;
#X connect 9 2 0 1;
#X connect 9 3 8 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 5 0;
#X connect 12 1 5 1;
#X restore 147 219 pd rir;
#N canvas 0 0 450 384 rir 0;
#X obj 122 132 random 7;
#X obj 186 131 random 6;
#X obj 122 159 + 1;
#X obj 186 159 + 1;
#X obj 122 292 outlet;
#X obj 122 267 /;
#X obj 122 24 inlet;
#X obj 122 186 pack f f;
#X obj 237 105 - 1;
#X obj 122 76 t b b f f;
#X obj 122 50 max 3;
#X obj 122 209 sort;
#X obj 122 234 unpack f f;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 7 1;
#X connect 5 0 4 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 1 1;
#X connect 9 0 0 0;
#X connect 9 1 1 0;
#X connect 9 2 0 1;
#X connect 9 3 8 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 5 0;
#X connect 12 1 5 1;
#X restore 201 219 pd rir;
#N canvas 0 0 450 384 rir 0;
#X obj 122 132 random 7;
#X obj 186 131 random 6;
#X obj 122 159 + 1;
#X obj 186 159 + 1;
#X obj 122 292 outlet;
#X obj 122 267 /;
#X obj 122 24 inlet;
#X obj 122 186 pack f f;
#X obj 237 105 - 1;
#X obj 122 76 t b b f f;
#X obj 122 50 max 3;
#X obj 122 209 sort;
#X obj 122 234 unpack f f;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 7 1;
#X connect 5 0 4 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 1 1;
#X connect 9 0 0 0;
#X connect 9 1 1 0;
#X connect 9 2 0 1;
#X connect 9 3 8 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 5 0;
#X connect 12 1 5 1;
#X restore 255 219 pd rir;
#N canvas 0 0 450 384 rir 0;
#X obj 122 132 random 7;
#X obj 186 131 random 6;
#X obj 122 159 + 1;
#X obj 186 159 + 1;
#X obj 122 292 outlet;
#X obj 122 267 /;
#X obj 122 24 inlet;
#X obj 122 186 pack f f;
#X obj 237 105 - 1;
#X obj 122 76 t b b f f;
#X obj 122 50 max 3;
#X obj 122 209 sort;
#X obj 122 234 unpack f f;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 7 1;
#X connect 5 0 4 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 1 1;
#X connect 9 0 0 0;
#X connect 9 1 1 0;
#X connect 9 2 0 1;
#X connect 9 3 8 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 5 0;
#X connect 12 1 5 1;
#X restore 306 219 pd rir;
#N canvas 0 0 450 384 rir 0;
#X obj 122 132 random 7;
#X obj 186 131 random 6;
#X obj 122 159 + 1;
#X obj 186 159 + 1;
#X obj 122 292 outlet;
#X obj 122 267 /;
#X obj 122 24 inlet;
#X obj 122 186 pack f f;
#X obj 237 105 - 1;
#X obj 122 76 t b b f f;
#X obj 122 50 max 3;
#X obj 122 209 sort;
#X obj 122 234 unpack f f;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 7 1;
#X connect 5 0 4 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 1 1;
#X connect 9 0 0 0;
#X connect 9 1 1 0;
#X connect 9 2 0 1;
#X connect 9 3 8 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 5 0;
#X connect 12 1 5 1;
#X restore 360 219 pd rir;
#N canvas 0 0 450 384 rir 0;
#X obj 122 132 random 7;
#X obj 186 131 random 6;
#X obj 122 159 + 1;
#X obj 186 159 + 1;
#X obj 122 292 outlet;
#X obj 122 267 /;
#X obj 122 24 inlet;
#X obj 122 186 pack f f;
#X obj 237 105 - 1;
#X obj 122 76 t b b f f;
#X obj 122 50 max 3;
#X obj 122 209 sort;
#X obj 122 234 unpack f f;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 7 1;
#X connect 5 0 4 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 1 1;
#X connect 9 0 0 0;
#X connect 9 1 1 0;
#X connect 9 2 0 1;
#X connect 9 3 8 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 5 0;
#X connect 12 1 5 1;
#X restore 414 219 pd rir;
#X connect 1 0 16 0;
#X connect 2 0 3 0;
#X connect 2 0 25 1;
#X connect 3 0 4 0;
#X connect 3 0 25 2;
#X connect 4 0 5 0;
#X connect 4 0 25 3;
#X connect 5 0 6 0;
#X connect 5 0 25 4;
#X connect 6 0 7 0;
#X connect 6 0 25 5;
#X connect 7 0 8 0;
#X connect 7 0 25 6;
#X connect 8 0 25 7;
#X connect 9 0 12 0;
#X connect 10 0 15 0;
#X connect 11 0 2 0;
#X connect 11 0 25 0;
#X connect 12 0 17 0;
#X connect 13 0 18 0;
#X connect 13 1 19 0;
#X connect 13 2 20 0;
#X connect 13 3 21 0;
#X connect 13 4 22 0;
#X connect 13 5 23 0;
#X connect 13 6 24 0;
#X connect 14 0 9 0;
#X connect 14 1 30 0;
#X connect 14 2 31 0;
#X connect 14 3 32 0;
#X connect 14 4 33 0;
#X connect 14 5 34 0;
#X connect 14 6 35 0;
#X connect 15 0 11 0;
#X connect 15 1 14 0;
#X connect 16 0 11 1;
#X connect 16 1 15 0;
#X connect 17 0 13 0;
#X connect 18 0 2 1;
#X connect 19 0 3 1;
#X connect 20 0 4 1;
#X connect 21 0 5 1;
#X connect 22 0 6 1;
#X connect 23 0 7 1;
#X connect 24 0 8 1;
#X connect 25 0 0 0;
#X connect 30 0 12 1;
#X connect 31 0 12 2;
#X connect 32 0 12 3;
#X connect 33 0 12 4;
#X connect 34 0 12 5;
#X connect 35 0 12 6;
#X restore 19 113 pd --------------------htree;
#N canvas 0 0 559 342 stampblips 0;
#N canvas 0 0 528 439 blip 0;
#X obj 153 236 osc~;
#X obj 190 236 vline~;
#X obj 189 262 *~;
#X obj 172 285 *~;
#X obj 153 26 inlet;
#X obj 172 331 outlet~;
#X msg 190 202 1 2 0 \, 0 \$1 3;
#X obj 190 108 log;
#X obj 190 85 pow 4;
#X obj 190 151 * 1e+06;
#X obj 190 130 pow -3;
#X obj 190 174 * 2;
#X obj 259 25 inlet;
#X obj 265 87 pow -1;
#X obj 265 112 * 1000;
#X obj 153 56 t f f f;
#X obj 265 136 log;
#X obj 265 159 min 3;
#X obj 173 307 *~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 1;
#X connect 3 0 18 0;
#X connect 4 0 15 0;
#X connect 6 0 1 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 0 0;
#X connect 15 1 8 0;
#X connect 15 2 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 5 0;
#X restore 129 158 pd blip;
#N canvas 0 0 528 439 blip 0;
#X obj 153 236 osc~;
#X obj 190 236 vline~;
#X obj 189 262 *~;
#X obj 172 285 *~;
#X obj 153 26 inlet;
#X obj 172 331 outlet~;
#X msg 190 202 1 2 0 \, 0 \$1 3;
#X obj 190 108 log;
#X obj 190 85 pow 4;
#X obj 190 151 * 1e+06;
#X obj 190 130 pow -3;
#X obj 190 174 * 2;
#X obj 259 25 inlet;
#X obj 265 87 pow -1;
#X obj 265 112 * 1000;
#X obj 153 56 t f f f;
#X obj 265 136 log;
#X obj 265 159 min 3;
#X obj 173 307 *~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 1;
#X connect 3 0 18 0;
#X connect 4 0 15 0;
#X connect 6 0 1 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 0 0;
#X connect 15 1 8 0;
#X connect 15 2 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 5 0;
#X restore 188 158 pd blip;
#N canvas 0 0 528 439 blip 0;
#X obj 153 236 osc~;
#X obj 190 236 vline~;
#X obj 189 262 *~;
#X obj 172 285 *~;
#X obj 153 26 inlet;
#X obj 172 331 outlet~;
#X msg 190 202 1 2 0 \, 0 \$1 3;
#X obj 190 108 log;
#X obj 190 85 pow 4;
#X obj 190 151 * 1e+06;
#X obj 190 130 pow -3;
#X obj 190 174 * 2;
#X obj 259 25 inlet;
#X obj 265 87 pow -1;
#X obj 265 112 * 1000;
#X obj 153 56 t f f f;
#X obj 265 136 log;
#X obj 265 159 min 3;
#X obj 173 307 *~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 1;
#X connect 3 0 18 0;
#X connect 4 0 15 0;
#X connect 6 0 1 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 0 0;
#X connect 15 1 8 0;
#X connect 15 2 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 5 0;
#X restore 72 159 pd blip;
#N canvas 0 0 528 439 blip 0;
#X obj 153 236 osc~;
#X obj 190 236 vline~;
#X obj 189 262 *~;
#X obj 172 285 *~;
#X obj 153 26 inlet;
#X obj 172 331 outlet~;
#X msg 190 202 1 2 0 \, 0 \$1 3;
#X obj 190 108 log;
#X obj 190 85 pow 4;
#X obj 190 151 * 1e+06;
#X obj 190 130 pow -3;
#X obj 190 174 * 2;
#X obj 259 25 inlet;
#X obj 265 87 pow -1;
#X obj 265 112 * 1000;
#X obj 153 56 t f f f;
#X obj 265 136 log;
#X obj 265 159 min 3;
#X obj 173 307 *~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 1;
#X connect 3 0 18 0;
#X connect 4 0 15 0;
#X connect 6 0 1 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 0 0;
#X connect 15 1 8 0;
#X connect 15 2 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 5 0;
#X restore 361 157 pd blip;
#N canvas 0 0 528 439 blip 0;
#X obj 153 236 osc~;
#X obj 190 236 vline~;
#X obj 189 262 *~;
#X obj 172 285 *~;
#X obj 153 26 inlet;
#X obj 172 331 outlet~;
#X msg 190 202 1 2 0 \, 0 \$1 3;
#X obj 190 108 log;
#X obj 190 85 pow 4;
#X obj 190 151 * 1e+06;
#X obj 190 130 pow -3;
#X obj 190 174 * 2;
#X obj 259 25 inlet;
#X obj 265 87 pow -1;
#X obj 265 112 * 1000;
#X obj 153 56 t f f f;
#X obj 265 136 log;
#X obj 265 159 min 3;
#X obj 173 307 *~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 1;
#X connect 3 0 18 0;
#X connect 4 0 15 0;
#X connect 6 0 1 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 0 0;
#X connect 15 1 8 0;
#X connect 15 2 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 5 0;
#X restore 420 157 pd blip;
#N canvas 0 0 528 439 blip 0;
#X obj 153 236 osc~;
#X obj 190 236 vline~;
#X obj 189 262 *~;
#X obj 172 285 *~;
#X obj 153 26 inlet;
#X obj 172 331 outlet~;
#X msg 190 202 1 2 0 \, 0 \$1 3;
#X obj 190 108 log;
#X obj 190 85 pow 4;
#X obj 190 151 * 1e+06;
#X obj 190 130 pow -3;
#X obj 190 174 * 2;
#X obj 259 25 inlet;
#X obj 265 87 pow -1;
#X obj 265 112 * 1000;
#X obj 153 56 t f f f;
#X obj 265 136 log;
#X obj 265 159 min 3;
#X obj 173 307 *~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 1;
#X connect 3 0 18 0;
#X connect 4 0 15 0;
#X connect 6 0 1 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 0 0;
#X connect 15 1 8 0;
#X connect 15 2 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 5 0;
#X restore 245 158 pd blip;
#N canvas 0 0 528 439 blip 0;
#X obj 153 236 osc~;
#X obj 190 236 vline~;
#X obj 189 262 *~;
#X obj 172 285 *~;
#X obj 153 26 inlet;
#X obj 172 331 outlet~;
#X msg 190 202 1 2 0 \, 0 \$1 3;
#X obj 190 108 log;
#X obj 190 85 pow 4;
#X obj 190 151 * 1e+06;
#X obj 190 130 pow -3;
#X obj 190 174 * 2;
#X obj 259 25 inlet;
#X obj 265 87 pow -1;
#X obj 265 112 * 1000;
#X obj 153 56 t f f f;
#X obj 265 136 log;
#X obj 265 159 min 3;
#X obj 173 307 *~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 1;
#X connect 3 0 18 0;
#X connect 4 0 15 0;
#X connect 6 0 1 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 0 0;
#X connect 15 1 8 0;
#X connect 15 2 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 5 0;
#X restore 304 158 pd blip;
#X obj 99 116 change;
#X obj 148 116 change;
#X obj 196 116 change;
#X obj 245 116 change;
#X obj 293 116 change;
#X obj 342 116 change;
#X obj 390 116 change;
#N canvas 0 0 528 439 blip 0;
#X obj 153 236 osc~;
#X obj 190 236 vline~;
#X obj 189 262 *~;
#X obj 172 285 *~;
#X obj 153 26 inlet;
#X obj 172 331 outlet~;
#X msg 190 202 1 2 0 \, 0 \$1 3;
#X obj 190 108 log;
#X obj 190 85 pow 4;
#X obj 190 151 * 1e+06;
#X obj 190 130 pow -3;
#X obj 190 174 * 2;
#X obj 259 25 inlet;
#X obj 265 87 pow -1;
#X obj 265 112 * 1000;
#X obj 153 56 t f f f;
#X obj 265 136 log;
#X obj 265 159 min 3;
#X obj 173 307 *~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 1;
#X connect 3 0 18 0;
#X connect 4 0 15 0;
#X connect 6 0 1 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 0 0;
#X connect 15 1 8 0;
#X connect 15 2 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 5 0;
#X restore 13 159 pd blip;
#X obj 40 116 change;
#X obj 194 59 unpack f f f f f f f f;
#X obj 143 276 outlet~;
#X text 279 248 Self scaling time/amplitude blips;
#X text 279 266 without redundancy \, ajf2006;
#X text 278 283 Useful for percussion;
#X obj 386 57 inlet decay;
#X obj 194 29 inlet freqlist;
#X obj 143 251 *~ 0.04;
#X connect 0 0 23 0;
#X connect 1 0 23 0;
#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 2 0;
#X connect 8 0 0 0;
#X connect 9 0 1 0;
#X connect 10 0 5 0;
#X connect 11 0 6 0;
#X connect 12 0 3 0;
#X connect 13 0 4 0;
#X connect 14 0 23 0;
#X connect 15 0 14 0;
#X connect 16 0 15 0;
#X connect 16 1 7 0;
#X connect 16 2 8 0;
#X connect 16 3 9 0;
#X connect 16 4 10 0;
#X connect 16 5 11 0;
#X connect 16 6 12 0;
#X connect 16 7 13 0;
#X connect 21 0 4 1;
#X connect 21 0 3 1;
#X connect 21 0 6 1;
#X connect 21 0 5 1;
#X connect 21 0 1 1;
#X connect 21 0 0 1;
#X connect 21 0 2 1;
#X connect 21 0 14 1;
#X connect 22 0 16 0;
#X connect 23 0 17 0;
#X restore 19 139 pd stampblips;
#N canvas 0 0 450 300 1-x 0;
#X obj 158 141 -;
#X msg 147 116 1;
#X obj 153 92 t b f;
#X obj 153 69 inlet;
#X obj 158 164 outlet;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 0 1;
#X connect 3 0 2 0;
#X restore 232 112 pd 1-x;
#N canvas 0 0 450 300 nextrandomkey 0;
#X obj 141 217 mtof;
#X obj 141 194 + 20;
#X obj 141 82 f 0;
#X obj 141 105 + 1;
#X obj 141 127 mod 12;
#X obj 141 149 sel 0;
#X obj 141 172 random 12;
#X obj 141 34 inlet;
#X obj 141 58 b;
#X obj 141 240 outlet;
#X obj 205 33 inlet base;
#X connect 0 0 9 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 2 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 8 0 2 0;
#X connect 10 0 1 1;
#X restore 19 81 pd nextrandomkey;
#N canvas 0 0 305 244 fxout 0;
#X msg 122 97 /feedback \$1;
#X obj 23 121 hip~ 20;
#X obj 60 99 hip~ 20;
#X msg 121 124 /delay \$1;
#N canvas 0 0 450 300 cmreverb 0;
#X obj 25 22 inlet~;
#X obj 85 22 inlet~;
#X obj 397 5 inlet;
#X obj 239 88 delread~ \$0-A 100;
#X obj 269 108 delread~ \$0-B 161.8;
#X obj 299 128 delread~ \$0-C 261.8;
#X obj 329 148 delread~ \$0-D 61.8;
#X obj 185 142 +~;
#X obj 227 142 +~;
#X obj 22 213 outlet~;
#X obj 92 213 outlet~;
#X obj 170 192 +~;
#X obj 274 193 +~;
#X obj 212 192 -~;
#X obj 314 192 -~;
#X obj 169 248 +~;
#X obj 213 249 +~;
#X obj 257 250 -~;
#X obj 296 250 -~;
#X obj 256 332 *~ 0;
#X obj 214 331 *~ 0;
#X obj 169 330 *~ 0;
#X obj 297 333 *~ 0;
#X obj 296 353 delwrite~ \$0-D 1000;
#X obj 257 376 delwrite~ \$0-C 1000;
#X obj 215 399 delwrite~ \$0-B 1000;
#X obj 170 421 delwrite~ \$0-A 1000;
#X obj 396 190 min 100;
#X obj 396 214 max 0;
#X obj 396 238 / 200;
#X obj 239 67 * 1;
#X obj 269 67 * 1.618;
#X obj 329 67 * 2.618;
#X obj 389 67 / 1.618;
#X obj 397 31 route /feedback /delay;
#X connect 0 0 7 0;
#X connect 1 0 8 0;
#X connect 2 0 34 0;
#X connect 3 0 7 1;
#X connect 4 0 8 1;
#X connect 5 0 14 0;
#X connect 5 0 12 0;
#X connect 6 0 14 1;
#X connect 6 0 12 1;
#X connect 7 0 9 0;
#X connect 7 0 11 0;
#X connect 7 0 13 0;
#X connect 8 0 10 0;
#X connect 8 0 11 1;
#X connect 8 0 13 1;
#X connect 11 0 15 0;
#X connect 11 0 17 0;
#X connect 12 0 17 1;
#X connect 12 0 15 1;
#X connect 13 0 16 0;
#X connect 13 0 18 0;
#X connect 14 0 16 1;
#X connect 14 0 18 1;
#X connect 15 0 21 0;
#X connect 16 0 20 0;
#X connect 17 0 19 0;
#X connect 18 0 22 0;
#X connect 19 0 24 0;
#X connect 20 0 25 0;
#X connect 21 0 26 0;
#X connect 22 0 23 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 22 1;
#X connect 29 0 19 1;
#X connect 29 0 20 1;
#X connect 29 0 21 1;
#X connect 30 0 3 0;
#X connect 31 0 4 0;
#X connect 32 0 5 0;
#X connect 33 0 6 0;
#X connect 34 0 27 0;
#X connect 34 1 33 0;
#X connect 34 1 32 0;
#X connect 34 1 31 0;
#X connect 34 1 30 0;
#X restore 23 153 pd cmreverb;
#X obj 42 58 inlet~;
#X msg 122 63 50;
#X msg 153 63 70;
#X obj 122 29 loadbang;
#X obj 196 64 clip 5 100;
#X obj 196 28 inlet verbness;
#X text 114 154 Simple verb by Claude H;
#X obj 22 203 outlet~;
#X obj 96 204 outlet~;
#X connect 0 0 4 2;
#X connect 1 0 4 0;
#X connect 2 0 4 1;
#X connect 3 0 4 2;
#X connect 4 0 12 0;
#X connect 4 1 13 0;
#X connect 5 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 0 0;
#X connect 7 0 3 0;
#X connect 8 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 3 0;
#X connect 9 0 0 0;
#X connect 10 0 9 0;
#X restore 18 175 pd fxout;
#X obj 126 24 inlet base;
#X obj 215 24 inlet decay;
#X obj 318 24 inlet verb;
#N canvas 0 0 411 147 init 0;
#X obj 109 25 loadbang;
#X msg 24 56 42;
#X msg 109 58 2.9;
#X msg 187 57 65;
#X obj 24 82 s \$0-pitch;
#X obj 109 81 s \$0-decay;
#X obj 187 81 s \$0-verb;
#X msg 257 56 4;
#X obj 257 80 s \$0-ratiomax;
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 0 0 3 0;
#X connect 0 0 7 0;
#X connect 1 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 6 0;
#X connect 7 0 8 0;
#X restore 286 112 pd init;
#X obj 402 23 inlet hratio;
#X obj 210 88 f 4;
#X obj 402 47 int;
#X text 38 227 Sorted harmonic tree of simple integer ratios in 12
tones;
#X text 40 320 Andy Farnell 2006;
#X text 39 243 Based on an impression \, collectively of the music
of Air \, Brian Reitzell \, Kevin Shields \, Roger J. Manning \, William
Storkson. Since it turned out nothing like any piece I can find in
the film the piece deserves the title. :);
#X obj 17 202 outlet~;
#X obj 69 202 outlet~;
#X obj 138 202 outlet tree;
#X obj 19 24 inlet advance;
#X connect 0 0 1 0;
#X connect 0 0 17 0;
#X connect 1 0 4 0;
#X connect 3 0 0 0;
#X connect 4 0 15 0;
#X connect 4 1 16 0;
#X connect 5 0 3 1;
#X connect 6 0 1 1;
#X connect 7 0 4 1;
#X connect 9 0 11 0;
#X connect 10 0 0 1;
#X connect 11 0 10 1;
#X connect 18 0 3 0;
#X connect 18 0 10 0;
#X restore 111 136 pd lostintranslation;
#X obj 73 71 tgl 15 0 empty empty go 0 -6 0 8 -258699 -1 -1 1 1;
#X obj 184 66 vsl 12 64 0.06 6 1 0 empty \$0-decay decay 0 -8 0 8 -241291
-1 -1 5205 1;
#X obj 147 66 vsl 12 64 30 50 0 0 empty \$0-pitch pitch 0 -8 0 8 -24198
-1 -1 2580 1;
#X obj 220 66 vsl 12 64 2 100 0 0 empty \$0-verb verb 0 -8 0 8 -260818
-1 -1 4750 1;
#X obj 248 66 vsl 12 64 2 12 1 0 empty \$0-ratiomax ratio 0 -8 0 8
-258699 -1 -1 2737 1;
#X obj 135 162 dac~;
#X obj 73 93 metro 200;
#X connect 1 0 7 0;
#X connect 1 1 7 1;
#X connect 2 0 8 0;
#X connect 3 0 1 2;
#X connect 4 0 1 1;
#X connect 5 0 1 3;
#X connect 6 0 1 4;
#X connect 8 0 1 0;