-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathhasc~-help.pd
192 lines (192 loc) · 5.02 KB
/
hasc~-help.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
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
#N canvas 251 132 860 633 10;
#X declare - path ekext;
#N canvas 0 22 450 300 (subpatch) 0;
#X array play-01 88800 float 0;
#X coords 0 1 88799 -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 0 12 -228992
-1 -1;
#X floatatom 227 370 5 2 2000 1 threshold threshold_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 346 0 0 0 0 length(ms) - -;
#X obj 88 453 spigot;
#X obj 88 421 t f f;
#X obj 118 437 > 0;
#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 393 t f f;
#X obj 303 412 > 0;
#N canvas 0 22 450 300 (subpatch) 0;
#X array hasc 86 float 0;
#X coords 0 511 85 0 750 71 1;
#X restore 72 107 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array sssc 86 float 0;
#X coords 0 511 85 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 (subpatch) 0;
#X array pointer 86 float 0;
#X coords 0 1 85 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 202 408 + 100;
#N canvas 0 22 454 304 init 0;
#X obj 104 130 loadbang;
#X obj 105 187 s threshold_set;
#X msg 104 159 0.6;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 88 563 pd init;
#X floatatom 294 346 5 0 0 1 frames - -;
#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;
#N canvas 369 151 494 344 META 0;
#X text 12 185 HELP_PATCH_AUTHORS Ed Kelly. Revised by Jonathan Wilkes
for Pd-extended 0.42 to conform to the PDDP template.;
#X text 12 165 AUTHOR Ed Kelly <morph_2016@yahoo.co.uk>;
#X text 12 5 KEYWORDS signal;
#X text 12 25 LICENSE GPL v3;
#X text 12 65 INLET_0 signal;
#X text 12 85 INLET_1 signal;
#X text 12 105 INLET_2 float;
#X text 12 125 OUTLET_0 float;
#X text 12 145 OUTLET_1 float;
#X text 12 45 DESCRIPTION the highest apparent spectral component;
#X restore 794 598 pd META;
#N canvas 0 22 462 312 hasc+rfft 0;
#X obj 102 126 rfft~;
#X obj 102 78 inlet~;
#X obj 147 126 inlet;
#X obj 102 208 outlet;
#X obj 146 208 outlet;
#X obj 238 170 block~ 1024;
#X obj 102 168 hasc~;
#X text 147 106 threshold;
#X connect 0 0 6 0;
#X connect 0 1 6 1;
#X connect 1 0 0 0;
#X connect 2 0 6 2;
#X connect 6 0 3 0;
#X connect 6 1 4 0;
#X restore 88 380 pd hasc+rfft;
#X text 421 275 The Highest Apparent Spectral Component is defined
as the highest frequency bin of a discrete Fourier transform with an
amplitude equal to or higher than an arbitrary threshold \, set at
the rightmost inlet.;
#X text 421 325 It may be used to trace the extent of high frequencies
in the input \, a sort of spectral envelope...;
#X obj 88 514 tabwrite hasc;
#X obj 559 507 declare - path ekext;
#X connect 1 0 32 0;
#X connect 1 0 32 1;
#X connect 1 0 49 0;
#X connect 1 1 14 0;
#X connect 1 2 7 1;
#X connect 1 2 20 1;
#X connect 1 2 43 0;
#X connect 2 0 13 0;
#X connect 3 0 1 1;
#X connect 4 0 49 1;
#X connect 5 0 9 0;
#X connect 6 0 8 0;
#X connect 6 0 52 1;
#X connect 7 0 10 0;
#X connect 8 0 12 0;
#X connect 9 0 52 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 24 0;
#X connect 13 1 39 0;
#X connect 14 0 41 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 22 0;
#X connect 19 0 21 0;
#X connect 19 0 31 1;
#X connect 19 0 35 0;
#X connect 20 0 23 0;
#X connect 21 0 25 0;
#X connect 22 0 31 0;
#X connect 22 1 19 0;
#X connect 23 0 24 0;
#X connect 24 0 19 1;
#X connect 25 0 20 0;
#X connect 25 1 19 1;
#X connect 26 0 18 0;
#X connect 27 0 26 0;
#X connect 27 1 28 0;
#X connect 28 0 26 1;
#X connect 35 0 38 0;
#X connect 35 1 37 0;
#X connect 35 2 36 0;
#X connect 35 3 34 1;
#X connect 36 0 34 0;
#X connect 37 0 34 1;
#X connect 38 0 34 0;
#X connect 39 0 40 0;
#X connect 39 0 11 0;
#X connect 39 0 24 0;
#X connect 41 0 39 1;
#X connect 49 0 16 0;
#X connect 49 1 27 0;