blob: 34d0c1a8bde5e4a709e7dc8212ffb47ff78a83a5 (
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
|
#N canvas 29 19 957 536 10;
#N canvas 0 0 450 300 graph1 0;
#X array src 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 674 10 graph;
#N canvas 0 0 450 300 graph1 0;
#X array dst_re 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 674 239 graph;
#X obj 24 47 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 24 122 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 61 345 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#N canvas 0 0 450 300 graph1 0;
#X array dst_im 100 float 0;
#X coords 0 1 99 -1 199 100 1;
#X restore 674 353 graph;
#X msg 89 252 dst_re dst_re;
#X msg 104 275 dst_im dst_im;
#X msg 125 298 fftsize 64;
#X floatatom 474 22 5 0 63 0 - - -;
#X msg 546 341 \; dst_re const 0 \; dst_im const 0;
#X text 102 464 IEM KUG;
#X text 86 452 musil;
#X text 116 452 @;
#X text 122 452 iem.at;
#X text 85 474 Graz \, Austria;
#X text 37 441 (c) Thomas Musil 2000 - 2006;
#N canvas 0 0 474 324 generate_a_dirac 0;
#X msg 61 106 \$1 1 1;
#X obj 61 83 t f b;
#X obj 61 62 clip 0 63;
#X obj 61 32 inlet;
#X obj 86 142 tab_const src;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 1 1 4 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X restore 474 41 pd generate_a_dirac;
#X floatatom 514 22 5 -31 31 0 - - -;
#N canvas 0 0 495 419 generate_a_cos 0;
#X obj 120 18 inlet;
#X obj 219 176 t f f;
#X obj 219 211 / 32;
#X obj 219 232 * 3.14159;
#X obj 219 283 cos;
#X obj 219 257 * 8;
#X obj 219 106 clip 0 31;
#X obj 219 127 t b f;
#X obj 219 153 for++ 0 63;
#X obj 120 43 moses 0;
#X obj 39 178 t f f;
#X obj 39 213 / 32;
#X obj 39 234 * 3.14159;
#X obj 39 285 cos;
#X obj 39 259 * 8;
#X obj 39 108 clip 0 31;
#X obj 39 129 t b f;
#X obj 39 155 for++ 0 63;
#X obj 90 70 * -1;
#X obj 219 331 tabwrite src;
#X obj 39 333 tabwrite src;
#X obj 39 310 / -32;
#X obj 219 308 / 32;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 1 1 19 1;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 22 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 1 5 1;
#X connect 8 0 1 0;
#X connect 9 0 18 0;
#X connect 9 1 6 0;
#X connect 10 0 11 0;
#X connect 10 1 20 1;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 13 0 21 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 16 1 14 1;
#X connect 17 0 10 0;
#X connect 18 0 15 0;
#X connect 21 0 20 0;
#X connect 22 0 19 0;
#X restore 514 61 pd generate_a_cos;
#X floatatom 555 22 5 -31 31 0 - - -;
#N canvas 0 0 499 423 generate_a_sin 0;
#X obj 102 37 inlet;
#X obj 246 182 t f f;
#X obj 246 217 / 32;
#X obj 246 238 * 3.14159;
#X obj 246 263 * 8;
#X obj 246 112 clip 0 31;
#X obj 246 133 t b f;
#X obj 246 159 for++ 0 63;
#X obj 246 289 sin;
#X obj 54 180 t f f;
#X obj 54 215 / 32;
#X obj 54 236 * 3.14159;
#X obj 54 261 * 8;
#X obj 54 110 clip 0 31;
#X obj 54 131 t b f;
#X obj 54 157 for++ 0 63;
#X obj 54 287 sin;
#X obj 102 60 moses 0;
#X obj 54 88 * -1;
#X obj 246 337 tabwrite src;
#X obj 54 335 tabwrite src;
#X obj 54 311 / -32;
#X obj 246 313 / 32;
#X connect 0 0 17 0;
#X connect 1 0 2 0;
#X connect 1 1 19 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 8 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 4 1;
#X connect 7 0 1 0;
#X connect 8 0 22 0;
#X connect 9 0 10 0;
#X connect 9 1 20 1;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 16 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 14 1 12 1;
#X connect 15 0 9 0;
#X connect 16 0 21 0;
#X connect 17 0 18 0;
#X connect 17 1 5 0;
#X connect 18 0 13 0;
#X connect 21 0 20 0;
#X connect 22 0 19 0;
#X restore 555 82 pd generate_a_sin;
#X text 309 355 initial arguments:;
#X msg 546 283 \; src const 0;
#X msg 76 230 src src;
#X msg 62 207 20 30 30;
#X text 49 158 1.) src-onset;
#X text 49 168 2.) dst_re-onset;
#X text 49 178 3.) dst_im-onset;
#X text 37 147 list of 3 floats:;
#X text 269 368 1.arg: <symbol> source-name;
#X text 269 380 2.arg: <symbol> real_destination-name;
#X text 269 392 3.arg: <symbol> imag_destination-name;
#X text 269 404 4.arg: <float> fftsize;
#X text 10 0 tab_rfft;
#X text 93 -1 real FTT with arrays;
#X text 45 56 <bang> calculates a real fourier transformation of a
real src-array to complex dst-arrays;
#X obj 24 94 tab_rfft src dst_re dst_im 64;
#X obj 62 322 tab_rfft src dst_re dst_im 64;
#X connect 2 0 37 0;
#X connect 6 0 38 0;
#X connect 7 0 38 0;
#X connect 8 0 38 0;
#X connect 9 0 17 0;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 24 0 38 0;
#X connect 25 0 38 0;
#X connect 37 0 3 0;
#X connect 38 0 4 0;
|
