port from pd-l2ork git: 6966b5b9a3763aee24c5c1050247e6d3fd15124c

*added K12 version of the autotune

l2ork_addons/K12/fx_autotune-help.pd

+#N canvas 426 51 509 598 10;
+#X obj 261 43 cnv 15 231 103 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 233 -22 preset_hub k12 %hidden% %node% 2 5 14 %preset% 0 100
+%preset% 1 100 %node% 2 5 28 %preset% 0 0 %preset% 1 0 %node% 2 11
+10 %node% 2 8 5 %preset% 0 0 %preset% 1 -12 %node% 2 8 7 %preset% 0
+0 %preset% 1 0 %node% 2 10 7 %preset% 0 1 %preset% 1 1 %node% 2 9 7
+%preset% 1 -12 %preset% 0 0 %node% 2 9 8 %node% 2 15 8 %preset% 0 100
+%preset% 1 100 %node% 2 15 9 %preset% 0 0 %preset% 1 0 %node% 3 15
+17 14 %preset% 0 /home/ico/K12/voice2.wav %preset% 1 /home/ico/K12/voice2.wav
+%node% 2 10 5 %preset% 0 60 %preset% 1 60 %node% 3 11 6 14 %preset%
+0 0 %preset% 1 1 %node% 3 11 6 15 %node% 3 11 6 16 %preset% 0 0 %preset%
+1 1 %node% 3 11 6 17 %node% 3 11 6 18 %preset% 0 0 %preset% 1 1 %node%
+3 11 6 19 %preset% 0 0 %preset% 1 1 %node% 3 11 6 20 %node% 3 11 6
+21 %preset% 0 0 %preset% 1 1 %node% 3 11 6 22 %node% 3 11 6 23 %preset%
+0 0 %preset% 1 1 %node% 3 11 6 24 %node% 3 11 6 25 %preset% 0 0 %preset%
+1 1 %node% 2 12 7 %preset% 0 60.0574 %preset% 1 60.0575;
+#X obj 11 166 cnv 15 484 187 empty empty empty 20 12 0 14 -228856 -66577
+0;
+#X obj 0 -2 cnv 3 501 3 empty empty empty 5 14 0 20 -260097 -191407
+0;
+#X obj 0 -30 cnv 15 501 28 empty empty FX/Autotune 5 14 0 20 -139274
+-262144 0;
+#X obj 19 455 K12/output;
+#N canvas 531 445 392 172 META 0;
+#X text 7 120 OUTLET_0 Connect this to a sound object or sound output
+;
+#X text 8 55 INLET_0 Connect a sound input here (like an instrument
+or sound generator);
+#X text 7 7 DESCRIPTION Autotune adjusts the pitch of an incoming sound
+to match closest desired pitch in a scale.;
+#X text 8 86 INLET_1 Connect a control object here to change transposition
+(-12 to 12 \, default 0);
+#X text 7 140 OUTLET_1 Outputs detected pitch as a value between 0
+and 127;
+#X restore 447 536 pd META;
+#X obj 471 1 ggee/image @pd_extra/K12/icons/l2ork.png 0;
+#X obj 133 86 K12/math_number;
+#X obj 396 49 K12/preset;
+#X obj 19 57 K12/signal_saw;
+#X obj 19 174 K12/fx_autotune;
+#X obj 101 375 K12/math_number;
+#X text 121 171 Autotune is used to transpose \, or change the pitch
+of the incoming sound in real-time \, so that it matches desired notes
+in the scale. The effect was made famous by artists such as Cher and
+T-Pain. Use the two-row piano key representation to check pitches you
+wish to hear and disable the rest (all are disabled by default).You
+can use the right inlet to transpose by a number of pitches up or down
+(accepts values between -12 and 12 \, default 0). Connect the outgoing
+sound coming out of the left outlet to output or other effects. Use
+the right outlet to monitor observed pitch of the incoming sound represented
+in values between 0 and 127;
+#X text 266 47 Use preset 0 to play original sound \, then use value
+inside sawtooth object to change pitch. Compare output to preset 1
+, f 20;
+#X connect 8 0 11 1;
+#X connect 10 0 11 0;
+#X connect 11 0 5 0;
+#X connect 11 1 12 0;

l2ork_addons/K12/fx_autotune.pd

+#N canvas 284 99 450 425 10;
+#X obj 210 -115 inlet~;
+#X obj 210 280 outlet~;
+#X obj 338 36 ggee/image @pd_extra/K12/objects/fx_autotune.png 1;
+#X obj 331 -56 loadbang;
+#X obj 210 178 autotune~;
+#X msg 331 -33 open @pd_extra/K12/objects/fx_autotune.png;
+#N canvas 609 221 450 281 keys 0;
+#X obj 74 141 tgl 13 0 empty empty C 4 7 0 10 -262144 -1 -260097 0
+1;
+#X obj 87 141 tgl 13 0 empty empty C# 1 7 0 10 -1 -262144 -260097 0
+1;
+#X obj 100 141 tgl 13 0 empty empty D 4 7 0 10 -262144 -1 -260097 0
+1;
+#X obj 126 141 tgl 13 0 empty empty E 4 7 0 10 -262144 -1 -260097 0
+1;
+#X obj 139 141 tgl 13 0 empty empty F 4 7 0 10 -262144 -1 -260097 0
+1;
+#X obj 113 141 tgl 13 0 empty empty D# 1 7 0 10 -1 -262144 -260097
+0 1;
+#X obj 74 156 tgl 13 0 empty empty F# 1 7 0 10 -1 -262144 -260097 0
+1;
+#X obj 87 156 tgl 13 0 empty empty G 4 7 0 10 -262144 -1 -260097 0
+1;
+#X obj 113 156 tgl 13 0 empty empty A 4 7 0 10 -262144 -1 -260097 0
+1;
+#X obj 100 156 tgl 13 0 empty empty G# 1 7 0 10 -1 -262144 -260097
+0 1;
+#X obj 139 156 tgl 13 0 empty empty B 4 7 0 10 -262144 -1 -260097 0
+1;
+#X obj 126 156 tgl 13 0 empty empty A# 1 7 0 10 -1 -262144 -260097
+0 1;
+#N canvas 379 181 544 389 format 0;
+#X obj 29 8 inlet;
+#X obj 29 360 outlet;
+#X obj 29 337 pack -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1, f 75;
+#X obj 68 8 inlet;
+#X obj 107 8 inlet;
+#X obj 146 8 inlet;
+#X obj 185 8 inlet;
+#X obj 224 8 inlet;
+#X obj 263 8 inlet;
+#X obj 302 8 inlet;
+#X obj 341 8 inlet;
+#X obj 380 8 inlet;
+#X obj 419 8 inlet;
+#X obj 458 8 inlet;
+#X obj 68 85 t b f;
+#X obj 107 109 t b f;
+#X obj 146 133 t b f;
+#X obj 185 59 t b f;
+#X obj 224 83 t b f;
+#X obj 263 107 t b f;
+#X obj 341 58 t b f;
+#X obj 380 82 t b f;
+#X obj 419 106 t b f;
+#X obj 302 131 t b f;
+#X obj 458 130 t b f;
+#X obj 29 35 expr -1+($f1*2);
+#X obj 68 61 expr -1+($f1*2);
+#X obj 107 85 expr -1+($f1*2);
+#X obj 146 109 expr -1+($f1*2);
+#X obj 185 35 expr -1+($f1*2);
+#X obj 224 59 expr -1+($f1*2);
+#X obj 263 83 expr -1+($f1*2);
+#X obj 302 107 expr -1+($f1*2);
+#X obj 341 34 expr -1+($f1*2);
+#X obj 380 58 expr -1+($f1*2);
+#X obj 419 82 expr -1+($f1*2);
+#X obj 458 106 expr -1+($f1*2);
+#X connect 0 0 25 0;
+#X connect 2 0 1 0;
+#X connect 3 0 26 0;
+#X connect 4 0 27 0;
+#X connect 5 0 28 0;
+#X connect 6 0 29 0;
+#X connect 7 0 30 0;
+#X connect 8 0 31 0;
+#X connect 9 0 32 0;
+#X connect 10 0 33 0;
+#X connect 11 0 34 0;
+#X connect 12 0 35 0;
+#X connect 13 0 36 0;
+#X connect 14 0 2 0;
+#X connect 14 1 2 1;
+#X connect 15 0 2 0;
+#X connect 15 1 2 2;
+#X connect 16 0 2 0;
+#X connect 16 1 2 3;
+#X connect 17 0 2 0;
+#X connect 17 1 2 4;
+#X connect 18 0 2 0;
+#X connect 18 1 2 5;
+#X connect 19 0 2 0;
+#X connect 19 1 2 6;
+#X connect 20 0 2 0;
+#X connect 20 1 2 8;
+#X connect 21 0 2 0;
+#X connect 21 1 2 9;
+#X connect 22 0 2 0;
+#X connect 22 1 2 10;
+#X connect 23 0 2 0;
+#X connect 23 1 2 7;
+#X connect 24 0 2 0;
+#X connect 24 1 2 11;
+#X connect 25 0 2 0;
+#X connect 26 0 14 0;
+#X connect 27 0 15 0;
+#X connect 28 0 16 0;
+#X connect 29 0 17 0;
+#X connect 30 0 18 0;
+#X connect 31 0 19 0;
+#X connect 32 0 23 0;
+#X connect 33 0 20 0;
+#X connect 34 0 21 0;
+#X connect 35 0 22 0;
+#X connect 36 0 24 0;
+#X restore 35 229 pd format;
+#X obj 35 252 outlet;
+#X obj 26 10 preset_node k12;
+#X obj 128 10 preset_node k12;
+#X obj 230 10 preset_node k12;
+#X obj 332 10 preset_node k12;
+#X obj 54 34 preset_node k12;
+#X obj 156 34 preset_node k12;
+#X obj 258 34 preset_node k12;
+#X obj 360 34 preset_node k12;
+#X obj 29 58 preset_node k12;
+#X obj 131 58 preset_node k12;
+#X obj 233 58 preset_node k12;
+#X obj 335 58 preset_node k12;
+#X connect 0 0 12 3;
+#X connect 1 0 12 4;
+#X connect 2 0 12 5;
+#X connect 3 0 12 7;
+#X connect 4 0 12 8;
+#X connect 5 0 12 6;
+#X connect 6 0 12 9;
+#X connect 7 0 12 10;
+#X connect 8 0 12 0;
+#X connect 9 0 12 10;
+#X connect 10 0 12 2;
+#X connect 11 0 12 1;
+#X connect 12 0 13 0;
+#X connect 14 0 0 0;
+#X connect 15 0 1 0;
+#X connect 16 0 2 0;
+#X connect 17 0 5 0;
+#X connect 18 0 3 0;
+#X connect 19 0 4 0;
+#X connect 20 0 6 0;
+#X connect 21 0 7 0;
+#X connect 22 0 9 0;
+#X connect 23 0 8 0;
+#X connect 24 0 11 0;
+#X connect 25 0 10 0;
+#X coords 0 -1 1 1 78 28 2 74 141;
+#X restore 298 36 pd keys;
+#X obj 255 -115 inlet;
+#X obj 294 111 loadbang;
+#X obj 255 -52 nbx 5 14 -12 12 0 0 empty empty empty 0 -8 0 10 -262144
+-1 -1 0 256 0;
+#X msg 255 -33 shift \$1;
+#X obj 261 280 outlet;
+#X obj 261 234 gate 1 0;
+#X obj 235 210 > 0.7;
+#X obj 261 257 ftom;
+#X msg 294 134 tune 440 \, smooth 0.01 \, fcorr 1 \, lfodepth 0.25
+\, lforate 5 \, mix 1 \, correct 1;
+#X connect 0 0 4 0;
+#X connect 3 0 5 0;
+#X connect 4 0 1 0;
+#X connect 4 1 13 0;
+#X connect 4 2 12 1;
+#X connect 5 0 2 0;
+#X connect 6 0 4 0;
+#X connect 7 0 9 0;
+#X connect 8 0 15 0;
+#X connect 9 0 10 0;
+#X connect 10 0 4 0;
+#X connect 12 0 14 0;
+#X connect 13 0 12 0;
+#X connect 14 0 11 0;
+#X connect 15 0 4 0;
+#X coords 0 -1 1 1 89 89 2 293 4;