blob: c3eabaa893f2a1eaeb1756bd059d09735bf496c9 (
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
|
max v2;
#N vpatcher 194 184 786 554;
#P origin 45 0;
#P message 387 294 53 196617 vasp buf*;
#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 387 315 73 196617 p clear_buffer;
#N vpatcher 197 137 868 621;
#P newex 58 280 61 196617 vasp.update;
#P comment 600 218 37 196617 buf*b;
#P user umenu 78 79 72 196647 1 64 95 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 355 682;
#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 1074path;
#P newex 138 102 79 196617 sprintf read %s;
#P user umenu 48 169 100 196647 1 64 185 1;
#X add drums.aif;
#X add voice.aif;
#X add test.aif;
#X add read a soundfile;
#P connect 3 0 4 0;
#P connect 4 0 5 0;
#P fasten 1 0 2 0 143 134 64 134;
#P connect 5 0 2 0;
#P connect 4 1 1 0;
#P pop;
#P hidden newobj 140 100 43 196617 p loader;
#P message 433 395 85 196617 vasp buf*a buf*b;
#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 433 416 78 196617 p clear_buffers;
#P newex 58 159 61 196617 vasp.update;
#P hidden newex 526 367 48 196617 r 1074path;
#P comment 52 81 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 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 325 50 49 196617 p wfkeys;
#P comment 126 313 157 196617 multiplie noise with the envelope;
#P comment 126 119 100 196617 generate noise;
#P comment 109 259 100 196617 normalize the vasp;
#P comment 133 231 149 196617 filter the values with a lowpass to get the envelope (2Hz);
#P message 58 312 58 196617 vasp buf*a;
#P newex 58 333 68 196617 vasp.* buf*b;
#P message 292 417 27 196617 stop;
#P message 224 417 65 196617 startwindow;
#P newex 325 441 29 196617 dac~;
#P newex 325 389 30 196617 line~;
#P message 325 360 72 196617 0 \, 2000 2000;
#P newex 325 415 62 196617 play~ buf*a;
#P newex 58 360 61 196617 vasp.update;
#P newex 58 257 45 196617 vasp.opt;
#P newex 58 234 71 196617 vasp.flp 2205;
#P message 58 188 58 196617 vasp buf*b;
#P newex 58 210 45 196617 vasp.abs;
#P message 58 118 58 196617 vasp buf*a;
#P newex 58 137 55 196617 vasp.noise;
#P hidden message 325 215 51 196617 set buf*b;
#P user waveform~ 325 233 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 hidden message 325 93 51 196617 set buf*a;
#P hidden newex 325 69 45 196617 loadbang;
#P user waveform~ 325 113 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 539 415 98 196617 buffer~ buf*b 2000;
#P newex 539 390 98 196617 buffer~ buf*a 2000;
#P comment 125 189 100 196617 get absolute values;
#P comment 52 43 336 196622 use vasp.* to multiplie an envelope to noise;
#P comment 150 81 100 196617 into buffer buf*b;
#P comment 600 98 37 196617 buf*a;
#P connect 12 0 11 0;
#P connect 11 0 33 0;
#P connect 14 0 13 0;
#P connect 13 0 15 0;
#P connect 15 0 16 0;
#P connect 16 0 39 0;
#P connect 25 0 24 0;
#P connect 24 0 17 0;
#P hidden connect 37 1 36 0;
#P hidden connect 7 0 8 0;
#P hidden connect 30 0 6 0;
#P hidden connect 8 0 6 0;
#P hidden connect 7 0 10 0;
#P hidden fasten 5 1 10 0 632 436 644 436 644 213 330 213;
#P hidden connect 10 0 9 0;
#P hidden connect 30 0 9 0;
#P connect 19 0 20 0;
#P connect 20 0 18 0;
#P connect 18 0 21 0;
#P fasten 22 0 21 0 229 438 330 438;
#P fasten 23 0 21 0 297 438 330 438;
#P connect 18 0 21 1;
#P connect 35 0 34 0;
#P hidden fasten 32 0 5 0 531 413 544 413;
#P pop;
#P newobj 45 315 98 196617 p envelope_example;
#P comment 103 141 76 196617 generate noise;
#P newex 45 263 61 196617 vasp.update;
#P message 45 140 53 196617 vasp buf*;
#P newex 45 175 55 196617 vasp.noise;
#P comment 39 74 189 196617 optional argument/right inlet: multiplier;
#P flonum 90 208 35 9 0. 1. 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P comment 39 59 97 196617 multiplies a vasp;
#P comment 39 36 66 196622 vasp.*;
#P newex 463 315 93 196617 buffer~ buf* 2000;
#P hidden message 246 120 45 196617 set buf*;
#P hidden newex 246 94 45 196617 loadbang;
#P user waveform~ 246 144 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 45 229 55 196617 vasp.* 0.5;
#P comment 129 210 59 196617 change gain;
#P connect 11 0 10 0;
#P connect 10 0 1 0;
#P connect 1 0 12 0;
#P connect 8 0 1 1;
#P hidden connect 3 0 4 0;
#P hidden connect 4 0 2 0;
#P connect 16 0 15 0;
#P pop;
|
