adding a pitchfollower by Simon Iten

core.txt

@@ -252,6 +252,7 @@ mtl/phaser~ fx~
 mtl/phi math
 mtl/piano ui midi
 mtl/pingpong~ fx~
+mtl/pitchFollower info~
 mtl/pitchShift~ fx~
 mtl/pitchshift2~ fx~
 mtl/platereverb~ fx~
@@ -288,7 +289,12 @@ mtl/saturate~ fx~
 mtl/sawor~ instrument~
 mtl/scaleSmart math
 mtl/scompress~ fx~
+mtl/seq-1x16-nbx sequencing
+mtl/seq1x16 sequencing
+mtl/seq1x16-midi-nbx sequencing MIDI
 mtl/seq1x8 sequencing
+mtl/seq1x8-midi-nbx sequencing MIDI
+mtl/seq1x8-nbx sequencing
 mtl/seq8x8 sequencing
 mtl/shaper~ fx~
 mtl/shape~ fx~

pitchFollower-help.pd

@@ -0,0 +1,57 @@
+#N canvas 75 152 489 385 10;
+#X text 9 -8 Description: pitch follower / tracker without using fiddle
+or sigmund;
+#X text 8 22 tags: info~;
+#X obj 20 125 pitchFollower;
+#X floatatom 20 163 5 0 0 0 - - -;
+#X floatatom 95 161 5 0 0 0 - - -;
+#X text 104 143 midi;
+#X text 29 143 frequency;
+#X obj 20 71 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#N canvas 5 185 450 300 generate~ 0;
+#X obj 32 213 osc~ 200;
+#X obj 32 89 metro 400;
+#X obj 32 175 mtof;
+#X obj 104 195 mtof;
+#X obj 32 132 + 20;
+#X obj 32 111 random 70;
+#X floatatom 83 69 5 0 0 0 - - -;
+#X obj 32 261 outlet~;
+#X obj 103 261 outlet~;
+#X obj 30 14 inlet;
+#X obj 104 175 mtl/closestNote 0 2 4 7 9;
+#X obj 104 234 *~;
+#X obj 31 234 *~;
+#X obj 104 214 osc~ 100;
+#X obj 32 155 mtl/closestNote 0 2 4 7 9;
+#X connect 0 0 12 0;
+#X connect 1 0 5 0;
+#X connect 2 0 0 0;
+#X connect 3 0 13 0;
+#X connect 4 0 10 0;
+#X connect 4 0 14 0;
+#X connect 5 0 4 0;
+#X connect 6 0 1 1;
+#X connect 9 0 1 0;
+#X connect 9 0 11 1;
+#X connect 9 0 12 1;
+#X connect 10 0 3 0;
+#X connect 11 0 8 0;
+#X connect 12 0 7 0;
+#X connect 13 0 11 0;
+#X connect 14 0 2 0;
+#X restore 20 96 pd generate~;
+#X text 113 71 higher number less glissando \, more vibrato :-);
+#X obj 117 91 hsl 128 15 0.1 50 0 1 empty empty empty -2 -8 0 10 -262144
+-1 -1 5065 1;
+#X obj 20 190 osc~;
+#X obj 100 227 mtl/out~;
+#X connect 2 0 3 0;
+#X connect 2 1 4 0;
+#X connect 3 0 11 0;
+#X connect 7 0 8 0;
+#X connect 8 0 2 0;
+#X connect 8 1 12 1;
+#X connect 10 0 2 1;
+#X connect 11 0 12 0;

pitchFollower.pd

@@ -0,0 +1,68 @@
+#N canvas 92 159 1345 709 10;
+#X obj 268 176 change~;
+#X obj 268 219 -~ 1;
+#X obj 268 239 abs~;
+#X obj 269 132 clip~ -1 1;
+#X obj 222 238 sig~ 1;
+#X obj 236 262 rpole~;
+#X obj 235 307 *~;
+#X obj 234 329 lop~ 20;
+#X obj 270 106 *~ 1e+07;
+#X obj 268 197 fexpr~ $x1==1;
+#X obj 268 155 fexpr~ $x1>=0;
+#X obj 233 356 q8_sqrt~;
+#X obj 419 396 samplerate~;
+#X obj 419 372 loadbang;
+#X obj 232 382 fexpr~ $x2/$x1;
+#X obj 419 441 sig~;
+#X obj 419 418 * 0.584;
+#X floatatom 285 295 5 0 30 0 - - -;
+#X text 328 292 higher number less glissando \, more vibrato :-);
+#X text 369 70 "instantanenous" pitch follower. monophonic. based on
+amplitude measuring of a gr-300 emulation i made. it's not perfect
+and very simple. beware i'm a musician not a programmer. sorry for
+any mistakes :-);
+#X text 476 417 <-- this number is an obstacle to me. it needs some
+adjusting depending on the input frequency to be in tune.;
+#X obj 270 78 inlet~;
+#X obj 329 545 outlet;
+#X obj 329 498 ftom;
+#X obj 329 521 mtl/round;
+#X obj 233 486 mtl/round;
+#X obj 233 511 - 1.5;
+#X obj 233 537 mtl/round;
+#X obj 233 584 outlet;
+#X obj 233 562 change;
+#X obj 233 454 cyclone/Snapshot~ 100;
+#X text 24 -8 patch by Simon Iten;
+#X text 25 7 modified by Patrick Sebastien;
+#X obj 345 264 inlet;
+#X connect 0 0 9 0;
+#X connect 1 0 2 0;
+#X connect 2 0 5 1;
+#X connect 3 0 10 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 5 0 6 1;
+#X connect 6 0 7 0;
+#X connect 7 0 11 0;
+#X connect 8 0 3 0;
+#X connect 9 0 1 0;
+#X connect 10 0 0 0;
+#X connect 11 0 14 0;
+#X connect 12 0 16 0;
+#X connect 13 0 12 0;
+#X connect 14 0 30 0;
+#X connect 15 0 14 1;
+#X connect 16 0 15 0;
+#X connect 17 0 7 1;
+#X connect 21 0 8 0;
+#X connect 23 0 24 0;
+#X connect 24 0 22 0;
+#X connect 25 0 26 0;
+#X connect 26 0 27 0;
+#X connect 27 0 29 0;
+#X connect 29 0 28 0;
+#X connect 29 0 23 0;
+#X connect 30 0 25 0;
+#X connect 33 0 7 1;