Add files via upload

patch/_jk_main-help0.pd

@@ -0,0 +1,43 @@
+#N canvas 1061 185 554 618 10;
+#X obj -12 570 cnv 15 552 21 empty \$0-pddp.cnv.footer empty 20 12
+0 14 -228856 -66577 0;
+#X obj -12 -25 cnv 15 552 40 empty \$0-pddp.cnv.header Voice_Changer
+3 12 0 18 -66577 -4034 0;
+#X obj -12 178 cnv 3 550 3 empty \$0-pddp.cnv.inlets inlets 8 12 0
+13 -228856 -1 0;
+#X obj -12 253 cnv 3 550 3 empty \$0-pddp.cnv.outlets outlets 8 12
+0 13 -228856 -1 0;
+#X obj -12 333 cnv 3 550 3 empty \$0-pddp.cnv.argument arguments 8
+12 0 13 -228856 -1 0;
+#X obj -12 377 cnv 3 550 3 empty \$0-pddp.cnv.more_info more_info 8
+12 0 13 -228856 -1 0;
+#X obj 66 187 cnv 17 3 30 empty \$0-pddp.cnv.let.0 0 5 9 0 16 -228856
+-162280 0;
+#X obj 66 225 cnv 17 3 17 empty \$0-pddp.cnv.let.1 1 5 9 0 16 -228856
+-162280 0;
+#X text 86 381 Click below for individual help patches:;
+#X obj 33 68 pddplink http://dehumaniser.com/;
+#X text 85 186 adc~;
+#X text 34 42 Voice Changer is live audio processing application inspired
+by Dehumaniser Software from Krotos Ltd.;
+#X text 146 186 - at the moment the only input is the microphone.;
+#X obj 66 262 cnv 17 3 30 empty \$0-pddp.cnv.let.0 0 5 9 0 16 -228856
+-162280 0;
+#X obj 66 300 cnv 17 3 17 empty \$0-pddp.cnv.let.1 1 5 9 0 16 -228856
+-162280 0;
+#X text 146 217 - in the future the next stage would be reading \,
+editing and saving audio files.;
+#X text 66 353 1) --;
+#X text 156 353 - this patch accepts no arguments.;
+#X text 85 261 dac~;
+#X text 146 260 - at the moment the only output is the dac.;
+#X text 146 292 - in the future the next stage would be interacting
+with DAW using MIDI and OSC.;
+#X obj 86 396 pddp/pddplink jk_3d_viewport.pd;
+#X obj 86 412 pddp/pddplink jk_theme.pd;
+#X obj 86 428 pddp/pddplink jk_audio_input~.pd;
+#X obj 86 444 pddp/pddplink jk_audio_output~.pd;
+#X obj 86 460 pddp/pddplink jk_pitch_shifter~.pd;
+#X obj 86 476 pddp/pddplink jk_ssb_modulation~.pd;
+#X obj 86 493 pddp/pddplink jk_combfilter~.pd;
+#X obj 86 509 pddp/pddplink jk_reverb~.pd;

patch/_jk_main.pd

@@ -0,0 +1,48 @@
+#N canvas 11 7 1265 739 10;
+#X obj 41 65 jk_theme;
+#X obj 40 351 s~ audio_out0;
+#X obj 329 320 s~ audio_out1;
+#X obj 748 213 r~ audio_out0;
+#X obj 749 181 s~ audio_in0;
+#X obj 329 167 r~ audio_in1;
+#X obj 67 210 jk_ssb_modulation0~;
+#X obj 748 9 jk_audio_input0~;
+#X obj 747 236 jk_audio_output0~;
+#X obj 356 194 jk_ssb_modulation1~;
+#X obj 198 62 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 198 135 pack 0 1000;
+#X obj 198 162 line 0 100;
+#X obj 198 86 random 2000;
+#X obj 198 112 - 1000;
+#X obj 198 39 metro 2000;
+#X msg 198 14 1;
+#X obj 492 66 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 492 137 pack 0 1000;
+#X obj 492 164 line 0 100;
+#X obj 492 88 random 2000;
+#X obj 492 114 - 1000;
+#X text 42 20 X Y Z;
+#X obj 66 156 r~ audio_in0;
+#X obj 36 189 *~ 0.7;
+#X connect 3 0 8 0;
+#X connect 5 0 9 0;
+#X connect 6 0 1 0;
+#X connect 7 0 4 0;
+#X connect 9 0 2 0;
+#X connect 10 0 13 0;
+#X connect 11 0 12 0;
+#X connect 12 0 6 1;
+#X connect 13 0 14 0;
+#X connect 14 0 11 0;
+#X connect 15 0 10 0;
+#X connect 15 0 17 0;
+#X connect 16 0 15 0;
+#X connect 17 0 20 0;
+#X connect 18 0 19 0;
+#X connect 19 0 9 1;
+#X connect 20 0 21 0;
+#X connect 21 0 18 0;
+#X connect 23 0 6 0;
+#X connect 23 0 24 0;

patch/fft0.pd

@@ -0,0 +1,64 @@
+#N canvas 111 195 1169 696 12;
+#X obj 29 71 inlet~;
+#X obj 105 224 inlet;
+#X obj 39 102 rfft~;
+#X obj 39 135 *~;
+#X obj 70 135 *~;
+#X obj 39 165 sqrt~;
+#X obj 342 119 block~ 4096 1;
+#X obj 39 191 biquad~ 0 0 0 0 1;
+#X text 103 103 Fourier series;
+#X text 108 156 magnitude;
+#X text 106 141 calculate;
+#X text 31 13 This subpatch computes the spectrum of the incoming signal
+with a (rectangular windowed) FFT. FFTs aren't properly introduced
+until much later.;
+#X text 93 71 signal to analyze;
+#X text 202 176 delay two samples;
+#X text 201 192 for better graphing;
+#X obj 26 435 samplerate~;
+#X obj 26 412 bng 18 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X floatatom 26 482 5 0 0 0 - - -;
+#X obj 26 458 / 256;
+#X obj 26 388 loadbang;
+#X floatatom 26 551 5 0 0 0 - - -;
+#X obj 34 504 s fundamental;
+#X obj 26 527 ftom;
+#X text 24 329 At load time \, calculate a good choice of fundamental
+frequency for showing spectra: the 16th bin in a 4096-point spectrum
+\, so SR*16/4096 or SR/256.;
+#X text 155 226 "bang" into this inlet to graph it;
+#X floatatom 201 490 5 0 0 0 - - -;
+#X obj 201 466 / 4096;
+#X text 197 435 One bin is SR/4096:;
+#X text 82 550 <-just out of curiosity \, here's the fundamental pitch
+;
+#X obj 201 512 s freq-step;
+#X obj 105 258 tabwrite~ E02-spectrum;
+#X obj 30 291 tabwrite~ F05-signal;
+#X text 25 584 pd fft from: Theory and Techniques of Electronic Music
+Outputs spectrum and signal information at a rate determined by a rate
+set by metro;
+#X connect 0 0 2 0;
+#X connect 0 0 31 0;
+#X connect 1 0 30 0;
+#X connect 1 0 31 0;
+#X connect 2 0 3 0;
+#X connect 2 0 3 1;
+#X connect 2 1 4 0;
+#X connect 2 1 4 1;
+#X connect 3 0 5 0;
+#X connect 4 0 5 0;
+#X connect 5 0 7 0;
+#X connect 7 0 30 0;
+#X connect 15 0 18 0;
+#X connect 15 0 26 0;
+#X connect 16 0 15 0;
+#X connect 17 0 21 0;
+#X connect 17 0 22 0;
+#X connect 18 0 17 0;
+#X connect 19 0 16 0;
+#X connect 22 0 20 0;
+#X connect 25 0 29 0;
+#X connect 26 0 25 0;

patch/fft1.pd

@@ -0,0 +1,64 @@
+#N canvas 111 195 1169 696 12;
+#X obj 29 71 inlet~;
+#X obj 105 224 inlet;
+#X obj 39 102 rfft~;
+#X obj 39 135 *~;
+#X obj 70 135 *~;
+#X obj 39 165 sqrt~;
+#X obj 342 119 block~ 4096 1;
+#X obj 39 191 biquad~ 0 0 0 0 1;
+#X text 103 103 Fourier series;
+#X text 108 156 magnitude;
+#X text 106 141 calculate;
+#X text 31 13 This subpatch computes the spectrum of the incoming signal
+with a (rectangular windowed) FFT. FFTs aren't properly introduced
+until much later.;
+#X text 93 71 signal to analyze;
+#X text 202 176 delay two samples;
+#X text 201 192 for better graphing;
+#X obj 26 435 samplerate~;
+#X obj 26 412 bng 18 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X floatatom 26 482 5 0 0 0 - - -;
+#X obj 26 458 / 256;
+#X obj 26 388 loadbang;
+#X floatatom 26 551 5 0 0 0 - - -;
+#X obj 34 504 s fundamental;
+#X obj 26 527 ftom;
+#X text 24 329 At load time \, calculate a good choice of fundamental
+frequency for showing spectra: the 16th bin in a 4096-point spectrum
+\, so SR*16/4096 or SR/256.;
+#X text 155 226 "bang" into this inlet to graph it;
+#X floatatom 201 490 5 0 0 0 - - -;
+#X obj 201 466 / 4096;
+#X text 197 435 One bin is SR/4096:;
+#X text 82 550 <-just out of curiosity \, here's the fundamental pitch
+;
+#X obj 201 512 s freq-step;
+#X obj 105 258 tabwrite~ E02-spectrum;
+#X obj 30 291 tabwrite~ F05-signal;
+#X text 25 584 pd fft from: Theory and Techniques of Electronic Music
+Outputs spectrum and signal information at a rate determined by a rate
+set by metro;
+#X connect 0 0 2 0;
+#X connect 0 0 31 0;
+#X connect 1 0 30 0;
+#X connect 1 0 31 0;
+#X connect 2 0 3 0;
+#X connect 2 0 3 1;
+#X connect 2 1 4 0;
+#X connect 2 1 4 1;
+#X connect 3 0 5 0;
+#X connect 4 0 5 0;
+#X connect 5 0 7 0;
+#X connect 7 0 30 0;
+#X connect 15 0 18 0;
+#X connect 15 0 26 0;
+#X connect 16 0 15 0;
+#X connect 17 0 21 0;
+#X connect 17 0 22 0;
+#X connect 18 0 17 0;
+#X connect 19 0 16 0;
+#X connect 22 0 20 0;
+#X connect 25 0 29 0;
+#X connect 26 0 25 0;

patch/jk_add_signals0~.pd

@@ -0,0 +1,13 @@
+#N canvas 221 370 450 298 10;
+#X obj 54 83 +~;
+#X obj 54 153 outlet~;
+#X obj 54 116 +~;
+#X obj 54 45 inlet~;
+#X obj 108 45 inlet~;
+#X obj 168 45 inlet~;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X connect 3 0 0 0;
+#X connect 4 0 0 1;
+#X connect 5 0 2 1;
+#X coords 0 298 1 297 150 20 0;

patch/jk_add_signals1~.pd

@@ -0,0 +1,13 @@
+#N canvas 221 370 450 298 10;
+#X obj 54 83 +~;
+#X obj 54 153 outlet~;
+#X obj 54 116 +~;
+#X obj 54 45 inlet~;
+#X obj 108 45 inlet~;
+#X obj 168 45 inlet~;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X connect 3 0 0 0;
+#X connect 4 0 0 1;
+#X connect 5 0 2 1;
+#X coords 0 298 1 297 150 20 0;

patch/jk_audio_input0~.pd

@@ -0,0 +1,38 @@
+#N canvas 583 250 552 420 10;
+#X obj 52 128 cnv 15 344 154 empty cn_scnd Audio-Input 7 10 0 12 -99865
+-241291 0;
+#X obj 121 30 adc~;
+#X obj 55 100 outlet~;
+#X obj 113 153 vu 15 120 lbl2 empty -1 -8 0 10 -66577 -99865 1 0;
+#X obj 135 153 vu 15 120 lbl3 empty -1 -8 0 10 -66577 -4034 1 0;
+#X obj 122 100 pvu~;
+#X obj 121 61 *~;
+#X obj 64 243 tgl 32 0 \$0-unmute \$0-volume Unmute -2 -10 0 10 -262144
+-1 -4034 0.5 0.5;
+#X obj 164 30 tgl 15 0 empty \$0-unmute empty 17 7 0 10 -262144 -1
+-1 0.5 0.5;
+#X obj 164 6 r \$0-volume;
+#X obj 187 141 scope~ 201 133 256 3 128 -1 1 0 0 0 0 102 255 51 135
+135 135 0;
+#X msg 226 41 bufsize 1000;
+#X msg 236 68 range -1 1;
+#X obj 64 163 vsl 32 55 0 1 0 0 \$0-volume empty Volume -2 -10 0 10
+-262144 -1 -4034 2700 1;
+#X obj 17 62 loadbang;
+#X msg 17 100 0.5;
+#X text 48 328 At the moment accepts inly mic input. In the future
+the menu should be added to open and save files.;
+#X connect 1 0 6 0;
+#X connect 1 1 6 0;
+#X connect 5 0 3 0;
+#X connect 5 0 4 0;
+#X connect 6 0 5 0;
+#X connect 6 0 2 0;
+#X connect 6 0 10 0;
+#X connect 8 0 6 1;
+#X connect 9 0 8 0;
+#X connect 11 0 10 0;
+#X connect 12 0 10 0;
+#X connect 14 0 15 0;
+#X connect 15 0 13 0;
+#X coords 0 -1 1 1 350 160 1 50 125;

patch/jk_audio_input1~.pd

@@ -0,0 +1,38 @@
+#N canvas 583 250 552 420 10;
+#X obj 52 128 cnv 15 344 154 empty cn_scnd Audio-Input 7 10 0 12 -99865
+-241291 0;
+#X obj 121 30 adc~;
+#X obj 55 100 outlet~;
+#X obj 113 153 vu 15 120 lbl2 empty -1 -8 0 10 -66577 -99865 1 0;
+#X obj 135 153 vu 15 120 lbl3 empty -1 -8 0 10 -66577 -4034 1 0;
+#X obj 122 100 pvu~;
+#X obj 121 61 *~;
+#X obj 64 243 tgl 32 0 \$0-unmute \$0-volume Unmute -2 -10 0 10 -262144
+-1 -4034 0.5 0.5;
+#X obj 164 30 tgl 15 0 empty \$0-unmute empty 17 7 0 10 -262144 -1
+-1 0.5 0.5;
+#X obj 164 6 r \$0-volume;
+#X obj 187 141 scope~ 201 133 256 3 128 -1 1 0 0 0 0 102 255 51 135
+135 135 0;
+#X msg 226 41 bufsize 1000;
+#X msg 236 68 range -1 1;
+#X obj 64 163 vsl 32 55 0 1 0 0 \$0-volume empty Volume -2 -10 0 10
+-262144 -1 -4034 2700 1;
+#X obj 17 62 loadbang;
+#X msg 17 100 0.5;
+#X text 48 328 At the moment accepts inly mic input. In the future
+the menu should be added to open and save files.;
+#X connect 1 0 6 0;
+#X connect 1 1 6 0;
+#X connect 5 0 3 0;
+#X connect 5 0 4 0;
+#X connect 6 0 5 0;
+#X connect 6 0 2 0;
+#X connect 6 0 10 0;
+#X connect 8 0 6 1;
+#X connect 9 0 8 0;
+#X connect 11 0 10 0;
+#X connect 12 0 10 0;
+#X connect 14 0 15 0;
+#X connect 15 0 13 0;
+#X coords 0 -1 1 1 350 160 1 50 125;

patch/jk_audio_output0~.pd

@@ -0,0 +1,42 @@
+#N canvas 605 356 960 570 10;
+#X obj 103 103 cnv 15 344 154 empty cn_scnd Audio-Output 7 10 0 12
+-99865 -241291 0;
+#X obj 114 139 vsl 32 55 0 1 0 0 \$0-volume empty Volume -2 -10 0 10
+-262144 -1 -4034 2700 1;
+#X msg 149 35 0.5;
+#X obj 162 129 vu 15 120 lbl2 empty -1 -8 0 10 -66577 -99865 1 0;
+#X obj 184 129 vu 15 120 lbl3 empty -1 -8 0 10 -66577 -4034 1 0;
+#X obj 166 74 pvu~;
+#X obj 239 -20 loadbang;
+#X obj 239 29 1;
+#X obj 102 35 *~;
+#X obj 239 52 metro 50;
+#X obj 114 218 tgl 32 0 \$0-unmute \$0-volume Unmute -2 -10 0 10 -262144
+-1 -4034 0.5 0.5;
+#X obj 150 4 tgl 15 0 empty \$0-unmute empty 17 7 0 10 -262144 -1 -1
+0.5 0.5;
+#X obj 102 74 dac~;
+#X obj 102 2 inlet~;
+#X obj 150 -20 r \$0-volume;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array \$0_audio_output 882 float 0;
+#X coords 0 1 882 -1 200 130 1 0 0;
+#X restore 239 120 graph;
+#X obj 239 74 tabwrite~ \$0_audio_output;
+#X obj 239 3 t b b;
+#X connect 2 0 1 0;
+#X connect 5 0 3 0;
+#X connect 5 0 4 0;
+#X connect 6 0 17 0;
+#X connect 7 0 9 0;
+#X connect 8 0 5 0;
+#X connect 8 0 12 0;
+#X connect 8 0 12 1;
+#X connect 8 0 16 0;
+#X connect 9 0 16 0;
+#X connect 11 0 8 1;
+#X connect 13 0 8 0;
+#X connect 14 0 11 0;
+#X connect 17 0 2 0;
+#X connect 17 1 7 0;
+#X coords 0 -1 1 1 350 160 2 100 100;