blob: 3f788f079a6b6525ea6d45767337075b6f874670 (
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
|
#N canvas 0 0 555 619 10;
#X obj 0 595 cnv 15 552 21 empty \$0-pddp.cnv.footer empty 20 12 0
14 -228856 -66577 0;
#X obj 0 0 cnv 15 552 40 empty \$0-pddp.cnv.header pique 3 12 0 18
-204280 -1 0;
#X obj 0 422 cnv 3 550 3 empty \$0-pddp.cnv.inlets inlets 8 12 0 13
-228856 -1 0;
#N canvas 50 244 494 344 META 0;
#X text 12 105 LIBRARY internal;
#X text 12 145 WEBSITE http://crca.ucsd.edu/~msp/;
#X text 12 165 RELEASE_DATE 2009-06-12;
#X text 12 25 LICENSE SIBSD;
#X text 12 125 AUTHOR Miller Puckette;
#X text 12 185 HELP_PATCH_AUTHORS Updated for Pd 0.31. Jonathan Wilkes
revised the patch to conform to the PDDP template for Pd version 0.42.
;
#X text 12 5 KEYWORDS control analysis;
#X text 12 45 DESCRIPTION find peaks in an FFT spectrum;
#X text 12 65 INLET_0 list;
#X text 12 85 OUTLET_0 list;
#X restore 500 597 pd META;
#X obj 0 487 cnv 3 550 3 empty \$0-pddp.cnv.outlets outlets 8 12 0
13 -228856 -1 0;
#X obj 0 539 cnv 3 550 3 empty \$0-pddp.cnv.argument arguments 8 12
0 13 -228856 -1 0;
#X obj 0 567 cnv 3 550 3 empty \$0-pddp.cnv.more_info more_info 8 12
0 13 -228856 -1 0;
#N canvas 108 481 428 109 Related_objects 0;
#X obj 1 1 cnv 15 425 20 empty \$0-pddp.cnv.subheading empty 3 12 0
14 -204280 -1 0;
#X text 8 2 [pique] Related Objects;
#X obj 23 43 fft~;
#X restore 102 597 pd Related_objects;
#X obj 78 431 cnv 17 3 50 empty \$0-pddp.cnv.let.0 0 5 9 0 16 -228856
-162280 0;
#X obj 78 496 cnv 17 3 17 empty \$0-pddp.cnv.let.0 0 5 9 0 16 -228856
-162280 0;
#X obj 482 3 pique;
#X obj 455 20 pddp/pddplink http://wiki.puredata.info/en/pique -text
pdpedia: pique;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-fft-real 64 float 0;
#X coords 0 64 63 -64 200 140 1;
#X restore 21 85 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-fft-imag 64 float 0;
#X coords 0 64 63 -64 200 140 1;
#X restore 21 250 graph;
#X text 98 495 list;
#X obj 316 252 rfft~;
#X obj 315 210 osc~ 2000;
#X obj 368 265 metro 1000;
#X obj 368 243 loadbang;
#X obj 389 210 osc~ 5000;
#X obj 244 171 pique;
#X obj 244 198 print;
#X text 98 430 list;
#X text 168 430 - [pique] takes unwindowed FFT analyses as input. The
message is made up of the following four items: the number of FFT points
\, FFT real part (array name) \, FFT imaginary part (array name) \,
and the maximum number of peaks to report;
#X text 98 543 (none);
#X text 11 23 find peaks in an FFT spectrum;
#X text 168 495 - [pique] outputs a list of peaks \, giving their peak
number \, frequency \, amplitude \, and phase (as a cosine/sine pair).
;
#X obj 4 597 pddp/pddplink pddp/help.pd -text help;
#X obj 455 51 pddp/dsp-reminder;
#X obj 316 303 tabwrite~ \$0-fft-real;
#X obj 344 338 tabwrite~ \$0-fft-imag;
#X obj 244 117 f \$0;
#X obj 244 92 bng 15 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X msg 244 144 64 \$1-fft-real \$1-fft-imag 10;
#X connect 15 0 29 0;
#X connect 15 1 30 0;
#X connect 16 0 15 0;
#X connect 17 0 29 0;
#X connect 17 0 30 0;
#X connect 18 0 17 0;
#X connect 19 0 15 0;
#X connect 20 0 21 0;
#X connect 31 0 33 0;
#X connect 32 0 31 0;
#X connect 33 0 20 0;
|
