blob: f03d51870949718ea4dba83520ef95cc1c30ca02 (
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
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
|
max v2;
#N vpatcher 213 143 951 665;
#P user umenu 84 105 72 196647 1 64 121 1;
#X add bass.aif;
#X add beat.aif;
#X add fly.aif;
#X add plastic.aif;
#X add your_own...;
#N vpatcher 93 462 347 671;
#P message 59 102 28 196617 read;
#P newex 59 69 89 196617 route your_own...;
#N comlet popup comment in;
#P inlet 59 26 15 0;
#P newex 59 149 54 196617 s 1069path1;
#P newex 138 102 79 196617 sprintf read %s;
#P connect 2 0 3 0;
#P connect 3 0 4 0;
#P fasten 0 0 1 0 143 134 64 134;
#P connect 4 0 1 0;
#P connect 3 1 0 0;
#P pop;
#P hidden newobj 146 127 43 196617 p loader;
#P message 467 441 113 196617 vasp bufrect1 bufrect2;
#N vpatcher 40 55 218 175;
#P newex 45 79 61 196617 vasp.update;
#P newex 45 56 45 196617 vasp.= 0;
#N comlet vasp to clear in;
#P inlet 45 26 15 0;
#P connect 0 0 1 0;
#P connect 1 0 2 0;
#P pop;
#P newobj 467 460 78 196617 p clear_buffers;
#P hidden newex 582 414 54 196617 r 1069path1;
#P comment 57 107 26 196617 read;
#P comment 187 376 179 196617 tranform with invers cfft to original;
#P newex 63 416 61 196617 vasp.update;
#P message 63 375 113 196617 vasp bufrect1 bufrect2;
#P newex 63 395 52 196617 vasp.c!fft;
#P newex 63 186 61 196617 vasp.update;
#P message 63 297 113 196617 vasp bufrect1 bufrect2;
#P newex 63 317 51 196617 vasp.rect;
#P newex 63 339 61 196617 vasp.update;
#P comment 187 221 173 196617 real-> amplitude / imaginary-> phase;
#N vpatcher 148 168 892 640;
#P user umenu 83 67 72 196647 1 64 83 1;
#X add bass.aif;
#X add beat.aif;
#X add fly.aif;
#X add plastic.aif;
#X add your_own...;
#N vpatcher 93 462 347 671;
#P message 59 102 28 196617 read;
#P newex 59 69 89 196617 route your_own...;
#N comlet popup comment in;
#P inlet 59 26 15 0;
#P newex 59 149 48 196617 s 1069path;
#P newex 138 102 79 196617 sprintf read %s;
#P connect 2 0 3 0;
#P connect 3 0 4 0;
#P fasten 0 0 1 0 143 134 64 134;
#P connect 4 0 1 0;
#P connect 3 1 0 0;
#P pop;
#P hidden newobj 145 89 43 196617 p loader;
#P message 591 355 113 196617 vasp bufrect3 bufrect4;
#N vpatcher 40 55 218 175;
#P newex 45 79 61 196617 vasp.update;
#P newex 45 56 45 196617 vasp.= 0;
#N comlet vasp to clear in;
#P inlet 45 26 15 0;
#P connect 0 0 1 0;
#P connect 1 0 2 0;
#P pop;
#P newobj 591 374 78 196617 p clear_buffers;
#P hidden newex 544 395 48 196617 r 1069path;
#P comment 56 68 26 196617 read;
#N vpatcher 40 55 418 371;
#P button 183 82 15 0;
#P newex 129 145 60 196617 prepend set;
#N comlet waveform~ mode messages;
#P inlet 129 121 15 0;
#P newex 259 64 27 196617 << 1;
#P newex 206 121 40 196617 change;
#P newex 206 145 107 196617 select 0 1 2;
#P newex 206 98 27 196617 |;
#P newex 47 121 40 196617 change;
#P outlet 129 252 15 0;
#P message 47 145 65 196617 constrain \$1;
#P newex 129 195 45 196617 loadbang;
#P newex 47 40 222 196617 pushkeys;
#P message 270 169 58 196617 mode move;
#P message 206 213 61 196617 mode select;
#P message 238 191 52 196617 mode loop;
#P connect 3 0 7 0;
#P connect 7 0 5 0;
#P connect 12 0 13 0;
#P fasten 5 0 6 0 52 243 134 243;
#P fasten 0 0 6 0 243 243 134 243;
#P fasten 1 0 6 0 211 243 134 243;
#P fasten 2 0 6 0 275 243 134 243;
#P connect 11 0 14 0;
#P connect 3 3 8 0;
#P connect 14 0 8 0;
#P connect 8 0 10 0;
#P connect 10 0 9 0;
#P connect 4 0 1 0;
#P connect 9 0 1 0;
#P connect 13 0 1 0;
#P connect 11 0 8 1;
#P connect 9 1 0 0;
#P connect 3 4 11 0;
#P connect 9 2 2 0;
#P pop;
#P hidden newobj 394 60 49 196617 p wfkeys;
#P hidden message 394 104 64 196617 set bufrect3;
#P hidden newex 394 80 45 196617 loadbang;
#P user waveform~ 394 122 312 99 3 9;
#W mode select;
#W mouseoutput continuous;
#W unit ms;
#W grid 1000.;
#W ticks 8.;
#W labels 1;
#W vlabels 1;
#W vticks 1;
#W vzoom 1.;
#W voffset 0.;
#W bpm 120. 4.;
#W frgb 0 0 0;
#W brgb 255 255 255;
#W rgb2 132 132 132;
#W rgb3 0 0 0;
#W rgb4 0 0 0;
#W rgb5 255 255 255;
#W rgb6 100 100 100;
#W rgb7 100 100 100;
#P message 394 395 27 196617 stop;
#P message 326 395 65 196617 startwindow;
#P newex 435 421 29 196617 dac~;
#P newex 435 369 30 196617 line~;
#P message 435 346 72 196617 0 \, 4000 4000;
#P newex 435 394 75 196617 play~ bufrect3;
#P newex 61 395 61 196617 vasp.freeze;
#P comment 118 290 190 196617 polar to cartesian coordinate conversion;
#P comment 178 235 81 196617 scale to 0 - 2¹;
#P comment 149 211 68 196617 random phase;
#P comment 128 180 116 196617 split amplitude and phase;
#P comment 123 153 193 196617 cartesian to polar coordinate conversion;
#P newex 591 416 111 196617 buffer~ bufrect4 4000;
#P newex 591 394 111 196617 buffer~ bufrect3 4000;
#P message 61 105 113 196617 vasp bufrect3 bufrect4;
#P newex 61 334 61 196617 vasp.update;
#P newex 61 311 52 196617 vasp.c!fft;
#P newex 61 288 51 196617 vasp.rect;
#P newex 61 265 58 196617 vasp.join 2;
#P newex 86 233 86 196617 vasp.* 3.141593;
#P newex 86 209 55 196617 vasp.noise;
#P newex 61 177 61 196617 vasp.split 2;
#P newex 61 151 55 196617 vasp.polar;
#P newex 61 129 49 196617 vasp.cfft;
#P comment 122 131 151 196617 complex fourier transformation;
#P comment 56 35 177 196622 phase random_example;
#P comment 127 397 170 196617 is an abstraction that does the same;
#P connect 12 0 3 0;
#P connect 3 0 4 0;
#P connect 4 0 5 0;
#P connect 5 0 8 0;
#P connect 8 0 9 0;
#P connect 9 0 10 0;
#P connect 10 0 11 0;
#P connect 5 1 6 0;
#P connect 6 0 7 0;
#P fasten 7 0 8 1 91 257 114 257;
#P hidden connect 36 1 35 0;
#P hidden fasten 13 1 29 0 697 413 713 413 713 99 399 99;
#P hidden connect 28 0 29 0;
#P hidden connect 29 0 27 0;
#P hidden connect 30 0 27 0;
#P connect 22 0 23 0;
#P connect 23 0 21 0;
#P connect 21 0 24 0;
#P fasten 25 0 24 0 331 414 440 414;
#P fasten 26 0 24 0 399 414 440 414;
#P connect 21 0 24 1;
#P connect 34 0 33 0;
#P hidden fasten 32 0 13 0 549 388 596 388;
#P pop;
#P newobj 63 460 115 196617 p phaserandom_example;
#P comment 187 298 180 196617 amplitude-> real / phase-> imaginary;
#P comment 187 146 179 196617 tranform with cfft to real / imaginary;
#P message 63 220 113 196617 vasp bufrect1 bufrect2;
#P message 63 145 113 196617 vasp bufrect1 bufrect2;
#P newex 63 240 55 196617 vasp.polar;
#N vpatcher 40 55 418 371;
#P button 183 82 15 0;
#P newex 129 145 60 196617 prepend set;
#N comlet waveform~ mode messages;
#P inlet 129 121 15 0;
#P newex 259 64 27 196617 << 1;
#P newex 206 121 40 196617 change;
#P newex 206 145 107 196617 select 0 1 2;
#P newex 206 98 27 196617 |;
#P newex 47 121 40 196617 change;
#P outlet 129 252 15 0;
#P message 47 145 65 196617 constrain \$1;
#P newex 129 195 45 196617 loadbang;
#P newex 47 40 222 196617 pushkeys;
#P message 270 169 58 196617 mode move;
#P message 206 213 61 196617 mode select;
#P message 238 191 52 196617 mode loop;
#P connect 3 0 7 0;
#P connect 7 0 5 0;
#P connect 12 0 13 0;
#P fasten 2 0 6 0 275 243 134 243;
#P fasten 1 0 6 0 211 243 134 243;
#P fasten 0 0 6 0 243 243 134 243;
#P fasten 5 0 6 0 52 243 134 243;
#P connect 11 0 14 0;
#P connect 14 0 8 0;
#P connect 3 3 8 0;
#P connect 8 0 10 0;
#P connect 10 0 9 0;
#P connect 13 0 1 0;
#P connect 9 0 1 0;
#P connect 4 0 1 0;
#P connect 11 0 8 1;
#P connect 9 1 0 0;
#P connect 3 4 11 0;
#P connect 9 2 2 0;
#P pop;
#P hidden newobj 385 85 49 196617 p wfkeys;
#P comment 611 257 86 196617 imaginary / phase;
#P hidden message 385 251 64 196617 set bufrect2;
#P user waveform~ 385 272 312 99 3 9;
#W mode select;
#W mouseoutput continuous;
#W unit ms;
#W grid 1000.;
#W ticks 8.;
#W labels 1;
#W vlabels 1;
#W vticks 1;
#W vzoom 1.;
#W voffset 0.;
#W bpm 120. 4.;
#W frgb 0 0 0;
#W brgb 255 255 255;
#W rgb2 132 132 132;
#W rgb3 0 0 0;
#W rgb4 0 0 0;
#W rgb5 255 255 255;
#W rgb6 100 100 100;
#W rgb7 100 100 100;
#P newex 582 460 111 196617 buffer~ bufrect2 2000;
#P hidden message 385 129 64 196617 set bufrect1;
#P hidden newex 385 105 45 196617 loadbang;
#P user waveform~ 385 147 312 99 3 9;
#W mode select;
#W mouseoutput continuous;
#W unit ms;
#W grid 1000.;
#W ticks 8.;
#W labels 1;
#W vlabels 1;
#W vticks 1;
#W vzoom 1.;
#W voffset 0.;
#W bpm 120. 4.;
#W frgb 0 0 0;
#W brgb 255 255 255;
#W rgb2 132 132 132;
#W rgb3 0 0 0;
#W rgb4 0 0 0;
#W rgb5 255 255 255;
#W rgb6 100 100 100;
#W rgb7 100 100 100;
#P newex 63 165 49 196617 vasp.cfft;
#P newex 63 262 61 196617 vasp.update;
#P newex 582 441 111 196617 buffer~ bufrect1 2000;
#P comment 54 71 192 196617 polar to cartesian coordinate conversion;
#P comment 54 48 76 196622 vasp.rect;
#P comment 620 132 83 196617 real / amplitude;
#P connect 15 0 5 0;
#P connect 5 0 24 0;
#P connect 16 0 14 0;
#P connect 14 0 4 0;
#P connect 23 0 22 0;
#P connect 22 0 21 0;
#P connect 26 0 25 0;
#P connect 25 0 27 0;
#P hidden connect 34 1 33 0;
#P hidden connect 7 0 8 0;
#P hidden fasten 3 1 8 0 688 458 702 458 702 74 390 74;
#P hidden connect 13 0 6 0;
#P hidden connect 8 0 6 0;
#P hidden fasten 7 0 11 0 390 110 390 110;
#P hidden connect 11 0 10 0;
#P hidden connect 13 0 10 0;
#P connect 32 0 31 0;
#P hidden connect 30 0 3 0;
#P pop;
|
