blob: 1d8b8065d7b06367c9f48a52f6f02257af27a942 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
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;
|
