examples/puredata/tonality_from_subbands.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

#N canvas 493 51 587 478 10;
#X obj 82 212 xtract~ spectrum;
#N canvas 9 75 450 300 mag_spectrum 0;
#X obj 260 64 block~ 512;
#N canvas 0 0 450 300 (subpatch) 0;
#X array mag_spectrum 512 float 3;
#A 0 0.00791511 0.00796441 0.00804782 0.00816725 0.00832556 0.00852671
0.00877601 0.00908054 0.00944968 0.00989593 0.0104362 0.0110935 0.0119005
0.0129037 0.0141728 0.0158165 0.0180132 0.0210785 0.0256274 0.0330392
0.0471787 0.0845833 0.462538 0.12868 0.0556718 0.0352146 0.0256003
0.0200227 0.0163861 0.013831 0.0119397 0.0104852 0.00933302 0.00839885
0.00762689 0.00697887 0.00642763 0.00595337 0.00554132 0.00518025 0.00486145
0.00457808 0.00432469 0.00409689 0.00389113 0.00370479 0.00353334 0.00337798
0.00323515 0.00310359 0.00298209 0.00286958 0.00276511 0.00266788 0.00257719
0.00249241 0.00241301 0.00233849 0.00226844 0.00220248 0.00214026 0.00208149
0.00202589 0.00197323 0.00192327 0.00187583 0.00183072 0.00178779 0.00174693
0.00170751 0.00167039 0.00163477 0.00160066 0.00156795 0.00153673 0.00150668
0.00147784 0.00145013 0.00142347 0.00139785 0.00137317 0.00134938 0.00132645
0.00130433 0.00128297 0.00126234 0.0012424 0.00122312 0.00120446 0.0011864
0.00116891 0.00115197 0.00113544 0.00111958 0.00110411 0.0010891 0.00107452
0.00106035 0.00104659 0.00103319 0.00102017 0.00100749 0.000995155
0.000983141 0.000971438 0.000960027 0.000948909 0.000938068 0.000927495
0.000917176 0.000907107 0.000897275 0.000887676 0.000878296 0.000869136
0.000860182 0.000851426 0.000842866 0.000834491 0.0008263 0.000818288
0.000810442 0.000802759 0.000795238 0.000787864 0.00078067 0.000773593
0.000766665 0.000759872 0.000753206 0.000746684 0.000740281 0.000733997
0.000727835 0.000721787 0.00071585 0.000710022 0.000704302 0.000698687
0.000693163 0.000687744 0.00068242 0.000677189 0.000672046 0.000666989
0.000662008 0.000657152 0.000652346 0.000647625 0.000642983 0.00063827
0.000633902 0.00062948 0.00062513 0.000620847 0.00061663 0.00061248
0.000608394 0.000604371 0.00060041 0.000596508 0.000592662 0.000588881
0.000585149 0.000581476 0.000577854 0.000574287 0.000570768 0.0005673
0.000563885 0.000560517 0.000557198 0.000553921 0.000550691 0.000547506
0.000544363 0.00054127 0.000538212 0.000535196 0.000532221 0.000529285
0.000526391 0.000523531 0.000520713 0.00051793 0.000515163 0.00051246
0.000509783 0.00050714 0.000504528 0.000501949 0.000499401 0.000496887
0.000494399 0.000491941 0.000489499 0.000486984 0.000484886 0.00048249
0.000480167 0.000477879 0.00047517 0.000473408 0.000471204 0.000469028
0.000466878 0.000464756 0.000462657 0.000460551 0.000458529 0.000456502
0.000454496 0.000452516 0.000450556 0.000448618 0.000446703 0.000444806
0.000442933 0.000441081 0.000439249 0.000437435 0.000435644 0.000433869
0.000432115 0.00043038 0.000428663 0.000426967 0.000425283 0.000423621
0.000421977 0.000420346 0.000418718 0.000417151 0.000415575 0.000414008
0.000412461 0.000410933 0.000409421 0.000407924 0.000406438 0.00040497
0.000403515 0.000402073 0.000400648 0.000399229 0.000397818 0.000396404
0.000394843 0.000394005 0.000392514 0.000391154 0.000389825 0.000388485
0.00038723 0.000385942 0.000384692 0.000383438 0.000382193 0.000380966
0.000379752 0.000378546 0.000377355 0.000376173 0.000375004 0.000373846
0.000372698 0.000371564 0.000370438 0.000369319 0.000368222 0.000367128
0.000366044 0.00036497 0.000363896 0.000362854 0.000361811 0.000360777
0.000359753 0.000358738 0.000357735 0.000356738 0.000355751 0.000354775
0.000353804 0.000352844 0.000351894 0.000350951 0.000350019 0.000349093
0.000348178 0.000347267 0.000346367 0.000345476 0.000344592 0.000343716
0.000342849 0.000341989 0.000341133 0.000340284 0.000339464 0.000338628
0.000337809 0.000336992 0.000336174 0.000335386 0.000334592 0.000333804
0.000333026 0.000332255 0.000331489 0.000330732 0.000329979 0.000329234
0.000328496 0.000327764 0.000327041 0.000326322 0.000325609 0.000324903
0.000324195 0.000323522 0.000322828 0.000322148 0.000321469 0.000320755
0.000320146 0.000319485 0.000318837 0.000318193 0.000317549 0.000316917
0.000316288 0.000315666 0.000315051 0.000314437 0.000313833 0.000313232
0.000312637 0.000312049 0.000311464 0.000310884 0.000310312 0.000309744
0.000309181 0.000308621 0.000308068 0.00030752 0.000306974 0.00030644
0.000305907 0.000305374 0.000304852 0.000304332 0.000303818 0.00030331
0.000302803 0.000302303 0.000301806 0.000301317 0.000300826 0.000300345
0.000299868 0.000299394 0.000298923 0.000298458 0.000297995 0.000297538
0.000297083 0.000296631 0.000296177 0.000295711 0.000295329 0.000294857
0.000294385 0.000293858 0.00029202 0.00029358 0.000292995 0.000292537
0.000292112 0.000291698 0.000291297 0.000290902 0.00029051 0.000290124
0.000289743 0.000289366 0.000288996 0.000288627 0.000288263 0.0002879
0.000287544 0.000287195 0.000286843 0.000286509 0.000286161 0.000285818
0.000285489 0.000285158 0.000284832 0.000284511 0.000284184 0.000283871
0.000283558 0.00028325 0.000282946 0.000282636 0.000282341 0.000282046
0.000281753 0.000281465 0.000281177 0.000280893 0.000280613 0.000280336
0.000280061 0.000279788 0.000279522 0.000279243 0.000278967 0.000278676
0.000278261 0.000278674 0.000278138 0.000277848 0.000277583 0.000277294
0.000277122 0.000276878 0.000276643 0.000276415 0.000276191 0.000275971
0.000275756 0.00027554 0.000275331 0.000275124 0.000274919 0.000274721
0.000274521 0.000274329 0.000274132 0.00027394 0.000273764 0.00027358
0.000273397 0.000273221 0.000273038 0.000272878 0.000272708 0.000272543
0.000272381 0.000272217 0.000272063 0.000271911 0.000271758 0.00027161
0.000271463 0.00027132 0.000271182 0.000271044 0.00027091 0.000270778
0.000270653 0.000270522 0.0002704 0.000270284 0.000270164 0.000270048
0.000269937 0.00026983 0.000269723 0.00026963 0.000269475 0.000269405
0.000269311 0.00026922 0.000269133 0.000269041 0.000268957 0.000268874
0.000268794 0.000268718 0.000268642 0.00026857 0.000268503 0.000268438
0.000268366 0.000268309 0.000268254 0.000268193 0.000268139 0.000268089
0.000268038 0.000268001 0.000267953 0.000267913 0.000267873 0.000267822
0.000267814 0.000267781 0.000267753 0.000267727 0.000267703 0.000267684
0.000267668 0.000267654 0.000267642 0.000267632 0.000267626 0.000267624
0.0751003;
#X coords 0 1 511 0 200 140 1;
#X restore 125 121 graph;
#X restore 245 43 pd mag_spectrum;
#X obj 82 247 tabsend~ mag_spectrum;
#X obj 244 15 block~ 1024;
#X obj 82 46 noise~;
#N canvas 9 100 450 653 tonality 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array subbands 8 float 5;
#A 0 0.459222 0.00349705 0.00161501 0.00109469 0.000855802 0.000726442
0.000653362 0;
#X coords 0 1 7 -1 200 140 1;
#X restore 35 -128 graph;
#X obj 60 73 tabreceive~ subbands;
#X obj 366 -129 block~ 8;
#X obj 61 127 xtract~ flatness 8;
#X msg 173 200 list \$1;
#X obj 30 227 xtract~ flatness_db 8;
#X obj 35 283 xtract~ tonality 8;
#X msg 156 257 list \$1;
#X obj 37 353 outlet;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 1;
#X connect 5 0 7 0;
#X connect 6 0 8 0;
#X connect 7 0 6 1;
#X restore 282 354 pd tonality;
#X floatatom 282 414 5 0 0 0 - - -;
#X obj 82 186 *~ 0;
#X obj 122 186 *~ 0;
#X obj 144 120 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 12700 1;
#N canvas 3 50 450 300 xfade 0;
#X obj 183 139 -;
#X obj 183 170 outlet;
#X obj 183 30 inlet;
#X obj 272 175 outlet;
#X obj 183 87 t a a;
#X msg 183 116 1 \$1;
#X obj 183 58 / 127;
#X connect 0 0 1 0;
#X connect 2 0 6 0;
#X connect 4 0 5 0;
#X connect 4 1 3 0;
#X connect 5 0 0 0;
#X connect 6 0 4 0;
#X restore 141 145 pd xfade;
#N canvas 262 411 450 300 subbands 0;
#X obj 89 114 tabreceive~ mag_spectrum;
#X obj 263 78 loadbang;
#X obj 88 197 tabsend~ subbands;
#X obj 362 28 block~ 512;
#X obj 88 156 xtract~ subbands 512;
#X msg 263 113 list 35 8 1 0;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 4 0 2 0;
#X connect 5 0 4 1;
#X restore 84 297 pd subbands;
#X obj 122 77 osc~ 1000;
#X connect 0 0 2 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 10 0 7 1;
#X connect 10 1 8 1;
#X connect 12 0 8 0;