blob: 137f7abdec3122801b2a86d7647d7b9478eadf1a (
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
|
#N canvas 96 126 848 577 10;
#X obj 62 32 cnv 15 15 15 empty empty vasp.?? 0 10 1 14 -262144 -1
0;
#X text 64 66 outputs all samples of a vasp that are unequal zero;
#X text 64 95 right outlet: sample value;
#X text 65 83 left outlet: sample index;
#N canvas 0 0 413 295 clear_buffers 0;
#X obj 49 73 vasp.= 0;
#X obj 49 49 inlet;
#X obj 49 97 vasp.u;
#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
8 -262144 -1 -1;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X restore 512 453 pd clear_buffers;
#X msg 512 427 vasp bufnonzero bufnonzero1;
#N canvas 92 108 504 435 inside 0;
#X obj 87 206 soundfiler;
#X obj 305 257 s \$0-sample-length;
#X obj 87 260 s \$0-draw_display;
#X msg 235 258 resize \$1;
#X obj 235 280 s bufnonzero1;
#X obj 245 304 s bufnonzero;
#X msg 235 232 44100;
#N canvas 0 0 691 318 menuhandler 0;
#X obj 69 270 outlet;
#X msg 111 216 color \$1 \$2;
#X obj 183 270 outlet;
#X msg 225 216 color \$1 \$2;
#X obj 297 270 outlet;
#X msg 339 216 color \$1 \$2;
#X obj 411 79 r \$0-plastic;
#X obj 411 270 outlet;
#X obj 453 241 s \$0-plastic-color;
#X msg 453 216 color \$1 \$2;
#X obj 69 79 r \$0-bass;
#X obj 183 79 r \$0-beat;
#X obj 297 79 r \$0-fly;
#X obj 111 241 s \$0-bass-color;
#X obj 225 241 s \$0-beat-color;
#X obj 339 241 s \$0-fly-color;
#X obj 69 108 t b b b;
#X obj 183 108 t b b b;
#X obj 297 108 t b b b;
#X obj 411 108 t b b b;
#X msg 111 133 6 12;
#X msg 79 133 1 10;
#X msg 191 133 1 10;
#X msg 225 133 6 12;
#X msg 306 133 1 10;
#X msg 339 133 6 12;
#X msg 419 132 1 10;
#X msg 453 133 6 12;
#X connect 1 0 13 0;
#X connect 3 0 14 0;
#X connect 5 0 15 0;
#X connect 6 0 19 0;
#X connect 9 0 8 0;
#X connect 10 0 16 0;
#X connect 11 0 17 0;
#X connect 12 0 18 0;
#X connect 16 0 0 0;
#X connect 16 1 21 0;
#X connect 16 2 20 0;
#X connect 17 0 2 0;
#X connect 17 1 22 0;
#X connect 17 2 23 0;
#X connect 18 0 4 0;
#X connect 18 1 24 0;
#X connect 18 2 25 0;
#X connect 19 0 7 0;
#X connect 19 1 26 0;
#X connect 19 2 27 0;
#X connect 20 0 1 0;
#X connect 21 0 3 0;
#X connect 21 0 5 0;
#X connect 21 0 9 0;
#X connect 22 0 1 0;
#X connect 22 0 5 0;
#X connect 22 0 9 0;
#X connect 23 0 3 0;
#X connect 24 0 1 0;
#X connect 24 0 3 0;
#X connect 24 0 9 0;
#X connect 25 0 5 0;
#X connect 26 0 5 0;
#X connect 26 0 3 0;
#X connect 26 0 1 0;
#X connect 27 0 9 0;
#X restore 77 43 pd menuhandler;
#X obj 235 211 loadbang;
#X obj 41 107 loadbang;
#X msg 87 230 bang;
#X msg 77 79 read bass.aif bufnonzero;
#X msg 103 107 read beat.aif bufnonzero;
#X msg 129 133 read fly.aif bufnonzero;
#X msg 156 160 read plastic.aif bufnonzero;
#X connect 0 0 10 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 6 0 3 0;
#X connect 6 0 1 0;
#X connect 7 0 11 0;
#X connect 7 1 12 0;
#X connect 7 2 13 0;
#X connect 7 3 14 0;
#X connect 8 0 6 0;
#X connect 9 0 12 0;
#X connect 10 0 2 0;
#X connect 11 0 0 0;
#X connect 12 0 0 0;
#X connect 13 0 0 0;
#X connect 14 0 0 0;
#X restore 708 457 pd inside;
#X obj 462 101 wavedisplay-simple bufnonzero \$0;
#X obj 463 243 wavedisplay-simple bufnonzero1 \$0;
#X obj 81 151 hdl 15 1 0 6 \$0-beat empty empty 0 -6 1152 8 -262144
-1 -1 0;
#X obj 81 151 cnv 15 90 15 empty \$0-beat-color beat.aif 5 8 576 8
-225271 -33289 0;
#X obj 81 169 hdl 15 1 0 6 \$0-fly empty empty 0 -6 1152 8 -262144
-1 -1 0;
#X obj 81 169 cnv 15 90 15 empty \$0-fly-color fly.aif 5 8 576 8 -166441
-233017 0;
#X obj 81 133 hdl 15 1 0 6 \$0-bass empty empty 0 -6 1152 8 -262144
-1 -1 0;
#X obj 81 133 cnv 15 90 15 empty \$0-bass-color bass.aif 5 8 576 8
-166441 -233017 0;
#X obj 81 187 hdl 15 1 0 6 \$0-plastic empty empty 0 -6 1152 8 -262144
-1 -1 0;
#X obj 81 187 cnv 15 90 15 empty \$0-plastic-color plastic.aif 5 8
576 8 -166441 -233017 0;
#X text 723 83 source;
#X text 728 224 peaks;
#X obj 62 258 vasp.= bufnonzero;
#X msg 62 229 vasp bufnonzero1;
#X obj 62 309 vasp.update;
#X obj 115 330 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
8 -262144 -1 -1;
#X obj 62 285 vasp.peaks 0.0004;
#X text 140 388 sample index;
#X text 177 455 sample values;
#X obj 62 346 vasp.??;
#X text 183 228 copy to new buffer \, find peaks;
#X obj 62 389 prepend set;
#X obj 99 455 prepend set;
#X msg 62 415;
#X msg 99 481;
#X obj 34 521 VASP-HELP;
#X connect 5 0 4 0;
#X connect 19 0 23 0;
#X connect 20 0 19 0;
#X connect 21 0 22 0;
#X connect 21 0 26 0;
#X connect 23 0 21 0;
#X connect 26 0 28 0;
#X connect 26 1 29 0;
#X connect 28 0 30 0;
#X connect 29 0 31 0;
|
