-
Notifications
You must be signed in to change notification settings - Fork 0
/
specFlatness-help.pd
86 lines (86 loc) · 2.9 KB
/
specFlatness-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
#N canvas 216 33 958 731 10;
#X obj 56 57 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 77 57 Bang to analyze the entire array.;
#X msg 95 106 analyze 44100 1024;
#X text 104 126 Analyze a window starting at sample 44100 that is 1024
samples long (samples 44100 - 45123). Window lengths that are not a
power of 2 will result in zero-padded windows sized to the next largest
power of two.;
#X obj 56 625 nbx 5 32 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 32
-262144 -1 -1 0.567987 256;
#X obj 701 68 specFlatness~;
#X msg 152 334 analyze \$1 1024;
#X obj 155 292 hsl 400 15 0 128000 0 0 empty empty Scrub -2 -8 0 12
-191407 -1 -1 300 1;
#X text 511 42 See the real-time version for more information on spectral
flatness in general.;
#X obj 1 -13 cnv 10 400 10 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 1 -13 cnv 10 10 400 empty empty empty 20 12 0 14 -233017 -66577
0;
#N canvas 452 22 811 546 other-settings 0;
#X obj 54 86 hradio 15 1 0 5 empty empty empty 0 -8 0 10 -262144 -1
-1 0;
#X msg 54 106 window_function \$1;
#X msg 110 168 set another-sample-array;
#X msg 149 224 samplerate 48000;
#X msg 206 332 max_window 65536;
#X text 298 167 Read from a different array;
#X msg 175 277 power_spectrum \$1;
#X obj 175 259 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 345 326 Specify the largest power of 2 window size you want
to allow. Default is 131072 (about 3 seconds at 44.1 kHz);
#X obj 54 465 outlet;
#X text 52 49 Change windowing function. Rectangular (0) \, Blackman
(1) \, Cosine (2) \, Hamming (3) \, or Hann (4). (default: Hann);
#X text 283 223 Specify your sample's sampling rate. (default: 44100)
;
#X text 316 277 Use power spectrum. (default: magnitude);
#X connect 0 0 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 9 0;
#X connect 4 0 9 0;
#X connect 6 0 9 0;
#X connect 7 0 6 0;
#X restore 204 446 pd other-settings;
#N canvas 0 22 450 300 (subpatch) 0;
#X array waveform 1024 float 0;
#X coords 0 1 1023 -1 200 140 1;
#X restore 650 230 graph;
#N canvas 666 270 552 163 soundfile 0;
#X obj 50 83 soundfiler;
#X obj 50 24 loadbang;
#X msg 50 58 read -skip 120000 testing.wav flatness-sample;
#X obj 185 100 table flatness-sample 130000;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X restore 650 380 pd soundfile;
#N canvas 722 238 369 330 waveform 0;
#X obj 46 61 inlet;
#X obj 86 241 tabletool waveform;
#X obj 46 82 t f f;
#X obj 86 164 pack f f;
#X obj 131 131 + 1024;
#X msg 86 200 copy_range 0 flatness-sample \$1 \$2;
#X obj 46 284 outlet;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X connect 2 1 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 1 0;
#X restore 152 312 pd waveform;
#X obj 56 586 specFlatness flatness-sample;
#X text 336 580 Creation argument is the name of the sample array to
read from.;
#X connect 0 0 15 0;
#X connect 2 0 15 0;
#X connect 6 0 15 0;
#X connect 7 0 14 0;
#X connect 11 0 15 0;
#X connect 14 0 6 0;
#X connect 15 0 4 0;