#N canvas 263 477 494 344 10;
#N canvas 657 88 510 360 messages 0;
#X obj 160 251 outlet;
#X obj 160 215 fftease-system;
#X obj 308 200 loadbang;
#X msg 308 235 16;
#X obj 308 264 outlet;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X restore 248 126 pd messages;
#X obj 148 221 dac~;
#X msg 210 242 \; pd dsp \$1;
#X obj 210 212 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X floatatom 212 175 5 0 1 0 - - -;
#N canvas 638 45 502 352 shapee-block 0;
#X obj 150 160 outlet~;
#X obj 150 66 inlet~;
#X obj 229 70 inlet~;
#X obj 411 78 inlet;
#X obj 150 115 shapee~ 4 1;
#X floatatom 279 149 5 0 0 0 - - -;
#X obj 329 72 inlet;
#X obj 154 253 block~ 512;
#X connect 1 0 4 0;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 5 0 4 2;
#X connect 6 0 4 2;
#X restore 148 153 pd shapee-block;
#X floatatom 214 98 5 0 0 0 - - -;
#X text 258 99 shaping width;
#N canvas 501 137 751 450 pitch-source 0;
#X obj 31 194 soundfiler;
#X obj 31 160 openpanel;
#N canvas 0 22 450 300 graph1 0;
#X array shapee-sound1 4e+06 float 2;
#X coords 0 1 4e+06 -1 200 140 1;
#X restore 237 13 graph;
#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 133 244 then play it;
#X text 304 190 loop if you like;
#X msg 31 177 read -resize \$1 shapee-sound1;
#X obj 227 268 tabplay~ shapee-sound1;
#X text 63 132 open the pitched sound;
#X connect 1 0 10 0;
#X connect 3 0 1 0;
#X connect 5 0 11 0;
#X connect 6 0 5 0;
#X connect 7 0 6 1;
#X connect 10 0 0 0;
#X connect 11 0 4 0;
#X connect 11 1 6 0;
#X restore 148 25 pd pitch-source;
#N canvas 0 22 495 403 formant-source 0;
#X obj 31 194 soundfiler;
#X obj 31 160 openpanel;
#N canvas 0 22 450 300 graph1 0;
#X array shapee-sound2 4e+06 float 2;
#X coords 0 1 4e+06 -1 200 140 1;
#X restore 237 13 graph;
#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 133 244 then play it;
#X text 304 190 loop if you like;
#X obj 227 268 tabplay~ shapee-sound2;
#X msg 31 177 read -resize \$1 shapee-sound2;
#X text 36 337 try a vocal sound or other sound with strong formant
structure;
#X text 63 132 open the formant sound;
#X connect 1 0 11 0;
#X connect 3 0 1 0;
#X connect 5 0 10 0;
#X connect 6 0 5 0;
#X connect 7 0 6 1;
#X connect 10 0 4 0;
#X connect 10 1 6 0;
#X connect 11 0 0 0;
#X restore 181 49 pd formant-source;
#X obj 320 160 hsl 128 15 0 2 0 0 empty empty empty -2 -6 0 8 -195520
-1 -1 5200 1;
#X text 321 146 gain;
#X obj 148 188 *~ 0.1;
#X text 40 287 shapee~ shapes the frequency evolution of one signal
with that of another. The shape width controls the amount of the frequency
shaping effect. Try to avoid sounds containing silence \, which can
cause strong clicks.;
#X connect 0 0 5 3;
#X connect 0 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 12 1;
#X connect 5 0 12 0;
#X connect 6 0 5 2;
#X connect 8 0 5 0;
#X connect 9 0 5 1;
#X connect 10 0 4 0;
#X connect 12 0 1 0;
#X connect 12 0 1 1;