[PD] How to make a sample sound like a muffled whisper.

[CK]

I read:
> How can I process a sample of a normal human voice to sound like a quiet
> whisper that is muffled. The words should no longer be intellegible, but
> it should be recognized and a voice and sound as analog as possible.

a quick idea attached, still a bit to do I guess ...

HTH

x

-- 
chris at lo-res.org	Postmodernism is german romanticism with better
http://pilot.fm/	special effects. (Jeff Keuss / via ctheory.com)
-------------- next part --------------
#N canvas 663 58 489 593 10;
#X obj 101 108 noise~;
#X obj 36 152 hip~ 2500;
#X obj 36 175 hip~ 2500;
#X obj 36 237 *~ 3;
#X obj 36 290 loadbang;
#X obj 36 382 soundfiler;
#N canvas 0 0 450 300 graph1 0;
#X array vox 62079 float 2;
#X coords 0 1 62079 -1 200 140 1;
#X restore 34 430 graph;
#X msg 36 358 read -resize /usr/lib/pd/doc/sound/voice.wav vox;
#X obj 37 39 tabplay~ vox;
#X obj 37 15 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 153 13 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 116 64 spigot;
#X obj 36 195 lop~ 800;
#X obj 36 215 lop~ 800;
#X obj 36 266 dac~;
#N canvas 0 0 750 408 miller's_vocoder 0;
#X obj 265 254 *~;
#X obj 249 284 *~;
#X obj 214 284 *~;
#X obj 114 120 *~;
#X obj 80 114 *~;
#X obj 80 137 +~;
#X obj 213 68 *~;
#X obj 245 68 inlet~;
#X obj 213 91 rfft~;
#X obj 59 304 *~;
#X floatatom 462 156 0 0 0 0 - - -;
#X obj 317 133 *~;
#X obj 80 68 *~;
#X obj 113 68 inlet~;
#X obj 61 34 tabreceive~ hanning;
#X obj 80 91 rfft~;
#X obj 214 307 rifft~;
#X obj 59 327 outlet~;
#X text 37 2 Hanning window;
#X obj 284 133 *~;
#X obj 284 156 +~;
#X obj 293 254 sig~ 0.001;
#X text 129 165 modulus;
#X obj 80 160 sqrt~;
#X obj 265 231 *~;
#X obj 313 346 block~ 1024 4;
#X obj 284 182 rsqrt~;
#X obj 344 184 sig~ 1e-20;
#X obj 284 208 clip~;
#X obj 462 177 moses;
#X msg 457 221 0;
#X obj 461 90 t f f;
#X obj 462 113 *;
#X obj 462 134 * 0.01;
#X obj 464 48 inlet;
#N canvas 0 0 725 613 hanning 0;
#X obj 94 207 phasor~;
#X obj 94 235 cos~;
#X obj 25 329 tabwrite~ hanning;
#X obj 32 253 -~;
#X obj 30 219 sig~ 1;
#X msg 39 181 0;
#N canvas 0 0 450 300 graph1 0;
#X array hanning 1024 float 0;
#X coords 0 1 1024 -1 400 300 1;
#X restore 275 281 graph;
#X msg 275 547 \; hanning resize 1024;
#X obj 94 131 / 1024;
#X obj 94 172 sig~;
#X text 175 148 sample rate / window size;
#X msg 25 145 bang;
#X obj 68 270 sig~ 0.5;
#X obj 51 301 *~;
#X obj 67 96 samplerate~;
#X obj 25 53 t b f;
#X msg 25 30 1024;
#X obj 25 7 loadbang;
#X obj 77 35 r winsize;
#X connect 0 0 1 0;
#X connect 1 0 3 1;
#X connect 3 0 13 0;
#X connect 4 0 3 0;
#X connect 5 0 0 1;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 11 0 2 0;
#X connect 11 0 5 0;
#X connect 12 0 13 1;
#X connect 13 0 2 0;
#X connect 14 0 8 0;
#X connect 15 0 14 0;
#X connect 15 0 11 0;
#X connect 15 1 8 1;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 18 0 15 0;
#X restore 417 346 pd hanning;
#X obj 521 46 r init;
#X connect 0 0 1 1;
#X connect 0 0 2 1;
#X connect 1 0 16 1;
#X connect 2 0 16 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 23 0;
#X connect 6 0 8 0;
#X connect 7 0 6 1;
#X connect 8 0 19 0;
#X connect 8 0 19 1;
#X connect 8 0 2 0;
#X connect 8 1 11 0;
#X connect 8 1 11 1;
#X connect 8 1 1 0;
#X connect 9 0 17 0;
#X connect 10 0 29 0;
#X connect 11 0 20 1;
#X connect 12 0 15 0;
#X connect 13 0 12 1;
#X connect 14 0 12 0;
#X connect 14 0 6 0;
#X connect 14 0 9 0;
#X connect 15 0 4 0;
#X connect 15 0 4 1;
#X connect 15 1 3 0;
#X connect 15 1 3 1;
#X connect 16 0 9 1;
#X connect 19 0 20 0;
#X connect 20 0 26 0;
#X connect 21 0 0 1;
#X connect 23 0 24 0;
#X connect 24 0 0 0;
#X connect 26 0 28 0;
#X connect 27 0 26 0;
#X connect 28 0 24 1;
#X connect 29 0 30 0;
#X connect 29 1 28 2;
#X connect 30 0 28 2;
#X connect 31 0 32 0;
#X connect 31 0 32 1;
#X connect 32 0 33 0;
#X connect 33 0 10 0;
#X connect 34 0 31 0;
#X connect 36 0 31 0;
#X restore 36 129 pd miller's_vocoder;
#X msg 47 311 \; init 16 \; init 16;
#X connect 0 0 15 1;
#X connect 1 0 2 0;
#X connect 2 0 12 0;
#X connect 3 0 14 0;
#X connect 3 0 14 1;
#X connect 4 0 7 0;
#X connect 4 0 16 0;
#X connect 7 0 5 0;
#X connect 8 0 15 0;
#X connect 8 1 11 0;
#X connect 9 0 8 0;
#X connect 10 0 11 1;
#X connect 11 0 8 0;
#X connect 12 0 13 0;
#X connect 13 0 3 0;
#X connect 15 0 1 0;