blob: 1194e33dbadfa5f40450bf343ed3cf4d52ab4b9a (
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
|
#N canvas 292 80 638 415 12;
#X obj 60 241 bng 50 250 50 0 start_bang empty start 0 -6 128 8 -24198
-1 -1;
#X text 15 77 load/save/play etc.;
#X obj 179 125 nbx 8 16 0 1e+008 0 0 len_src empty empty 0 -8 128 12
-225271 -1 -1 4e+006 256;
#X text 275 137 (defines the size of the result);
#X obj 177 179 nbx 8 16 0 1e+008 0 0 len_arg empty empty 0 -8 128 12
-225271 -1 -1 89000 256;
#X obj 32 122 wedit buf_src;
#X obj 30 176 wedit buf_arg;
#X obj 33 350 wedit buf_res;
#X text 122 255 start convolution;
#X obj 177 356 bng 15 250 50 0 empty empty empty 0 -6 0 8 -258699 -1
-1;
#X obj 201 357 nbx 8 16 0 1e+008 0 0 len_arg empty empty 0 -8 128 12
-261689 -1 -1 4e+006 256;
#X obj 11 10 cnv 15 600 50 empty empty convolve 10 22 0 24 -260818
-1 0;
#X text 202 41 http://www.parasitaere-kapazitaeten.net;
#X text 203 10 fft-based convolution \, (C)2003 Thomas Grill;
#X text 203 25 needs vasp and wedit;
#X text 32 329 result buffer;
#X text 31 102 source buffer;
#X text 29 157 argument buffer;
#X text 278 124 length of source (samples);
#X text 276 178 length of argument (samples);
#N canvas 0 0 464 314 do 0;
#X obj 29 215 vasp.u;
#N canvas 406 75 430 580 convolve 0;
#X obj 29 195 vasp.!;
#X obj 107 280 vasp.conv;
#X obj 107 311 t a a;
#X obj 185 344 vasp.f?;
#X obj 188 372 t b f;
#X obj 108 482 vasp.->;
#X obj 195 140 vasp.!;
#X obj 102 170 vasp.f?;
#X obj 29 131 t a b a;
#X obj 194 111 vasp;
#X obj 28 106 vasp;
#N canvas 0 0 458 308 sf 0;
#X obj 39 178 outlet;
#X obj 38 43 inlet;
#X obj 41 79 vasp.s;
#X obj 120 43 inlet;
#X obj 39 118 vasp.f;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 2 1;
#X connect 3 0 4 1;
#X connect 4 0 0 0;
#X restore 194 211 pd sf;
#N canvas 0 0 452 302 sf 0;
#X obj 39 178 outlet;
#X obj 38 43 inlet;
#X obj 41 79 vasp.s;
#X obj 120 43 inlet;
#X obj 39 118 vasp.f;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 2 1;
#X connect 3 0 4 1;
#X connect 4 0 0 0;
#X restore 187 437 pd sf;
#X obj 107 406 vasp.opt;
#X obj 210 405 vasp;
#X obj 26 46 inlet;
#X obj 132 51 inlet;
#X obj 221 50 inlet;
#X obj 313 50 inlet;
#X obj 107 538 outlet;
#X text 26 15 bang;
#X text 126 21 src1;
#X text 218 20 src2;
#X text 313 22 dst;
#X text 10 217 copy to temp;
#X text 192 158 copy to temp;
#X text 164 537 dst;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 13 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 4 0 14 0;
#X connect 4 1 12 1;
#X connect 5 1 19 0;
#X connect 6 0 11 0;
#X connect 7 0 11 1;
#X connect 8 0 0 0;
#X connect 8 1 9 0;
#X connect 8 2 7 0;
#X connect 9 0 6 0;
#X connect 10 0 8 0;
#X connect 11 0 1 1;
#X connect 12 0 5 1;
#X connect 13 0 5 0;
#X connect 14 0 12 0;
#X connect 15 0 10 0;
#X connect 16 0 10 1;
#X connect 17 0 9 1;
#X connect 18 0 14 1;
#X restore 28 186 pd convolve;
#X obj 26 52 t b b;
#X obj 43 127 vasp.f;
#X msg 43 94 vasp buf_src;
#X msg 154 93 vasp buf_arg;
#X msg 267 92 vasp buf_res;
#X obj 306 220 table buf_src 10;
#X obj 307 242 table buf_arg 10;
#X obj 307 264 table buf_res 10;
#X obj 26 23 r start_bang;
#X obj 143 21 r len_src;
#X obj 229 24 r len_arg;
#X obj 153 126 vasp.f;
#X obj 27 278 outlet;
#X obj 29 251 vasp.f?;
#X text 85 215 update buffer;
#X connect 0 0 15 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 4 0;
#X connect 2 1 5 0;
#X connect 2 1 6 0;
#X connect 3 0 1 1;
#X connect 4 0 3 0;
#X connect 5 0 13 0;
#X connect 6 0 1 3;
#X connect 10 0 2 0;
#X connect 11 0 3 1;
#X connect 12 0 13 1;
#X connect 13 0 1 2;
#X connect 15 0 14 0;
#X restore 177 324 pd do;
#X connect 20 0 9 0;
#X connect 20 0 10 0;
|
