blob: 9752bbc1b4bb34f86edf7664e6e55e87b3fce7be (
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
|
max v2;
#N vpatcher 219 119 883 614;
#P message 435 404 95 196617 vasp bufval bufval1;
#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 435 425 78 196617 p clear_buffers;
#P hidden newex 532 382 48 196617 r 1162path;
#P user umenu 77 128 72 196647 1 64 144 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 631 722;
#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 1162path;
#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 139 150 43 196617 p loader;
#P comment 51 93 160 196617 outlet: current density value 0-1;
#P comment 181 294 115 196617 = number of valleys;
#P number 143 292 35 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 143 240 71 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 143 264 51 196617 * 88200.;
#P comment 215 242 100 196617 current density;
#P comment 198 266 100 196617 * lenght of the vasp;
#P newex 58 235 61 196617 vasp.update;
#P comment 592 237 44 196617 valleys;
#P comment 132 174 161 196617 copy to new buffer \, find valleys;
#P message 53 345 65 196617 vasp bufval1;
#P newex 53 373 45 196617 vasp.opt;
#P hidden message 325 234 59 196617 set bufval1;
#P user waveform~ 325 252 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 532 425 105 196617 buffer~ bufval1 2000;
#P comment 51 79 188 196617 argument/right inlet: density value 0-1;
#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 67 49 196617 p wfkeys;
#P message 284 425 27 196617 stop;
#P message 215 425 65 196617 startwindow;
#P newex 325 451 29 196617 dac~;
#P newex 325 404 30 196617 line~;
#P message 325 381 72 196617 0 \, 2000 2000;
#P newex 325 425 70 196617 play~ bufval1;
#P hidden message 325 113 53 196617 set bufval;
#P hidden newex 325 89 45 196617 loadbang;
#P user waveform~ 325 133 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 58 214 95 196617 vasp.valleys 0.001;
#P newex 53 394 61 196617 vasp.update;
#P message 58 173 65 196617 vasp bufval1;
#P newex 532 404 105 196617 buffer~ bufval 2000;
#P newex 58 194 69 196617 vasp.= bufval;
#P comment 51 64 215 196617 find the local minima of the buffer samples;
#P comment 51 41 107 196622 vasp.valleys;
#P comment 127 346 111 196617 optimize buffer content;
#P comment 594 118 44 196617 source;
#P comment 51 129 32 196617 read;
#P connect 25 0 24 0;
#P connect 24 0 8 0;
#P connect 7 0 5 0;
#P connect 5 0 9 0;
#P connect 9 0 28 0;
#P hidden connect 37 1 36 0;
#P connect 9 1 32 0;
#P connect 32 0 31 0;
#P connect 31 0 33 0;
#P hidden connect 11 0 12 0;
#P hidden fasten 6 1 12 0 632 421 642 421 642 109 330 109;
#P hidden connect 19 0 10 0;
#P hidden connect 12 0 10 0;
#P hidden connect 11 0 23 0;
#P hidden connect 19 0 22 0;
#P hidden connect 23 0 22 0;
#P connect 14 0 15 0;
#P connect 15 0 13 0;
#P connect 13 0 16 0;
#P fasten 17 0 16 0 220 444 330 444;
#P fasten 18 0 16 0 289 444 330 444;
#P connect 13 0 16 1;
#P connect 40 0 39 0;
#P hidden connect 38 0 6 0;
#P pop;
|
