-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathwin_maker.pd
480 lines (480 loc) · 12 KB
/
win_maker.pd
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
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
#N canvas 108 67 1332 558 12;
#X obj 352 86 pdcontrol;
#X msg 352 64 args 0;
#X text 1063 80 hann hamm tri triangle blackmann;
#X text 962 81 \$1 win type:;
#X text 963 103 \$2 win size;
#X text 963 123 \$3 array to write;
#X obj 352 42 loadbang;
#N canvas 377 234 1063 644 window_type 0;
#X obj 397 18 route rect rectangular;
#X obj 397 40 s \$0-0;
#X obj 69 122 f \$0;
#X obj 69 99 t b f;
#X obj 69 143 pack 0 0;
#X msg 65 169 \; \$1-\$2 bang \;;
#X text 586 16 0 \, rect \, rectangular: rectangular window;
#X obj 70 22 inlet;
#X obj 145 115 s \$0-winsymbol;
#X obj 292 18 r \$0-winsymbol;
#X obj 292 63 r \$0-winsymbol;
#X obj 397 63 route black blackman;
#X obj 397 85 s \$0-1;
#X text 586 29 1 \, black \, blackman: blackman window;
#X text 587 42 2 \, cos \, cosine \, sin \, sine: cosine window;
#X text 587 55 3 \, hamm \, hamming: hamming window;
#X text 587 68 4 \, hann \, hanning: hanning window;
#X text 587 94 6 \, wel \, welch: welch window;
#X text 587 81 5 \, tri \, triangle: triangle window;
#X obj 292 108 r \$0-winsymbol;
#X obj 397 108 route cos cosine sin sine;
#X obj 397 130 s \$0-2;
#X obj 292 153 r \$0-winsymbol;
#X obj 397 153 route hamm hamming;
#X obj 397 175 s \$0-3;
#X obj 292 198 r \$0-winsymbol;
#X obj 397 198 route hann hanning;
#X obj 397 220 s \$0-4;
#X obj 292 243 r \$0-winsymbol;
#X obj 397 243 route tri triangle;
#X obj 292 288 r \$0-winsymbol;
#X obj 397 288 route wel welch;
#X obj 292 333 r \$0-winsymbol;
#X obj 397 265 s \$0-5;
#X obj 397 310 s \$0-6;
#X obj 397 356 s \$0-7;
#X text 587 108 7 \, blackmanharris \, harris \, blackharr: blackman-harris
window;
#X obj 397 333 route blackmanharris harris blackharr;
#X obj 292 383 r \$0-winsymbol;
#X obj 397 383 route nutall nut;
#X obj 397 406 s \$0-8;
#X text 587 121 8 \, nutall \, nut: nutall window;
#X obj 292 429 r \$0-winsymbol;
#X text 587 134 9 \, blackmannutall \, blacknut: blackman-nutall window
;
#X obj 397 452 s \$0-9;
#X obj 397 429 route blackmannutall blacknut;
#X obj 70 50 route float;
#X obj 144 21 inlet;
#X connect 0 0 1 0;
#X connect 0 1 1 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 4 1;
#X connect 4 0 5 0;
#X connect 7 0 46 0;
#X connect 9 0 0 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 1 12 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 21 0;
#X connect 20 2 21 0;
#X connect 20 3 21 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 23 1 24 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 26 1 27 0;
#X connect 28 0 29 0;
#X connect 29 0 33 0;
#X connect 29 1 33 0;
#X connect 30 0 31 0;
#X connect 31 0 34 0;
#X connect 31 1 34 0;
#X connect 32 0 37 0;
#X connect 37 0 35 0;
#X connect 37 1 35 0;
#X connect 37 2 35 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 39 1 40 0;
#X connect 42 0 45 0;
#X connect 45 0 44 0;
#X connect 45 1 44 0;
#X connect 46 0 3 0;
#X connect 46 1 8 0;
#X restore 128 410 pd window_type;
#N canvas 141 223 1063 644 blackman 0;
#X obj 18 10 r \$0-1;
#X obj 18 101 until;
#X obj 18 53 f \$2;
#X obj 18 131 f;
#X obj 18 76 t f b;
#X msg 64 101 0;
#X floatatom 18 160 5 0 0 0 - - - 0;
#X obj 54 132 + 1;
#X text 275 174 a = 0.16;
#X text 275 194 a0 = (1-a)/2 = 0.42;
#X text 275 214 a1 = 1/2 = 0.5;
#X text 275 234 a2 = a/2 = 0.08;
#X obj 18 282 expr 0.42 - 0.5*(cos(2*3.14159265359*$f1/$f2)) + 0.08*cos((4*3.14159265359*$f1)/$f2)
;
#X obj 18 195 t f f;
#X obj 17 355 tabwrite \$3;
#X obj 72 28 r \$0-setsize;
#X obj 351 258 r \$0-setsize;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 6 0;
#X connect 3 0 7 0;
#X connect 4 0 1 0;
#X connect 4 1 5 0;
#X connect 5 0 3 1;
#X connect 6 0 13 0;
#X connect 7 0 3 1;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 13 1 14 1;
#X connect 15 0 2 1;
#X connect 16 0 12 1;
#X restore 673 83 pd blackman;
#X obj 386 382 array define \$3 \$2;
#X msg 29 70 size 64;
#X obj 35 127 route size type;
#X floatatom 35 241 5 0 0 0 - - - 0;
#X msg 164 109 type d hann;
#X msg 143 330 set \$1;
#X obj 130 231 list prepend;
#X msg 114 77 type 2;
#X obj 35 362 s \$0-setsize;
#X msg 278 127 \$1, f 4;
#X obj 130 262 t b a b;
#X obj 35 328 f \$2;
#N canvas 141 223 1063 644 rectangular 0;
#X obj 118 77 f \$2;
#X obj 172 52 r \$0-setsize;
#X msg 118 100 const 1;
#X obj 118 34 r \$0-0;
#X obj 118 139 s \$0-arrdefine;
#X connect 0 0 2 0;
#X connect 1 0 0 1;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X restore 673 61 pd rectangular;
#X obj 282 358 r \$0-arrdefine;
#X obj 386 334 r \$0-setsize;
#X msg 386 358 resize \$1;
#N canvas 261 86 1063 644 cosine 0;
#X obj 18 101 until;
#X obj 18 53 f \$2;
#X obj 18 131 f;
#X obj 18 76 t f b;
#X msg 64 101 0;
#X floatatom 18 160 5 0 0 0 - - - 0;
#X obj 54 132 + 1;
#X obj 18 195 t f f;
#X obj 17 355 tabwrite \$3;
#X obj 72 28 r \$0-setsize;
#X obj 18 10 r \$0-2;
#X obj 18 282 expr sin(3.14159265359*$f1/$f2);
#X obj 232 254 r \$0-setsize;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 4 0 2 1;
#X connect 5 0 7 0;
#X connect 6 0 2 1;
#X connect 7 0 11 0;
#X connect 7 1 8 1;
#X connect 9 0 1 1;
#X connect 10 0 1 0;
#X connect 11 0 8 0;
#X connect 12 0 11 1;
#X restore 673 105 pd cosine;
#N canvas 377 37 1063 644 triangle 0;
#X obj 18 101 until;
#X obj 18 53 f \$2;
#X obj 18 131 f;
#X obj 18 76 t f b;
#X msg 64 101 0;
#X floatatom 18 160 5 0 0 0 - - - 0;
#X obj 54 132 + 1;
#X obj 18 195 t f f;
#X obj 18 335 tabwrite \$3;
#X obj 72 28 r \$0-setsize;
#X obj 18 10 r \$0-5;
#X obj 18 302 expr 1-abs(($f1-($f2/2))/($f2/2));
#X obj 246 276 r \$0-setsize;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 4 0 2 1;
#X connect 5 0 7 0;
#X connect 6 0 2 1;
#X connect 7 0 11 0;
#X connect 7 1 8 1;
#X connect 9 0 1 1;
#X connect 10 0 1 0;
#X connect 11 0 8 0;
#X connect 12 0 11 1;
#X restore 673 171 pd triangle;
#N canvas 638 43 1063 644 hamming 0;
#X obj 19 100 until;
#X obj 19 52 f \$2;
#X obj 19 130 f;
#X obj 19 75 t f b;
#X msg 65 100 0;
#X floatatom 19 159 5 0 0 0 - - - 0;
#X obj 55 131 + 1;
#X obj 19 194 t f f;
#X obj 19 334 tabwrite \$3;
#X obj 73 27 r \$0-setsize;
#X obj 19 9 r \$0-3;
#X obj 388 220 r \$0-setsize;
#X obj 230 63 expr (25/46)-((1-(25/46))*cos(6.28318530718*$f1/$f2))
;
#X obj 19 295 expr 0.54-0.46*(cos(6.28318530718*$f1/$f2));
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 4 0 2 1;
#X connect 5 0 7 0;
#X connect 6 0 2 1;
#X connect 7 0 13 0;
#X connect 7 1 8 1;
#X connect 9 0 1 1;
#X connect 10 0 1 0;
#X connect 11 0 13 1;
#X connect 13 0 8 0;
#X restore 673 127 pd hamming;
#N canvas 377 37 1063 644 hanning 0;
#X obj 18 101 until;
#X obj 18 53 f \$2;
#X obj 18 131 f;
#X obj 18 76 t f b;
#X msg 64 101 0;
#X floatatom 18 160 5 0 0 0 - - - 0;
#X obj 54 132 + 1;
#X text 315 104 a = 0.16;
#X text 315 124 a0 = (1-a)/2 = 0.42;
#X text 315 144 a1 = 1/2 = 0.5;
#X text 315 164 a2 = a/2 = 0.08;
#X obj 18 195 t f f;
#X obj 18 265 tabwrite \$3;
#X obj 72 28 r \$0-setsize;
#X obj 18 10 r \$0-4;
#X obj 18 232 expr pow(sin(3.14159265359*$f1/$f2) \, 2);
#X obj 288 207 r \$0-setsize;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 4 0 2 1;
#X connect 5 0 11 0;
#X connect 6 0 2 1;
#X connect 11 0 15 0;
#X connect 11 1 12 1;
#X connect 13 0 1 1;
#X connect 14 0 1 0;
#X connect 15 0 12 0;
#X connect 16 0 15 1;
#X restore 673 149 pd hanning;
#N canvas 377 37 1063 644 welch 0;
#X obj 18 101 until;
#X obj 18 53 f \$2;
#X obj 18 131 f;
#X obj 18 76 t f b;
#X msg 64 101 0;
#X floatatom 18 160 5 0 0 0 - - - 0;
#X obj 54 132 + 1;
#X obj 18 195 t f f;
#X obj 18 335 tabwrite \$3;
#X obj 72 28 r \$0-setsize;
#X obj 18 302 expr 1-pow((($f1-($f2/2))/($f2/2)) \, 2);
#X obj 18 10 r \$0-6;
#X obj 281 271 r \$0-setsize;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 4 0 2 1;
#X connect 5 0 7 0;
#X connect 6 0 2 1;
#X connect 7 0 10 0;
#X connect 7 1 8 1;
#X connect 9 0 1 1;
#X connect 10 0 8 0;
#X connect 11 0 1 0;
#X connect 12 0 10 1;
#X restore 673 192 pd welch;
#N canvas 377 206 1063 644 blackman-harris 0;
#X obj 18 101 until;
#X obj 18 53 f \$2;
#X obj 18 131 f;
#X obj 18 76 t f b;
#X msg 64 101 0;
#X floatatom 18 160 5 0 0 0 - - - 0;
#X obj 54 132 + 1;
#X obj 18 195 t f f;
#X obj 25 355 tabwrite \$3;
#X obj 72 28 r \$0-setsize;
#X obj 18 10 r \$0-7;
#X text 275 174 a0 = 0.35875;
#X text 275 194 a1 = 0.48829;
#X text 275 214 a2 = 0.14128;
#X text 275 234 a3 = 0.01168;
#X obj 26 282 expr 0.35875 - 0.48829*cos((6.28318530718 *$f1)/$f2)
+ 0.14128*cos((12.5663706144 * $f1)/$f2) - 0.01168*cos((18.8495559215
* $f1)/$f2);
#X obj 401 252 r \$0-setsize;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 4 0 2 1;
#X connect 5 0 7 0;
#X connect 6 0 2 1;
#X connect 7 0 15 0;
#X connect 7 1 8 1;
#X connect 9 0 1 1;
#X connect 10 0 1 0;
#X connect 15 0 8 0;
#X connect 16 0 15 1;
#X restore 673 213 pd blackman-harris;
#N canvas 377 204 1063 644 nutall 0;
#X obj 18 101 until;
#X obj 18 53 f \$2;
#X obj 18 131 f;
#X obj 18 76 t f b;
#X msg 64 101 0;
#X floatatom 18 160 5 0 0 0 - - - 0;
#X obj 54 132 + 1;
#X obj 18 195 t f f;
#X obj 17 355 tabwrite \$3;
#X obj 72 28 r \$0-setsize;
#X obj 18 10 r \$0-8;
#X text 275 174 a0 = 0.355768;
#X text 275 193 a1 = 0.487396;
#X text 275 214 a2 = 0.144232;
#X text 275 234 a3 = 0.012604;
#X obj 18 282 expr 0.355768 - 0.487396*cos((6.28318530718 *$f1)/$f2)
+ 0.144232*cos((12.5663706144 * $f1)/$f2) - 0.012604*cos((18.8495559215
* $f1)/$f2);
#X obj 407 255 r \$0-setsize;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 4 0 2 1;
#X connect 5 0 7 0;
#X connect 6 0 2 1;
#X connect 7 0 15 0;
#X connect 7 1 8 1;
#X connect 9 0 1 1;
#X connect 10 0 1 0;
#X connect 15 0 8 0;
#X connect 16 0 15 1;
#X restore 673 236 pd nutall;
#N canvas 377 82 1063 644 blackman-nutall 0;
#X obj 18 101 until;
#X obj 18 53 f \$2;
#X obj 18 131 f;
#X obj 18 76 t f b;
#X msg 64 101 0;
#X floatatom 18 160 5 0 0 0 - - - 0;
#X obj 54 132 + 1;
#X obj 18 195 t f f;
#X obj 18 355 tabwrite \$3;
#X obj 72 28 r \$0-setsize;
#X obj 18 10 r \$0-9;
#X text 275 174 a0 = 0.363582;
#X text 275 193 a1 = 0.489177;
#X text 275 214 a2 = 0.136599;
#X text 275 234 a3 = 0.0106411;
#X obj 19 282 expr 0.3635819-0.4891775*cos((6.28318530718 *$f1)/$f2)
+ 0.1365995*cos((12.5663706144 * $f1)/$f2) - 0.0106411*cos((18.8495559215
* $f1)/$f2);
#X obj 408 258 r \$0-setsize;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 4 0 2 1;
#X connect 5 0 7 0;
#X connect 6 0 2 1;
#X connect 7 0 15 0;
#X connect 7 1 8 1;
#X connect 9 0 1 1;
#X connect 10 0 1 0;
#X connect 15 0 8 0;
#X connect 16 0 15 1;
#X restore 674 258 pd blackman-nutall;
#X msg 390 153 \$2;
#X obj 390 176 s \$0-setsize;
#X obj 352 113 t b l l l;
#X obj 74 23 inlet;
#X msg 130 362 4;
#X obj 35 157 t b f;
#X obj 171 191 symbol;
#X obj 110 160 route float symbol;
#X obj 110 191 f;
#X msg 243 193 1;
#X msg 279 193 2;
#X obj 258 271 spigot;
#X obj 318 271 spigot;
#X obj 280 229 expr if($i1==1 \, 1 \, 0) \; if($i1==2 \, 1 \, 0) \;
;
#X connect 0 0 35 0;
#X connect 1 0 0 0;
#X connect 6 0 1 0;
#X connect 10 0 11 0;
#X connect 11 0 38 0;
#X connect 11 1 39 0;
#X connect 11 1 40 0;
#X connect 12 0 20 0;
#X connect 13 0 11 0;
#X connect 14 0 37 0;
#X connect 15 0 19 0;
#X connect 16 0 11 0;
#X connect 18 0 40 0;
#X connect 19 0 37 0;
#X connect 19 1 14 0;
#X connect 19 2 20 0;
#X connect 20 0 17 0;
#X connect 22 0 9 0;
#X connect 23 0 24 0;
#X connect 24 0 9 0;
#X connect 33 0 34 0;
#X connect 35 1 18 0;
#X connect 35 2 33 0;
#X connect 36 0 11 0;
#X connect 37 0 7 0;
#X connect 38 0 44 0;
#X connect 38 0 45 0;
#X connect 38 1 12 0;
#X connect 39 0 15 0;
#X connect 40 0 41 0;
#X connect 40 0 42 0;
#X connect 40 1 39 0;
#X connect 40 1 43 0;
#X connect 41 0 15 0;
#X connect 42 0 46 0;
#X connect 43 0 46 0;
#X connect 44 0 41 0;
#X connect 45 0 39 0;
#X connect 46 0 44 1;
#X connect 46 1 45 1;