aboutsummaryrefslogtreecommitdiff
path: root/externals/grill/vasp/pd-ex/convolve.pd
blob: 954a551288940f831dcd4bcfee56e4530877649c (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
#N canvas 292 80 642 419 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 364 125 nbx 8 16 0 1e+008 0 0 len_src empty empty 0 -8 128 12
-225271 -1 -1 0 256;
#X text 367 142 (defines the size of the result);
#X obj 362 179 nbx 8 16 0 1e+008 0 0 len_arg empty empty 0 -8 128 12
-225271 -1 -1 0 256;
#X obj 24 122 wedit buf_src;
#X obj 23 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 3.21297e+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 140 121 source buffer;
#X text 137 175 argument buffer;
#N canvas 0 0 470 320 do 0;
#X obj 29 215 vasp.u;
#N canvas 406 75 399 494 convolve 0;
#X obj 57 343 vasp.conv;
#X obj 199 183 vasp.!;
#X obj 108 191 vasp.f?;
#X obj 198 154 vasp;
#X obj 28 69 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 197 254 pd sf;
#X obj 59 380 vasp.opt;
#X obj 68 227 vasp;
#X obj 29 39 inlet;
#X obj 132 51 inlet;
#X obj 221 50 inlet;
#X obj 313 50 inlet;
#X obj 45 458 outlet;
#X text 26 15 bang;
#X text 126 21 src1;
#X text 218 20 src2;
#X text 313 22 dst;
#X text 196 201 copy to temp;
#X text 102 457 dst;
#N canvas 0 0 454 304 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 68 255 pd sf;
#X obj 30 296 vasp.->;
#X obj 31 408 vasp.radio;
#X obj 29 94 t a b a;
#X connect 0 0 6 0;
#X connect 1 0 5 0;
#X connect 2 0 5 1;
#X connect 2 0 19 1;
#X connect 3 0 1 0;
#X connect 4 0 22 0;
#X connect 5 0 0 1;
#X connect 6 0 21 0;
#X connect 7 0 19 0;
#X connect 8 0 4 0;
#X connect 9 0 4 1;
#X connect 10 0 3 1;
#X connect 11 0 7 1;
#X connect 19 0 20 1;
#X connect 20 1 0 0;
#X connect 21 1 12 0;
#X connect 22 0 20 0;
#X connect 22 1 3 0;
#X connect 22 1 7 0;
#X connect 22 2 2 0;
#X restore 28 186 pd convolve;
#X obj 26 52 t b b;
#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 27 278 outlet;
#X obj 29 251 vasp.f?;
#X text 85 215 update buffer;
#X obj 147 159 vasp.f;
#X obj 43 157 vasp.f;
#X msg 45 93 vasp buf_src;
#X obj 141 51 r off_src;
#X obj 227 54 r off_arg;
#X obj 43 125 vasp.o;
#X obj 147 127 vasp.o;
#X connect 0 0 12 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 3 0;
#X connect 2 1 4 0;
#X connect 2 1 16 0;
#X connect 3 0 20 0;
#X connect 4 0 1 3;
#X connect 8 0 2 0;
#X connect 9 0 15 1;
#X connect 10 0 14 1;
#X connect 12 0 11 0;
#X connect 14 0 1 2;
#X connect 15 0 1 1;
#X connect 16 0 19 0;
#X connect 17 0 19 1;
#X connect 18 0 20 1;
#X connect 19 0 15 0;
#X connect 20 0 14 0;
#X restore 177 324 pd do;
#X obj 267 125 nbx 8 16 0 1e+008 0 0 off_src empty empty 0 -8 128 12
-225271 -1 -1 0 256;
#X obj 265 179 nbx 8 16 0 1e+008 0 0 off_arg empty empty 0 -8 128 12
-225271 -1 -1 0 256;
#X text 383 103 length;
#X text 288 100 offset;
#X text 286 78 range in samples;
#X connect 18 0 9 0;
#X connect 18 0 10 0;