blob: 168488b014af37a6e84a42118d54273bc8c5d033 (
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
|
#N canvas 9 18 777 596 10;
#X obj 44 49 dsp;
#X obj 44 26 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 44 90 5 0 0 0 - - -;
#X floatatom 57 73 5 0 0 0 - - -;
#N canvas 0 0 450 300 graph1 0;
#X array win 50 float 0;
#X coords 0 1 49 -1 200 140 1;
#X restore 267 333 graph;
#X floatatom 64 144 7 0 0 0 - - -;
#X obj 189 188 noise~;
#X floatatom 316 170 5 2 40 0 - - -;
#X msg 316 147 8;
#X text 22 -1 spec2_tab_conv~;
#X obj 64 166 osc~ 5000;
#N canvas 148 208 734 434 gen_win 0;
#X obj 92 43 inlet;
#X obj 92 121 - 1;
#X obj 92 142 t f f;
#X obj 92 167 / 20;
#X obj 92 188 * 3.14159;
#X obj 92 211 sin;
#X msg 92 232 \$1 \$1;
#X obj 92 254 *;
#X obj 92 65 t b f b;
#X msg 253 218 1 \$1;
#X obj 253 240 /;
#X obj 224 367 outlet;
#X obj 225 315 f;
#X msg 224 337 set win \$1;
#X obj 527 33 table hwin 50;
#X obj 242 124 tab_const hwin;
#X obj 92 274 tabwrite hwin;
#X obj 191 146 tab_sum hwin;
#X obj 253 264 tab_mul_scalar hwin hwin;
#X obj 191 192 tab_copy hwin win;
#X obj 93 95 for++ 1 20;
#X connect 0 0 8 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 16 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 16 0;
#X connect 8 0 20 0;
#X connect 8 1 3 1;
#X connect 8 1 12 1;
#X connect 8 1 20 1;
#X connect 8 2 15 0;
#X connect 9 0 10 0;
#X connect 10 0 18 0;
#X connect 12 0 13 0;
#X connect 13 0 11 0;
#X connect 17 0 19 0;
#X connect 17 1 9 0;
#X connect 19 0 12 0;
#X connect 20 0 1 0;
#X connect 20 1 17 0;
#X restore 316 189 pd gen_win;
#X obj 316 124 loadbang;
#N canvas 6 92 777 603 spec2_blockfilter~ 0;
#X obj 59 29 inlet~;
#X obj 72 488 outlet~;
#X obj 61 101 rfft~;
#X obj 71 392 rifft~;
#X obj 407 22 inlet;
#X text 199 240 1.arg: <symbol> table-name;
#X obj 474 23 block~ 256 2;
#N canvas 0 0 450 300 graph1 0;
#X array hsin 256 float 0;
#X coords 0 1 255 -1 200 140 1;
#X restore 423 296 graph;
#X obj 458 140 for++ 0 255 0.1;
#X obj 458 119 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 458 160 t f f;
#X obj 457 190 / 256;
#X obj 457 210 * 3.14159;
#X obj 457 229 sin;
#X obj 457 251 tabwrite hsin;
#X obj 72 51 tabreceive~ hsin;
#X obj 60 73 *~;
#X obj 458 95 loadbang;
#X obj 241 100 rfft~;
#X obj 252 50 tabreceive~ hsin;
#X obj 240 72 *~;
#X obj 241 26 inlet~;
#X obj 84 417 tabreceive~ hsin;
#X obj 72 439 *~;
#X text 199 251 2.arg: <float> table-size;
#X obj 72 463 /~ 32768;
#X obj 59 290 spec2_dbtorms~;
#X obj 65 363 spec2*~;
#X obj 122 366 spec2*~;
#X obj 58 178 spec2+~;
#X obj 47 151 spec2*~;
#X obj 94 151 spec2*~;
#X obj 58 201 spec2_powtodb~;
#X obj 59 247 spec2_tab_conv~ win 8;
#X connect 0 0 16 0;
#X connect 2 0 30 0;
#X connect 2 0 30 1;
#X connect 2 1 31 0;
#X connect 2 1 31 1;
#X connect 3 0 23 0;
#X connect 4 0 33 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 14 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 15 0 16 1;
#X connect 16 0 2 0;
#X connect 17 0 9 0;
#X connect 18 0 27 1;
#X connect 18 1 28 1;
#X connect 19 0 20 1;
#X connect 20 0 18 0;
#X connect 21 0 20 0;
#X connect 22 0 23 1;
#X connect 23 0 25 0;
#X connect 25 0 1 0;
#X connect 26 0 27 0;
#X connect 26 0 28 0;
#X connect 27 0 3 0;
#X connect 28 0 3 1;
#X connect 29 0 32 0;
#X connect 30 0 29 0;
#X connect 31 0 29 1;
#X connect 32 0 33 0;
#X connect 33 0 26 0;
#X restore 64 211 pd spec2_blockfilter~ using spec2_tab_conv~;
#X text 550 227 1.arg: <symbol> table-name;
#X text 551 240 2.arg: <float> table-size;
#X msg 429 209 set win 8;
#X obj 408 234 spec2_tab_conv~ win 8;
#X obj 68 298 dac~;
#X obj 144 311 prvu~;
#X obj 145 339 vu 15 120 empty empty -1 -8 0 8 -66577 -1 1 0;
#X floatatom 143 505 5 0 0 0 - - -;
#X floatatom 154 479 5 0 0 0 - - -;
#X msg 156 288 reset;
#X text 146 4 convolute a spectrum of size (blocksize/2 + 1) with a
table of size n;
#X obj 69 266 *~ 0.003;
#X obj 133 255 dbtorms;
#X obj 201 252 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X obj 161 131 mtof;
#X obj 165 111 hsl 137 15 0 136 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X text 98 553 IEM KUG;
#X text 82 541 musil;
#X text 112 541 @;
#X text 118 541 iem.at;
#X text 81 563 Graz \, Austria;
#X text 33 530 (c) Thomas Musil 2000 - 2006;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 5 0 10 0;
#X connect 6 0 13 1;
#X connect 7 0 11 0;
#X connect 8 0 7 0;
#X connect 10 0 13 0;
#X connect 11 0 13 2;
#X connect 12 0 8 0;
#X connect 13 0 25 0;
#X connect 16 0 17 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 22 0;
#X connect 23 0 19 0;
#X connect 25 0 19 0;
#X connect 25 0 18 0;
#X connect 25 0 18 1;
#X connect 26 0 25 1;
#X connect 27 0 26 0;
#X connect 28 0 5 0;
#X connect 29 0 28 0;
|
