blob: 2f59ba4b41862d96201d7b36fe4dc9022a8747c9 (
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
|
#N canvas 20 27 860 633 10;
#N canvas 0 22 450 300 graph1 0;
#X array play-01 209416 float 0;
#X coords 0 1 209415 -1 750 71 1;
#X restore 72 34 graph;
#N canvas 0 22 482 332 play-01 0;
#X obj 104 61 inlet;
#X obj 201 119 inlet;
#X obj 201 135 openpanel;
#X msg 201 151 read -resize \$1 play-01;
#X obj 201 167 soundfiler;
#X obj 201 183 / 44.1;
#X obj 201 199 outlet;
#X obj 62 77 tabplay~ play-01;
#X obj 62 134 outlet~;
#X obj 248 183 / 1024;
#X obj 272 213 i;
#X obj 393 229 outlet;
#X msg 272 229 \; hssc resize \$1 \; sssc resize \$1 \; pointer resize
\$1;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 10 0 11 0;
#X restore 88 329 pd play-01;
#X obj 88 299 bng 15 250 50 0 empty empty play -6 -10 0 18 -225280
-1 -90881;
#X obj 153 315 bng 15 250 50 0 empty bang-load load -4 -6 64 12 -228992
-1 -1;
#X floatatom 245 367 5 2 2000 1 ratio ratio_set -;
#X floatatom 88 469 5 0 0 0 - - -;
#X obj 182 498 f;
#X obj 211 530 ==;
#X obj 211 498 + 1;
#X obj 88 482 t f b;
#X obj 211 546 sel 1;
#X msg 211 562 0;
#X obj 211 514 t f f;
#X obj 88 313 t b b;
#X floatatom 243 345 0 0 0 0 length(ms) - -;
#X obj 88 453 spigot;
#X obj 88 421 t f f;
#X obj 118 437 > 0;
#N canvas 0 22 462 312 hssc+rfft 0;
#X obj 102 168 hssc~;
#X obj 102 126 rfft~;
#X obj 102 78 inlet~;
#X obj 147 126 inlet;
#X text 141 169 ratio;
#X obj 102 208 outlet;
#X obj 146 208 outlet;
#X obj 238 170 block~ 1024;
#X connect 0 0 5 0;
#X connect 0 1 6 0;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#X connect 2 0 1 0;
#X connect 3 0 0 2;
#X restore 88 380 pd hssc+rfft;
#X obj 88 514 tabwrite hssc;
#X floatatom 273 444 5 0 0 0 - - -;
#X obj 367 473 f;
#X obj 396 505 ==;
#X obj 396 473 + 1;
#X obj 273 457 t f b;
#X obj 396 521 sel 1;
#X msg 396 537 0;
#X obj 396 489 t f f;
#X obj 273 428 spigot;
#X obj 273 396 t f f;
#X obj 303 412 > 0;
#N canvas 0 22 450 300 graph1 0;
#X array hssc 204 float 0;
#X coords 0 511 203 0 750 71 1;
#X restore 72 107 graph;
#N canvas 0 22 450 300 graph1 0;
#X array sssc 204 float 0;
#X coords 0 511 203 0 750 71 1;
#X restore 72 193 graph;
#X obj 273 489 tabwrite sssc;
#X obj 100 351 dac~;
#N canvas 0 22 450 300 graph1 0;
#X array pointer 204 float 0;
#X coords 0 1 203 0 750 11 1;
#X restore 72 180 graph;
#X obj 363 588 tabwrite pointer;
#X obj 367 556 t b f b f;
#X msg 409 572 1;
#X obj 386 572 - 1;
#X msg 363 572 0;
#X obj 152 411 del 100;
#X msg 152 427 \; pointer const 0;
#X obj 196 361 + 100;
#N canvas 0 22 454 304 init 0;
#X obj 104 162 s ratio_set;
#X msg 104 146 100;
#X obj 104 130 loadbang;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X restore 88 563 pd init;
#X floatatom 294 345 5 0 0 1 frames - -;
#X text 421 275 The highest significant spectral component is defined
as the highest frequency bin of a discrete Fourier transform with an
amplitude equal to the strongest component divided by the hssc ratio
\, input to the third inlet of the object.;
#X text 421 325 It may be used to trace the extent of high frequencies
in the input relative to prominent components \, a sort of spectral
envelope...;
#X text 325 367 between highest significant spectral component and
strongest significant spectral component;
#X text 7 381 IN HERE--->;
#X msg 559 448 \; pd dsp 1 \; bang-load bang;
#X text 562 432 start here;
#X text 563 489 then hit play;
#X connect 1 0 34 0;
#X connect 1 0 34 1;
#X connect 1 0 18 0;
#X connect 1 1 14 0;
#X connect 1 2 7 1;
#X connect 1 2 22 1;
#X connect 1 2 45 0;
#X connect 2 0 13 0;
#X connect 3 0 1 1;
#X connect 4 0 18 1;
#X connect 5 0 9 0;
#X connect 6 0 8 0;
#X connect 6 0 19 1;
#X connect 7 0 10 0;
#X connect 8 0 12 0;
#X connect 9 0 19 0;
#X connect 9 1 6 0;
#X connect 10 0 11 0;
#X connect 11 0 6 1;
#X connect 12 0 7 0;
#X connect 12 1 6 1;
#X connect 13 0 1 0;
#X connect 13 1 11 0;
#X connect 13 1 26 0;
#X connect 13 1 41 0;
#X connect 14 0 43 0;
#X connect 15 0 5 0;
#X connect 16 0 15 0;
#X connect 16 1 17 0;
#X connect 17 0 15 1;
#X connect 18 0 16 0;
#X connect 18 1 29 0;
#X connect 20 0 24 0;
#X connect 21 0 23 0;
#X connect 21 0 33 1;
#X connect 21 0 37 0;
#X connect 22 0 25 0;
#X connect 23 0 27 0;
#X connect 24 0 33 0;
#X connect 24 1 21 0;
#X connect 25 0 26 0;
#X connect 26 0 21 1;
#X connect 27 0 22 0;
#X connect 27 1 21 1;
#X connect 28 0 20 0;
#X connect 29 0 28 0;
#X connect 29 1 30 0;
#X connect 30 0 28 1;
#X connect 37 0 40 0;
#X connect 37 1 39 0;
#X connect 37 2 38 0;
#X connect 37 3 36 1;
#X connect 38 0 36 0;
#X connect 39 0 36 1;
#X connect 40 0 36 0;
#X connect 41 0 42 0;
#X connect 41 0 11 0;
#X connect 41 0 26 0;
#X connect 43 0 41 1;
|
