diff options
Diffstat (limited to 'mindwarp~-help.pd')
-rw-r--r-- | mindwarp~-help.pd | 168 |
1 files changed, 168 insertions, 0 deletions
diff --git a/mindwarp~-help.pd b/mindwarp~-help.pd new file mode 100644 index 0000000..26bb364 --- /dev/null +++ b/mindwarp~-help.pd @@ -0,0 +1,168 @@ +#N canvas 61 22 766 791 10; +#X obj 384 435 dac~; +#X floatatom 124 121 5 0.1 3 2 transpose transpose -; +#X msg 500 486 \; pd dsp \$1; +#X obj 500 467 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 +1; +#X obj 85 512 hsl 128 15 0.1 4 0 0 empty empty empty -2 -6 0 8 -261285 +-1 -1 1600 1; +#N canvas 0 22 494 344 messages 0; +#X obj 154 185 outlet; +#X obj 154 136 fftease-system; +#X connect 1 0 0 0; +#X restore 210 338 pd messages; +#X obj 227 512 hsl 128 15 0 0.01 0 0 empty empty empty -2 -6 0 8 -227712 +-1 -1 0 1; +#X obj 224 538 s thresh; +#X obj 82 538 s transpose; +#X obj 82 460 loadbang; +#X msg 82 491 1; +#N canvas 0 22 550 400 mindwarp-block 0; +#X obj 27 158 outlet~; +#X obj 27 42 inlet~; +#X obj 73 14 inlet; +#X obj 120 49 inlet; +#X obj 213 69 inlet; +#X text 107 105 args: warp factor \, shape width \, overlap \, winfac +; +#X obj 27 85 mindwarp~ 1 16; +#X obj 28 183 block~ 256; +#X connect 1 0 6 0; +#X connect 2 0 6 1; +#X connect 3 0 6 2; +#X connect 4 0 6 0; +#X connect 6 0 0 0; +#X restore 96 364 pd mindwarp-block; +#N canvas 1171 182 470 320 pvoc-block 0; +#X obj 102 141 pvoc~; +#X obj 102 199 outlet~; +#X obj 102 50 inlet~; +#X obj 117 94 inlet; +#X obj 233 94 inlet; +#X obj 270 115 block~ 256; +#X obj 164 95 inlet; +#X connect 0 0 1 0; +#X connect 2 0 0 0; +#X connect 3 0 0 1; +#X connect 4 0 0 0; +#X connect 6 0 0 2; +#X restore 96 194 pd pvoc-block; +#X text 176 274 warp factor; +#X floatatom 172 316 5 1 16 0 - - -; +#N canvas 990 218 520 409 playsound 0; +#X obj 31 194 soundfiler; +#X obj 31 160 openpanel; +#X msg 31 131 bang; +#X obj 227 284 outlet~; +#X msg 227 244 bang; +#X obj 348 228 spigot; +#X obj 385 205 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 +1; +#X text 63 132 open the sound; +#X text 133 244 then play it; +#X text 304 190 loop if you like; +#X text 316 205 comment; +#N canvas 0 22 450 300 graph3 0; +#X array mindwarp-sound1 302338 float 2; +#X coords 0 1 302337 -1 200 140 1; +#X restore 231 21 graph; +#X obj 227 268 tabplay~ mindwarp-sound1; +#X msg 31 177 read -resize \$1 mindwarp-sound1; +#X connect 1 0 13 0; +#X connect 2 0 1 0; +#X connect 4 0 12 0; +#X connect 5 0 4 0; +#X connect 6 0 5 1; +#X connect 12 0 3 0; +#X connect 12 1 5 0; +#X connect 13 0 0 0; +#X restore 96 38 pd playsound; +#N canvas 0 22 494 344 messages 0; +#X obj 154 185 outlet; +#X obj 302 145 fftease-system; +#X floatatom 65 105 5 0 0 0 - - -; +#X msg 65 126 highfreq \$1; +#X floatatom 201 94 5 0 0 0 - - -; +#X msg 201 112 lowfreq \$1; +#X msg 65 83 8000; +#X obj 65 61 loadbang; +#X msg 201 73 0; +#X obj 201 51 loadbang; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X connect 3 0 0 0; +#X connect 4 0 5 0; +#X connect 5 0 0 0; +#X connect 6 0 2 0; +#X connect 7 0 6 0; +#X connect 8 0 4 0; +#X connect 9 0 8 0; +#X restore 182 174 pd messages; +#X msg 384 314 set mindwarp-raw; +#X obj 384 409 receive~ mindwarp-warped; +#X msg 384 333 set mindwarp-pvoc; +#X msg 384 352 set mindwarp-warped; +#X obj 129 396 send~ mindwarp-warped; +#X obj 119 228 send~ mindwarp-pvoc; +#X obj 108 73 send~ mindwarp-raw; +#X text 380 290 select listening point:; +#X text 503 314 original sound; +#X text 511 335 pvoc transposed; +#X text 523 352 post-pvoc formant-adjusted; +#X text 82 577 mindwarp~ performs spectral envelope warping. It can +be used to correct for the formant shifting effects of pitch-scaling. +The warp factor is tuned to warp spectra to compensate for directly +corresponding pitch-scaling values. For example \, if you have pitch-scaled +a signal by a factor of two \, increasing its frequency content by +an octave \, by providing mindwarp~ with a warp factor of 2 and the +pitch-scaled signal \, mindwarp~ will restore the spectral formant +of the signal to an estimation of the shape present in the original +unscaled signal. Currently \, warp factor values are restricted to +the range [1/16 ... 16.]. mindwarp~ utilizes frequency shaping to perform +its duty. It can be fun to decorrelate the warp factor from the transposition +factor.; +#X text 190 32 <- first load a soundfile here; +#X floatatom 153 156 5 0 0 0 - - -; +#X floatatom 134 275 5 0.1 20 0 - - -; +#X obj 134 252 r transpose; +#X text 214 316 shape width; +#X obj 153 137 r thresh; +#X msg 224 476 1e-05; +#X obj 172 296 r shapewidth; +#N canvas 0 22 454 304 init 0; +#X obj 95 88 loadbang; +#X msg 95 116 16; +#X obj 95 155 s shapewidth; +#X obj 198 155 s transpose; +#X msg 198 120 1; +#X connect 0 0 1 0; +#X connect 0 0 4 0; +#X connect 1 0 2 0; +#X connect 4 0 3 0; +#X restore 501 518 pd init; +#X connect 1 0 12 1; +#X connect 3 0 2 0; +#X connect 4 0 8 0; +#X connect 5 0 11 3; +#X connect 6 0 7 0; +#X connect 9 0 10 0; +#X connect 9 0 35 0; +#X connect 10 0 4 0; +#X connect 11 0 21 0; +#X connect 12 0 11 0; +#X connect 12 0 22 0; +#X connect 14 0 11 2; +#X connect 15 0 12 0; +#X connect 15 0 23 0; +#X connect 16 0 12 3; +#X connect 17 0 18 0; +#X connect 18 0 0 0; +#X connect 18 0 0 1; +#X connect 19 0 18 0; +#X connect 20 0 18 0; +#X connect 30 0 12 2; +#X connect 31 0 11 1; +#X connect 32 0 31 0; +#X connect 34 0 30 0; +#X connect 35 0 6 0; +#X connect 36 0 14 0; |