From f64944ede13a3f95e9ad3130c74a53833f1a04bf Mon Sep 17 00:00:00 2001
From: Davide Morelli <morellid@users.sourceforge.net>
Date: Wed, 18 May 2005 15:55:28 +0000
Subject: new examples for ann_mlp

svn path=/trunk/externals/ann/; revision=3012
---
 examples/ann_mlp_example2/cellulaSuono.pd | 195 ++++++++++++++++++++++++++++++
 1 file changed, 195 insertions(+)
 create mode 100755 examples/ann_mlp_example2/cellulaSuono.pd

(limited to 'examples/ann_mlp_example2/cellulaSuono.pd')

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;
-- 
cgit v1.2.1