new examples for ann_mlp

svn path=/trunk/externals/ann/; revision=3012

1 files changed, 195 insertions, 0 deletions

diff --git a/examples/ann_mlp_example2/cellulaSuono.pd b/examples/ann_mlp_example2/cellulaSuono.pd
new file mode 100755
index 0000000..1d8b806
--- /dev/null
+++ b/examples/ann_mlp_example2/cellulaSuono.pd
@@ -0,0 +1,195 @@
+#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;