1 files changed, 165 insertions, 0 deletions
diff --git a/pd/extra/help-paf~.pd b/pd/extra/help-paf~.pd
new file mode 100644
index 00000000..b36a7597
--- /dev/null
+++ b/pd/extra/help-paf~.pd
@@ -0,0 +1,165 @@
+#N canvas 19 4 745 493 12;
+#X msg 37 311 freq \$1 100;
+#X obj 37 286 mtof;
+#X msg 127 311 amp \$1 100;
+#X obj 127 261 r amp;
+#X obj 212 262 r cf;
+#X obj 212 287 mtof;
+#X msg 212 312 cf \$1 100;
+#X obj 37 261 r pit;
+#X msg 149 426 bang;
+#X obj 80 455 dac~;
+#X obj 535 161 s vfr;
+#X obj 535 86 r vfr;
+#X obj 483 161 s vib;
+#X obj 483 86 r vib;
+#X msg 535 111 set \$1;
+#X floatatom 535 136 0 0 0;
+#X msg 483 111 set \$1;
+#X floatatom 483 136 0 0 0;
+#X obj 434 161 s bw;
+#X obj 385 161 s cf;
+#X obj 266 160 s amp;
+#X obj 325 159 s pit;
+#X obj 325 84 r pit;
+#X msg 325 109 set \$1;
+#X floatatom 325 134 0 0 0;
+#X obj 266 85 r amp;
+#X msg 266 110 set \$1;
+#X floatatom 266 135 0 0 0;
+#X msg 385 111 set \$1;
+#X floatatom 385 136 0 0 0;
+#X obj 385 86 r cf;
+#X msg 434 111 set \$1;
+#X floatatom 434 136 0 0 0;
+#X obj 434 86 r bw;
+#X msg 286 312 bw \$1 100;
+#X obj 286 262 r bw;
+#X obj 286 287 mtof;
+#X obj 365 262 r vib;
+#X msg 365 312 vib \$1 100;
+#X msg 445 312 vfr \$1 100;
+#X obj 445 287 / 8;
+#X obj 445 262 r vfr;
+#X obj 365 287 / 660;
+#X msg 589 111 set \$1;
+#X floatatom 589 136 0 0 0;
+#X obj 589 86 r shift;
+#X obj 589 161 s shift;
+#X obj 530 262 r shift;
+#X msg 530 312 shift \$1 100;
+#X obj 127 286 dbtorms;
+#X obj 94 400 paf~;
+#X obj 30 432 s~ foo;
+#X msg 627 313 phase 0 0 0;
+#X obj 149 451 print~ output;
+#N canvas 447 311 726 483 spectrum 0;
+#X graph graph1 0 -1.02 882 1.02 405 401 605 271;
+#X array pulse-output 882 float;
+#X pop;
+#X text 405 403 --------- 0.02 seconds ------;
+#X graph graph1 0 0 128 500 391 208 647 78;
+#X array spectrum 128 float;
+#X pop;
+#X obj 137 257 tabwrite~ pulse-output;
+#X msg 106 174 bang;
+#N canvas 204 17 358 238 fft 0;
+#X obj 46 48 inlet~;
+#X obj 159 181 tabwrite~ spectrum;
+#X obj 159 145 inlet;
+#X obj 46 78 rfft~;
+#X obj 46 111 *~;
+#X obj 77 111 *~;
+#X obj 46 141 sqrt~;
+#X obj 191 45 block~ 1024 1;
+#X connect 0 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 0;
+#X connect 3 0 4 1;
+#X connect 3 1 5 0;
+#X connect 3 1 5 1;
+#X connect 4 0 6 0;
+#X connect 5 0 6 0;
+#X connect 6 0 1 0;
+#X restore 46 228 pd fft;
+#X text 33 8 PULSE SPECTRUM MEASUREMENT;
+#X text 379 221 0;
+#X text 627 218 5512;
+#X obj 94 123 r~ foo;
+#X obj 41 160 *~ 1;
+#X floatatom 44 113 0 0 0;
+#X obj 179 136 metro 1000;
+#X floatatom 178 108 0 0 0;
+#X obj 56 44 r graph;
+#X obj 140 205 *~ 10;
+#X connect 4 0 3 0;
+#X connect 4 0 5 1;
+#X connect 9 0 10 0;
+#X connect 9 0 15 0;
+#X connect 10 0 5 0;
+#X connect 11 0 10 1;
+#X connect 12 0 4 0;
+#X connect 13 0 12 0;
+#X connect 14 0 11 0;
+#X connect 14 0 13 0;
+#X connect 15 0 3 0;
+#X restore 438 413 pd spectrum;
+#X msg 42 133 \; pd dsp 1 \; pit 60 \; cf 60 \; graph 20;
+#X text 48 10 The "PAF" generator \, described in a paper in JAES 43/1 pp. 40-47 \, reprinted on Miller Puckette's web page. Often used in Philippe Manoury's music. The important controls are center frequency ("cf") and bandwidth ("bw") here controlled as MIDI values.;
+#X text 37 88 clich here to test;
+#X text 34 106 (then set amplitude);
+#X text 423 390 click here to see spectrum;
+#X msg 343 383 bw 0;
+#X msg 367 418 bw 0;
+#X msg 295 418 bw 80 100;
+#X msg 295 384 bw 700;
+#X connect 0 0 50 0;
+#X connect 1 0 0 0;
+#X connect 2 0 50 0;
+#X connect 3 0 49 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 50 0;
+#X connect 7 0 1 0;
+#X connect 8 0 53 0;
+#X connect 11 0 14 0;
+#X connect 13 0 16 0;
+#X connect 14 0 15 0;
+#X connect 15 0 10 0;
+#X connect 16 0 17 0;
+#X connect 17 0 12 0;
+#X connect 22 0 23 0;
+#X connect 23 0 24 0;
+#X connect 24 0 21 0;
+#X connect 25 0 26 0;
+#X connect 26 0 27 0;
+#X connect 27 0 20 0;
+#X connect 28 0 29 0;
+#X connect 29 0 19 0;
+#X connect 30 0 28 0;
+#X connect 31 0 32 0;
+#X connect 32 0 18 0;
+#X connect 33 0 31 0;
+#X connect 34 0 50 0;
+#X connect 35 0 36 0;
+#X connect 36 0 34 0;
+#X connect 37 0 42 0;
+#X connect 38 0 50 0;
+#X connect 39 0 50 0;
+#X connect 40 0 39 0;
+#X connect 41 0 40 0;
+#X connect 42 0 38 0;
+#X connect 43 0 44 0;
+#X connect 44 0 46 0;
+#X connect 45 0 43 0;
+#X connect 47 0 48 0;
+#X connect 48 0 50 0;
+#X connect 49 0 2 0;
+#X connect 50 0 9 0;
+#X connect 50 0 51 0;
+#X connect 50 0 9 1;
+#X connect 50 0 53 0;
+#X connect 52 0 50 0;
+#X connect 60 0 50 0;
+#X connect 62 0 50 0;
+#X connect 63 0 50 0;