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;