/usr/lib/pd/extra/fftease/mindwarp~-help.pd is in pd-fftease 2.5.2.git20121005-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 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;
|