Commit 69550f99 authored by Jonathan Wilkes's avatar Jonathan Wilkes
Browse files

port from pd-l2ork git: 6966b5b9a3763aee24c5c1050247e6d3fd15124c

*added K12 version of the autotune
parent 9fbaddbf
#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;
#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;
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment