#N canvas 139 46 648 666 10;
#X msg 36 169 setXY \$1 \$2;
#X obj 36 22 loadbang;
#X obj 36 144 pack f f;
#X obj 36 46 t b b;
#X obj 57 246 gemhead;
#X obj 57 269 translateXYZ;
#X obj 46 219 unpack s f f;
#X obj 143 24 r reset_masse;
#X msg 36 391 setX \$1 \, setY \$2;
#X obj 36 70 random 20;
#X obj 36 116 / 4;
#X obj 102 69 random 20;
#X obj 102 115 / 4;
#X obj 36 93 - 10;
#X obj 102 91 - 10;
#X obj 294 353 r link;
#X obj 36 195 masse2D masse 100;
#X obj 205 193 unpack s f f f;
#X obj 189 219 unpack s f f f;
#X obj 35 499 iCircle2D masse 0 0 1e-006 0.8 0 0 -0.05;
#X obj 57 302 color 0.5 0 0;
#N canvas 0 0 747 605 build 0;
#X obj 137 30 inlet;
#X obj 143 202 outlet;
#X obj 144 168 pack f f f;
#X obj 243 65 t b;
#X msg 243 91 0;
#X text 41 246 if input is near 0 it is a low note then i give dark
color \, if near 1 it is a high one then give bright red color;
#X obj 102 94 * 0.6;
#X obj 101 123 + 0.4;
#X obj 193 93 * -0.7;
#X obj 193 115 + 0.7;
#X connect 0 0 3 0;
#X connect 0 0 6 0;
#X connect 0 0 8 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 2 2;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X connect 8 0 9 0;
#X connect 9 0 2 1;
#X restore 232 306 pd build color;
#N canvas 444 28 999 679 sound 0;
#X obj 77 43 inlet;
#X obj 145 45 inlet;
#X obj 220 44 inlet;
#X obj 96 403 stereo;
#X obj 249 300 osc~;
#X obj 272 201 loadbang;
#X obj 180 346 *~;
#X msg 179 213 \$1 5;
#X text 41 17 todo: invece di usare un sinusoide casuale usare un campione
;
#X obj 179 189 clip 0 1;
#X obj 95 454 throw~ mainL;
#X obj 178 454 throw~ mainR;
#X obj 94 260 + 4;
#X obj 94 281 / 8;
#X obj 94 302 clip 0 1;
#X obj 249 279 * 55;
#X obj 179 238 line;
#X obj 272 228 random 100;
#X obj 272 251 tabread armoniche_caso;
#X obj 309 456 outlet;
#X text 387 233 weightened random values;
#X text 385 222 which harmonic am I?;
#X text 292 280 <-- base frequency = A;
#X text 376 337 normalized 0-1;
#X msg 351 186 bang;
#X obj 309 431 clip 0 1;
#X obj 320 386 expr sqrt($f1);
#X obj 333 338 / 50;
#X obj 354 143 r reset_masse;
#X text 32 375 TODO: quadriphony;
#X obj 184 100 - 0.001;
#X obj 297 41 inlet;
#X obj 249 113 sel 1 0;
#X obj 249 94 f;
#X obj 249 75 bang;
#X obj 249 132 bang;
#X obj 216 153 f;
#X connect 0 0 12 0;
#X connect 2 0 30 0;
#X connect 2 0 34 0;
#X connect 3 0 10 0;
#X connect 3 1 11 0;
#X connect 4 0 6 0;
#X connect 5 0 17 0;
#X connect 6 0 3 0;
#X connect 7 0 16 0;
#X connect 9 0 7 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 3 1;
#X connect 15 0 4 0;
#X connect 16 0 6 1;
#X connect 17 0 18 0;
#X connect 18 0 15 0;
#X connect 18 0 27 0;
#X connect 24 0 17 0;
#X connect 25 0 19 0;
#X connect 26 0 25 0;
#X connect 27 0 26 0;
#X connect 28 0 24 0;
#X connect 30 0 36 1;
#X connect 31 0 33 1;
#X connect 32 0 35 0;
#X connect 33 0 32 0;
#X connect 34 0 33 0;
#X connect 35 0 36 0;
#X connect 36 0 9 0;
#X restore 232 285 pd sound;
#X obj 57 339 sphere 0.3;
#X text 294 285 make saound;
#X text 330 304 color the cell;
#X obj 414 99 r \$1-deactivate;
#X obj 320 97 r \$1-activate;
#X msg 321 131 1;
#X msg 413 133 0;
#X obj 327 406 sel 1 0;
#X obj 327 380 f;
#X obj 326 426 bang;
#X obj 368 66 loadbang;
#X obj 186 84 r \$1-posx;
#X obj 228 103 r \$1-posy;
#X obj 186 132 pack f f;
#X obj 49 467 iCircle2D masse 0 0 1e-006 0.5 0 0 1;
#X obj 429 284 s \$1-X;
#X obj 509 284 s \$1-Y;
#X obj 448 404 s \$1-Velo;
#X obj 429 245 / 4;
#X obj 429 264 clip -1 1;
#X text 420 225 scale to [-1 \, 1] and send;
#X obj 509 245 / 4;
#X obj 509 264 clip -1 1;
#X text 409 340 scale to [0 \, 5] and send;
#X obj 448 360 * 50;
#X obj 448 383 clip 0 5;
#X connect 0 0 16 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 9 0;
#X connect 3 1 11 0;
#X connect 4 0 5 0;
#X connect 5 0 20 0;
#X connect 6 1 5 1;
#X connect 6 2 5 2;
#X connect 7 0 3 0;
#X connect 8 0 19 0;
#X connect 8 0 37 0;
#X connect 9 0 13 0;
#X connect 10 0 2 0;
#X connect 11 0 14 0;
#X connect 12 0 2 1;
#X connect 13 0 10 0;
#X connect 14 0 12 0;
#X connect 15 0 31 0;
#X connect 16 0 6 0;
#X connect 16 0 8 0;
#X connect 16 0 18 0;
#X connect 16 2 17 0;
#X connect 17 3 22 2;
#X connect 17 3 47 0;
#X connect 18 1 22 0;
#X connect 18 1 41 0;
#X connect 18 2 22 1;
#X connect 18 2 44 0;
#X connect 20 0 23 0;
#X connect 21 0 20 1;
#X connect 22 0 21 0;
#X connect 26 0 29 0;
#X connect 27 0 28 0;
#X connect 28 0 4 0;
#X connect 28 0 31 1;
#X connect 28 0 22 3;
#X connect 29 0 4 0;
#X connect 29 0 31 1;
#X connect 29 0 22 3;
#X connect 30 0 32 0;
#X connect 31 0 30 0;
#X connect 32 0 19 0;
#X connect 32 0 37 0;
#X connect 33 0 28 0;
#X connect 34 0 36 0;
#X connect 35 0 36 1;
#X connect 36 0 0 0;
#X connect 41 0 42 0;
#X connect 42 0 38 0;
#X connect 44 0 45 0;
#X connect 45 0 39 0;
#X connect 47 0 48 0;
#X connect 48 0 40 0;