Mercurial > hg > beaglert
comparison examples/10-Instruments/vangelisiser/_main.pd @ 531:ddb86944e138 prerelease
cleaned up all pd examples (and removed some). added polysynth and vangelisiser to instruments examples
author | chnrx <chris.heinrichs@gmail.com> |
---|---|
date | Thu, 23 Jun 2016 20:40:05 +0100 |
parents | |
children | 8f8809c77dda |
comparison
equal
deleted
inserted
replaced
525:1ca196e35105 | 531:ddb86944e138 |
---|---|
1 #N canvas 825 500 1305 1225 10; | |
2 #X obj 941 614 s~ _gain; | |
3 #X obj 477 523 lop~ 30; | |
4 #X obj 941 437 abs~; | |
5 #X obj 941 481 clip~ 0 1; | |
6 #N canvas 1785 452 296 317 input-controller 0; | |
7 #X obj 89 85 abs~; | |
8 #X obj 89 157 clip~ 0 10; | |
9 #X obj 89 105 lop~ 30; | |
10 #X obj 89 65 *~ 150000; | |
11 #X obj 89 125 -~ 0.25; | |
12 #X obj 46 191 sig~ 1; | |
13 #X obj 73 217 /~; | |
14 #X obj 89 190 q8_rsqrt~; | |
15 #N canvas 1265 891 433 402 accelerometer-integration 0; | |
16 #X obj 72 225 rpole~ 1; | |
17 #X obj 72 246 hip~ 1; | |
18 #X obj 72 155 lop~ 100; | |
19 #X obj 132 225 rpole~ 1; | |
20 #X obj 132 246 hip~ 1; | |
21 #X obj 132 155 lop~ 100; | |
22 #X obj 192 225 rpole~ 1; | |
23 #X obj 192 246 hip~ 1; | |
24 #X obj 192 155 lop~ 100; | |
25 #X obj 72 289 *~; | |
26 #X obj 132 289 *~; | |
27 #X obj 192 289 *~; | |
28 #X obj 29 320 sig~ 1; | |
29 #X obj 55 345 /~; | |
30 #X obj 72 319 q8_rsqrt~; | |
31 #X obj 346 176 samplerate~; | |
32 #X obj 318 133 loadbang; | |
33 #X obj 318 155 t b b; | |
34 #X obj 317 175 f 1; | |
35 #X obj 317 194 /; | |
36 #X obj 316 215 s _invsr; | |
37 #X obj 206 177 r _invsr; | |
38 #X obj 146 177 r _invsr; | |
39 #X obj 86 177 r _invsr; | |
40 #X obj 192 197 *~ 0; | |
41 #X obj 132 197 *~ 0; | |
42 #X obj 72 197 *~ 0; | |
43 #X obj 314 349 s~ _zacc; | |
44 #X obj 315 272 -~ 0.5; | |
45 #X obj 315 294 *~ 4; | |
46 #X obj 315 320 clip~ -1 1; | |
47 #X obj 55 367 outlet~; | |
48 #X text 29 21 Integrate accelerometer data to estimate velocity; | |
49 #X text 29 31 =================================================; | |
50 #X obj 72 65 receive~ \$0-x; | |
51 #X obj 132 95 receive~ \$0-y; | |
52 #X obj 192 125 receive~ \$0-z; | |
53 #X connect 0 0 1 0; | |
54 #X connect 1 0 9 0; | |
55 #X connect 1 0 9 1; | |
56 #X connect 2 0 26 0; | |
57 #X connect 3 0 4 0; | |
58 #X connect 4 0 10 0; | |
59 #X connect 4 0 10 1; | |
60 #X connect 5 0 25 0; | |
61 #X connect 6 0 7 0; | |
62 #X connect 7 0 11 0; | |
63 #X connect 7 0 11 1; | |
64 #X connect 8 0 24 0; | |
65 #X connect 8 0 28 0; | |
66 #X connect 9 0 14 0; | |
67 #X connect 10 0 14 0; | |
68 #X connect 11 0 14 0; | |
69 #X connect 12 0 13 0; | |
70 #X connect 13 0 31 0; | |
71 #X connect 14 0 13 1; | |
72 #X connect 15 0 19 1; | |
73 #X connect 16 0 17 0; | |
74 #X connect 17 0 18 0; | |
75 #X connect 17 1 15 0; | |
76 #X connect 18 0 19 0; | |
77 #X connect 19 0 20 0; | |
78 #X connect 21 0 24 1; | |
79 #X connect 22 0 25 1; | |
80 #X connect 23 0 26 1; | |
81 #X connect 24 0 6 0; | |
82 #X connect 25 0 3 0; | |
83 #X connect 26 0 0 0; | |
84 #X connect 28 0 29 0; | |
85 #X connect 29 0 30 0; | |
86 #X connect 30 0 27 0; | |
87 #X connect 34 0 2 0; | |
88 #X connect 35 0 5 0; | |
89 #X connect 36 0 8 0; | |
90 #X restore 89 30 pd accelerometer-integration; | |
91 #X obj 73 256 outlet~; | |
92 #X connect 0 0 2 0; | |
93 #X connect 1 0 7 0; | |
94 #X connect 2 0 4 0; | |
95 #X connect 3 0 0 0; | |
96 #X connect 4 0 1 0; | |
97 #X connect 5 0 6 0; | |
98 #X connect 6 0 9 0; | |
99 #X connect 7 0 6 1; | |
100 #X connect 8 0 3 0; | |
101 #X restore 941 364 pd input-controller; | |
102 #X obj 424 1183 dac~; | |
103 #X obj 235 250 loadbang; | |
104 #X obj 451 995 loadbang; | |
105 #X obj 830 938 s~ fmod; | |
106 #X obj 830 906 lop~ 20; | |
107 #X obj 830 838 sig~ 1; | |
108 #X obj 830 860 -~; | |
109 #X obj 477 545 *~ 0.75; | |
110 #X obj 376 865 *~; | |
111 #X obj 961 512 s~ accvel; | |
112 #X obj 531 649 r~ accvel; | |
113 #X obj 376 1047 e_platereverb; | |
114 #X obj 941 459 -~ 0.0025; | |
115 #X obj 235 1017 predel 2; | |
116 #X obj 257 982 lop~ 20; | |
117 #X obj 469 680 -~ 0.25; | |
118 #X obj 477 569 -~ 0.75; | |
119 #X obj 257 940 *~ 2; | |
120 #X obj 257 962 -~ 1; | |
121 #X obj 941 558 lop~ 5; | |
122 #X msg 451 1017 0; | |
123 #X obj 941 406 *~ 0.666; | |
124 #X obj 481 802 sig~ 1; | |
125 #X obj 481 824 -~; | |
126 #X obj 235 864 *~; | |
127 #X obj 531 802 clip~ 0 1; | |
128 #X obj 531 780 *~ 2; | |
129 #X obj 531 758 -~ 0.75; | |
130 #X obj 468 732 clip~ 0.3 1; | |
131 #X obj 376 1018 predel 5; | |
132 #X obj 469 702 *~ 2; | |
133 #X obj 941 586 clip~ 0 3; | |
134 #X obj 235 614 vangex; | |
135 #X obj 376 1109 hv_tanh; | |
136 #X obj 486 1109 hv_tanh; | |
137 #X obj 477 383 k.ramp~ 0 0.3; | |
138 #X obj 468 754 lop~ 5; | |
139 #X msg 235 272 33; | |
140 #X obj 830 884 *~ 5; | |
141 #X obj 235 1048 *~ 2; | |
142 #X obj 280 1047 *~ 2; | |
143 #X obj 376 1141 *~ 2; | |
144 #X obj 486 1140 *~ 2; | |
145 #X obj 235 313 + 12; | |
146 #X obj 335 312 + 19; | |
147 #X obj 285 313 + 16; | |
148 #X obj 385 313 + 28; | |
149 #X obj 477 441 k.ramp~ 0.6 0.3; | |
150 #X obj 477 422 k.ramp~ 0.4 0.3; | |
151 #X obj 477 402 k.ramp~ 0.2 0.3; | |
152 #X obj 385 614 vangex; | |
153 #X obj 335 614 vangex; | |
154 #X obj 285 614 vangex; | |
155 #X text 1157 1177 @krighxz 2016; | |
156 #X text 1044 513 velocity derived from accelerometer; | |
157 #X text 612 648 use velocity to control reverb input level; | |
158 #X obj 233 174 adc~ 3; | |
159 #X obj 233 196 send~ \$0-x; | |
160 #X obj 303 174 adc~ 4; | |
161 #X obj 373 174 adc~ 5; | |
162 #X obj 303 196 send~ \$0-y; | |
163 #X obj 373 196 send~ \$0-z; | |
164 #X obj 458 352 receive~ \$0-x; | |
165 #X obj 477 501 receive~ \$0-z; | |
166 #X obj 257 918 receive~ \$0-x; | |
167 #X text 70 1016 delay-based panning >>>; | |
168 #X obj 895 838 receive~ \$0-z; | |
169 #X text 586 500 z axis controls timbre (harmonic ratio); | |
170 #X text 568 353 x axis controls gain weightings of voices; | |
171 #X text 48 920 x axis controls panning >>>; | |
172 #X text 1022 614 <<< velocity controls gain of voices; | |
173 #X text 1001 838 <<< z axis modulates frequency of all voices; | |
174 #X text 35 16 The 'Vangelisiser'; | |
175 #X text 35 26 ==================; | |
176 #X text 35 46 This is a synth designed to be controlled using a single | |
177 ; | |
178 #X text 35 59 accelerometer. Inspired by the emotional sounds of Vangelis | |
179 ; | |
180 #X text 35 73 four voices tuned to a chord are controlled using axes | |
181 of; | |
182 #X text 35 87 the accelerometer as well as overall velocity derived | |
183 from; | |
184 #X text 35 102 all three axes.; | |
185 #X text 35 116 This patch should ideally be compiled using Heavy and | |
186 run; | |
187 #X text 35 130 at a block size of 64; | |
188 #X text 1062 30 ............................; | |
189 #X text 1062 40 . ____ ._____ _ .......___ .; | |
190 #X text 1062 50 .| __ )| ____| |....../ _ |.; | |
191 #X text 1062 70 .| |_) | |___| |___ / ___ |.; | |
192 #X text 1062 80 .|____/|_____|_____/_/..._|.io; | |
193 #X text 1062 90 ............................; | |
194 #X text 1062 60 .| __ || __|.| |...../ _| |.; | |
195 #X connect 1 0 12 0; | |
196 #X connect 2 0 17 0; | |
197 #X connect 3 0 14 0; | |
198 #X connect 3 0 24 0; | |
199 #X connect 4 0 26 0; | |
200 #X connect 6 0 42 0; | |
201 #X connect 7 0 25 0; | |
202 #X connect 9 0 8 0; | |
203 #X connect 10 0 11 0; | |
204 #X connect 11 0 43 0; | |
205 #X connect 12 0 21 0; | |
206 #X connect 13 0 34 0; | |
207 #X connect 15 0 20 0; | |
208 #X connect 15 0 32 0; | |
209 #X connect 16 0 38 0; | |
210 #X connect 16 1 39 0; | |
211 #X connect 17 0 3 0; | |
212 #X connect 18 0 44 0; | |
213 #X connect 18 1 45 0; | |
214 #X connect 19 0 18 1; | |
215 #X connect 19 0 34 1; | |
216 #X connect 20 0 35 0; | |
217 #X connect 21 0 55 2; | |
218 #X connect 21 0 56 2; | |
219 #X connect 21 0 57 2; | |
220 #X connect 21 0 37 2; | |
221 #X connect 22 0 23 0; | |
222 #X connect 23 0 19 0; | |
223 #X connect 24 0 36 0; | |
224 #X connect 25 0 16 2; | |
225 #X connect 26 0 2 0; | |
226 #X connect 27 0 28 0; | |
227 #X connect 28 0 29 1; | |
228 #X connect 29 0 18 0; | |
229 #X connect 30 0 28 1; | |
230 #X connect 31 0 30 0; | |
231 #X connect 32 0 31 0; | |
232 #X connect 33 0 41 0; | |
233 #X connect 34 0 16 0; | |
234 #X connect 34 1 16 1; | |
235 #X connect 35 0 33 0; | |
236 #X connect 36 0 0 0; | |
237 #X connect 37 0 13 0; | |
238 #X connect 37 0 29 0; | |
239 #X connect 38 0 46 0; | |
240 #X connect 39 0 47 0; | |
241 #X connect 40 0 37 1; | |
242 #X connect 41 0 13 1; | |
243 #X connect 42 0 48 0; | |
244 #X connect 42 0 50 0; | |
245 #X connect 42 0 49 0; | |
246 #X connect 42 0 51 0; | |
247 #X connect 43 0 9 0; | |
248 #X connect 44 0 38 0; | |
249 #X connect 45 0 39 0; | |
250 #X connect 46 0 5 0; | |
251 #X connect 47 0 5 1; | |
252 #X connect 48 0 37 0; | |
253 #X connect 49 0 56 0; | |
254 #X connect 50 0 57 0; | |
255 #X connect 51 0 55 0; | |
256 #X connect 52 0 55 1; | |
257 #X connect 53 0 56 1; | |
258 #X connect 54 0 57 1; | |
259 #X connect 55 0 13 0; | |
260 #X connect 55 0 29 0; | |
261 #X connect 56 0 13 0; | |
262 #X connect 56 0 29 0; | |
263 #X connect 57 0 13 0; | |
264 #X connect 57 0 29 0; | |
265 #X connect 61 0 62 0; | |
266 #X connect 63 0 65 0; | |
267 #X connect 64 0 66 0; | |
268 #X connect 67 0 40 0; | |
269 #X connect 67 0 52 0; | |
270 #X connect 67 0 53 0; | |
271 #X connect 67 0 54 0; | |
272 #X connect 68 0 1 0; | |
273 #X connect 69 0 22 0; | |
274 #X connect 71 0 11 1; |