blob: 32da8e59d374a7470fb942c96bf66c5e95257978 (
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
|
#N canvas 415 302 865 491 10;
#X obj 13 13 inlet left;
#X obj 183 22 inlet right;
#X obj 13 32 route2 precision;
#X obj 33 383 outlet result;
#X obj 183 109 #polygon_radial_map;
#X obj 183 225 #fft;
#X obj 33 225 #fft;
#X obj 33 263 #fft \, sign -1;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-table 256 float 2;
#X coords 0 1 256 0 200 140 1;
#X restore 405 42 graph;
#X obj 33 109 #polygon_radial_map;
#X obj 33 168 #redim (1 256 1);
#X obj 183 168 #redim (1 256 1);
#X obj 33 206 #cast f;
#X obj 33 187 #outer * (1 0);
#X obj 183 187 #outer * (1 0);
#X obj 183 206 #cast f;
#X obj 33 329 #inner (2 f # 1 0) \, seed (f # 0);
#X obj 33 348 #redim (256);
#X obj 33 244 # C.*conj (2 f # 1 0);
#X obj 33 128 #t;
#X obj 183 128 #t;
#X obj 208 129 # sq-;
#X obj 247 129 #fold +;
#X obj 58 129 # sq-;
#X obj 97 129 #fold +;
#X obj 224 237 # *;
#X obj 247 148 #cast f;
#X obj 97 148 #cast f;
#X obj 224 256 # sqrt (f #);
#X obj 33 301 # / (f # 1);
#X obj 33 282 # / (f # 256);
#X obj 183 59 #t;
#X obj 208 59 #polygon_moment;
#X obj 183 80 # -;
#X obj 33 58 #t;
#X obj 58 58 #polygon_moment;
#X obj 33 79 # -;
#X obj 330 437 f;
#X obj 216 456 tabwrite \$0-table;
#X obj 216 420 t f b;
#X msg 346 418 0;
#X obj 355 437 + 1;
#X obj 216 373 t a b;
#X obj 216 401 #to_float;
#X connect 0 0 2 0;
#X connect 1 0 31 0;
#X connect 2 0 4 0;
#X connect 2 0 9 0;
#X connect 2 1 34 0;
#X connect 4 0 20 0;
#X connect 5 0 18 1;
#X connect 6 0 18 0;
#X connect 7 0 30 0;
#X connect 9 0 19 0;
#X connect 10 0 13 0;
#X connect 11 0 14 0;
#X connect 12 0 6 0;
#X connect 13 0 12 0;
#X connect 14 0 15 0;
#X connect 15 0 5 0;
#X connect 16 0 17 0;
#X connect 17 0 3 0;
#X connect 17 0 42 0;
#X connect 18 0 7 0;
#X connect 19 0 10 0;
#X connect 19 1 23 0;
#X connect 20 0 11 0;
#X connect 20 1 21 0;
#X connect 21 0 22 0;
#X connect 22 0 26 0;
#X connect 23 0 24 0;
#X connect 24 0 27 0;
#X connect 25 0 28 0;
#X connect 26 0 25 1;
#X connect 27 0 25 0;
#X connect 28 0 29 1;
#X connect 29 0 16 0;
#X connect 30 0 29 0;
#X connect 31 0 33 0;
#X connect 31 1 32 0;
#X connect 32 0 33 1;
#X connect 33 0 4 0;
#X connect 34 0 36 0;
#X connect 34 1 35 0;
#X connect 35 0 36 1;
#X connect 36 0 9 0;
#X connect 37 0 41 0;
#X connect 37 0 38 1;
#X connect 39 0 38 0;
#X connect 39 1 37 0;
#X connect 40 0 37 1;
#X connect 41 0 37 1;
#X connect 42 0 43 0;
#X connect 42 1 40 0;
#X connect 43 0 39 0;
|
