blob: 24ad84a0c2f281a9ba95d772b65ca83607b763d9 (
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
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
|
#N canvas 540 80 555 488 10;
#X obj 0 462 cnv 15 552 21 empty empty empty 20 12 0 14 -233017 -33289
0;
#X obj 0 234 cnv 3 550 3 empty empty inlets 8 12 0 13 -228856 -1 0
;
#N canvas 1088 157 431 306 META 0;
#X text 1 20 LICENSE SIBSD;
#X text 1 140 LIBRARY cyclone;
#X text 1 0 KEYWORDS signal cartesian polar conversion;
#X text 1 40 DESCRIPTION cartesian to polar conversion for signals
;
#X text 1 80 INLET_1 signal;
#X text 1 60 INLET_0 signal;
#X text 1 100 OUTLET_0 signal;
#X text 1 120 OUTLET_1 signal;
#X text 0 162 VERSION 0.1-alpha57;
#X text 0 180 AUTHOR Krzysztof Czaja;
#X text 1 198 RELEASE_DATE 2002;
#X text 2 217 WEBSITE http://suita.chopin.edu.pl/~czaja/miXed/externs/cyclone.html
;
#X text 2 249 HELP_PATCH_AUTHORS Christoph Kummerer. Revised by Jonathan
Wilkes for Pd-extended 0.42 to conform to the PDDP template. Alex Cleveland
updated this patch for Pd-l2ork version 2013.05.28. Fred Jan Kraan
adapted the patch to pd-extended 2015-02-02;
#X restore 504 464 pd META;
#X obj 0 306 cnv 3 550 3 empty empty outlets 8 12 0 13 -228856 -1 0
;
#X obj 0 377 cnv 3 550 3 empty empty arguments 8 12 0 13 -228856 -1
0;
#X obj 0 422 cnv 3 550 3 empty empty more_info 8 12 0 13 -228856 -1
0;
#N canvas 1095 187 428 164 Related_objects 0;
#X obj 0 0 cnv 15 425 20 empty empty empty 3 12 0 14 -204280 -1 0;
#X text 6 1 Related Objects;
#X obj 35 41 poltocar~;
#X restore 216 465 pd Related_objects;
#X obj 0 0 cnv 15 552 40 empty empty cartopol~ 3 12 0 18 -204280 -1
0;
#X text 185 322 - amplitude;
#X text 185 349 - phase;
#X text 117 392 (none);
#X text 15 23 cartesian to polar conversion for signals;
#X text 17 55 Here's how to connect it to an fft~:;
#X text 196 119 phase (-PI to PI radians);
#X obj 88 201 ifft~ 256 256 0;
#X obj 88 79 fft~ 256 256 0;
#X text 63 118 amp.;
#X text 191 144 <- do some spectral processing here;
#X text 185 249 - real part of signal;
#X text 185 275 - imaginary part of signal;
#X text 118 249 signal;
#X text 118 275 signal;
#X text 118 322 signal;
#X text 118 349 signal;
#X obj 485 4 cartopol~;
#X obj 87 250 cnv 17 3 17 empty empty 0 5 9 0 16 -228856 -162280 0
;
#X obj 87 276 cnv 17 3 17 empty empty 1 5 9 0 16 -228856 -162280 0
;
#X obj 87 324 cnv 17 3 17 empty empty 0 5 9 0 16 -228856 -162280 0
;
#X obj 87 350 cnv 17 3 17 empty empty 1 5 9 0 16 -228856 -162280 0
;
#X obj 88 102 cyclone/cartopol~;
#X obj 88 177 cyclone/poltocar~;
#X obj 518 200 dspSwitch~;
#N canvas 687 164 450 582 how 0;
#X obj 34 521 output~;
#X obj 32 402 ifft~ 256 256 0;
#X obj 32 280 fft~ 256 256 0;
#X obj 32 303 cyclone/cartopol~;
#X obj 32 378 cyclone/poltocar~;
#X obj 33 235 hilbert~;
#X obj 151 185 vsl 15 128 0 2 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 0 1;
#X msg 151 154 1;
#X obj 130 344 *~ 1;
#N canvas 1 79 450 300 voice 0;
#X obj 232 168 soundfiler;
#X obj 232 122 f \$0;
#X obj 232 98 loadbang;
#X floatatom 232 190 5 0 0 0 - - -, f 5;
#X msg 232 144 read -resize voice.wav \$1-voice;
#X obj 231 209 table \$0-voice;
#X obj 34 21 inlet;
#X obj 33 271 outlet~;
#X obj 34 96 cyclone/Line~;
#X obj 54 154 f \$0;
#X msg 34 62 0 \, 62079 1407;
#X obj 34 234 cyclone/index~ \$0-voice;
#X msg 54 175 set \$1-voice;
#X obj 152 102 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 2 0 9 0;
#X connect 4 0 0 0;
#X connect 6 0 10 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 8 0;
#X connect 11 0 7 0;
#X connect 12 0 11 0;
#X connect 13 0 1 0;
#X connect 13 0 9 0;
#X restore 34 134 pd voice;
#X obj 34 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 33 457 *~ 0.015;
#X obj 0 0 cnv 15 552 40 empty empty empty 3 12 0 18 -204280 -1 0;
#X text 17 21 how it sounds;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 3 0 4 0;
#X connect 3 1 8 0;
#X connect 4 0 1 0;
#X connect 4 1 1 1;
#X connect 5 0 2 0;
#X connect 5 1 2 1;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 4 1;
#X connect 9 0 5 0;
#X connect 10 0 9 0;
#X connect 11 0 0 0;
#X connect 11 0 0 1;
#X restore 404 92 pd how it sounds;
#N canvas 1 80 450 570 what 0;
#X obj 0 0 cnv 15 552 40 empty empty empty 3 12 0 18 -204280 -1 0;
#X text 17 21 what it looks like;
#X obj 70 403 output~;
#X obj 69 284 ifft~ 256 256 0;
#X obj 69 162 fft~ 256 256 0;
#X obj 69 185 cyclone/cartopol~;
#X obj 69 260 cyclone/poltocar~;
#X obj 180 131 tabwrite~ \$0-dry;
#X obj 279 380 tabwrite~ \$0-wet;
#X obj 153 83 metro 100;
#X obj 153 57 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 167 223 *~ 1;
#X obj 332 73 vsl 15 128 0 2 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 0 1;
#X msg 332 50 1;
#X obj 298 73 vsl 15 128 0 2 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 0 1;
#X msg 298 50 1;
#X obj 68 223 *~ 1;
#X obj 69 105 phasor~ 440;
#X obj 69 339 *~ 0.0155;
#X obj 153 105 t b b;
#X obj 183 401 hsl 195 140 0 127 0 0 \$0-s_none \$0-r_none empty -2
-8 0 10 -262144 -262144 -1 0 1;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-dry 128 float 5;
#A 0 0.523902 0.533879 0.543857 0.553834 0.563811 0.573789 0.583766
0.593743 0.603721 0.613698 0.623675 0.633653 0.64363 0.653607 0.663584
0.673562 0.683539 0.693516 0.703494 0.713471 0.723448 0.733426 0.743403
0.75338 0.763358 0.773335 0.783312 0.79329 0.803267 0.813244 0.823222
0.833199 0.843176 0.853154 0.863131 0.873108 0.883086 0.893063 0.90304
0.913018 0.922995 0.932972 0.94295 0.952927 0.962904 0.972881 0.982859
0.992836 0.00281349 0.0127908 0.0227681 0.0327455 0.0427228 0.0527001
0.0626774 0.0726548 0.0826321 0.0926094 0.102587 0.112564 0.122541
0.132519 0.142496 0.152473 0.102588 0.112566 0.122543 0.13252 0.142497
0.152475 0.162452 0.172429 0.182407 0.192384 0.202361 0.212339 0.222316
0.232293 0.242271 0.252248 0.262225 0.272203 0.28218 0.292157 0.302135
0.312112 0.322089 0.332067 0.342044 0.352021 0.361999 0.371976 0.381953
0.391931 0.401908 0.411885 0.421863 0.43184 0.441817 0.451795 0.461772
0.471749 0.481726 0.491704 0.501681 0.511658 0.521636 0.531613 0.54159
0.551568 0.561545 0.571522 0.5815 0.591477 0.601454 0.611432 0.621409
0.631386 0.641364 0.651341 0.661318 0.671296 0.681273 0.69125 0.701228
0.711205 0.721182 0.73116;
#X coords 0 1 128 -1 200 140 1;
#X restore 180 401 graph;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-wet 128 float 5;
#A 0 0.519711 0.529608 0.539506 0.549403 0.559301 0.569198 0.579096
0.588993 0.598891 0.608788 0.618686 0.628583 0.638481 0.648378 0.658276
0.668173 0.678071 0.687968 0.697866 0.707763 0.717661 0.727558 0.737456
0.747353 0.757251 0.767148 0.777046 0.786943 0.796841 0.806738 0.816636
0.826533 0.836431 0.846328 0.856226 0.866123 0.876021 0.885918 0.895816
0.905713 0.915611 0.925508 0.935406 0.945303 0.955201 0.965098 0.974996
0.984894 0.00279097 0.0126885 0.022586 0.0324835 0.042381 0.0522785
0.062176 0.0720735 0.081971 0.0918685 0.101766 0.111664 0.121561 0.131459
0.141356 0.151254 0.101767 0.111665 0.121562 0.13146 0.141357 0.151255
0.161152 0.17105 0.180948 0.190845 0.200743 0.21064 0.220538 0.230435
0.240333 0.25023 0.260128 0.270025 0.279923 0.28982 0.299718 0.309615
0.319513 0.32941 0.339308 0.349205 0.359103 0.369 0.378898 0.388795
0.398693 0.40859 0.418488 0.428385 0.438283 0.44818 0.458078 0.467975
0.477873 0.48777 0.497668 0.507565 0.517463 0.52736 0.537258 0.547155
0.557053 0.56695 0.576848 0.586745 0.596643 0.60654 0.616438 0.626335
0.636233 0.64613 0.656028 0.665925 0.675823 0.68572 0.695618 0.705515
0.715413 0.72531;
#X coords 0 1 128 -1 200 140 1;
#X restore 180 401 graph;
#X text 164 528 -1;
#X text 169 397 1;
#X connect 3 0 18 0;
#X connect 4 0 5 0;
#X connect 4 1 5 1;
#X connect 5 0 16 0;
#X connect 5 1 11 0;
#X connect 6 0 3 0;
#X connect 6 1 3 1;
#X connect 9 0 19 0;
#X connect 10 0 9 0;
#X connect 11 0 6 1;
#X connect 12 0 11 1;
#X connect 13 0 12 0;
#X connect 14 0 16 1;
#X connect 15 0 14 0;
#X connect 16 0 6 0;
#X connect 17 0 7 0;
#X connect 17 0 4 0;
#X connect 18 0 2 0;
#X connect 18 0 2 1;
#X connect 18 0 8 0;
#X connect 19 0 8 0;
#X connect 19 1 7 0;
#X restore 404 114 pd what it looks like;
#X connect 15 0 29 0;
#X connect 15 1 29 1;
#X connect 29 0 30 0;
#X connect 29 1 30 1;
#X connect 30 0 14 0;
#X connect 30 1 14 1;
|