aboutsummaryrefslogtreecommitdiff
path: root/peakit~
diff options
context:
space:
mode:
Diffstat (limited to 'peakit~')
-rw-r--r--peakit~/peakit~-help.pd49
-rw-r--r--peakit~/peakit~.c2
2 files changed, 50 insertions, 1 deletions
diff --git a/peakit~/peakit~-help.pd b/peakit~/peakit~-help.pd
new file mode 100644
index 0000000..276f4d7
--- /dev/null
+++ b/peakit~/peakit~-help.pd
@@ -0,0 +1,49 @@
+#N canvas 183 261 585 491 10;
+#X text 267 241 argument sets minimum magnitude to report;
+#X obj 150 161 *~;
+#X obj 166 139 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#X obj 132 138 adc~;
+#X obj 106 347 print;
+#X obj 269 346 print;
+#X obj 245 208 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#X text 263 207 turn processing on or off;
+#X obj 220 161 *~;
+#X obj 236 139 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
+1;
+#N canvas 0 22 458 308 peakit~ 0;
+#X obj 59 69 inlet~;
+#X obj 309 94 switch~ 1024 1 1;
+#X obj 309 69 inlet;
+#X obj 135 126 rfft~;
+#X obj 133 158 peakit~ 0;
+#X obj 190 68 inlet;
+#X text 7 17 This is in a subpatch so that the block size can be changed
+with the [switch~] object. Its set to 1024 here.;
+#X obj 213 244 outlet;
+#X obj 50 245 outlet;
+#X connect 0 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 0;
+#X connect 3 1 4 1;
+#X connect 4 0 8 0;
+#X connect 4 1 7 0;
+#X connect 5 0 4 2;
+#X restore 168 262 pd peakit~;
+#X obj 202 138 osc~;
+#X obj 205 98 hsl 128 15 50 500 1 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 8100 0;
+#X floatatom 211 118 5 0 0 0 - - -;
+#X connect 1 0 10 0;
+#X connect 2 0 1 1;
+#X connect 3 0 1 0;
+#X connect 3 1 1 0;
+#X connect 6 0 10 2;
+#X connect 8 0 10 0;
+#X connect 9 0 8 1;
+#X connect 10 0 4 0;
+#X connect 10 1 5 0;
+#X connect 11 0 8 0;
+#X connect 12 0 11 0;
+#X connect 12 0 13 0;
diff --git a/peakit~/peakit~.c b/peakit~/peakit~.c
index 7a157c8..8fd5f9a 100644
--- a/peakit~/peakit~.c
+++ b/peakit~/peakit~.c
@@ -140,7 +140,7 @@ void peakit_tilde_setup(void)
post("|--<FFT peaks list>-<>--<>---<>----|");
post("|-<>-<edward>-<kelly>---<>-<2005>--|");
- class_sethelpsymbol(peakit_tilde_class, gensym("help-peakit~"));
+
class_addmethod(peakit_tilde_class, (t_method)peakit_tilde_dsp, gensym("dsp"), 0);
class_addmethod(peakit_tilde_class, (t_method)peakit_tilde_iexp, &s_float, A_DEFFLOAT, 0);
CLASS_MAINSIGNALIN(peakit_tilde_class, t_peakit_tilde, f_dummy);