sitplus-data 1.0.3-4build1 / usr / share / sitplus / pd / pvoice.pd

#N canvas 298 37 799 753 10;
#X msg -162 185 \; pd dsp 1;
#X obj -162 14 loadbang;
#X obj -135 117 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj -162 50 delay 500;
#X text -224 31 Workaround delay \, don't touch!;
#X obj -56 116 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg -83 184 \; pd dsp 0;
#X msg -6 184 \; pd quit;
#X obj -3 115 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj -57 53 route /audioOn /audioOff /quit;
#X obj 650 1384 sendOSC;
#X msg 570 1319 connect localhost 50002;
#X obj 345 4 adc~;
#X obj 572 1299 loadbang;
#X msg 652 1345 send /envelope \$1;
#X obj 279 1172 dac~;
#X obj 346 64 +~;
#X obj 305 184 hsl 128 15 -1500 1500 0 0 empty empty empty -2 -8 0
10 -262144 -1 -1 6350 1;
#X obj 440 193 loadbang;
#X msg 245 201 0;
#X obj 364 205 != 0;
#X obj 330 229 == 0;
#X obj 365 226 *~;
#X obj 332 252 *~;
#X obj 341 278 +~;
#N canvas 255 168 467 541 chorus 0;
#X obj 19 26 inlet~;
#X obj 327 25 inlet;
#X obj 343 170 switch~;
#X obj 345 111 != 0;
#X obj 42 83 delwrite~ \$0-mychorus1 200;
#X obj 83 183 vd~ \$0-mychorus1 500;
#X obj 138 234 delwrite~ \$0-mychorus2 200;
#X obj 171 291 vd~ \$0-mychorus2 500;
#X obj 171 261 * 1.7;
#X obj 130 345 outlet~ r;
#X obj 47 342 outlet~ l;
#X connect 0 0 4 0;
#X connect 0 0 10 0;
#X connect 1 0 3 0;
#X connect 1 0 5 0;
#X connect 1 0 8 0;
#X connect 3 0 2 0;
#X connect 5 0 6 0;
#X connect 5 0 9 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X restore 358 715 pd chorus;
#X obj 290 670 hsl 128 15 0 40 0 0 empty empty chorus_(0..4_0_default)
-2 -8 0 10 -262144 -1 -1 0 1;
#X obj 245 183 loadbang;
#X msg 229 696 0;
#X obj 229 672 loadbang;
#X obj 329 688 == 0;
#X obj 328 715 *~;
#X obj 309 504 hsl 128 15 0 1000 0 0 empty empty echo_delay_(0_1000_ds)
-2 -8 0 10 -262144 -1 -1 0 1;
#X msg 246 519 0;
#X obj 246 500 loadbang;
#X obj 323 571 == 0;
#X obj 326 599 *~;
#N canvas 11 8 938 557 echopitch 0;
#X obj 36 43 inlet~;
#X obj 32 458 outlet~;
#X obj 147 45 inlet time;
#X obj 33 422 +~;
#X obj 126 239 *~ 0.7;
#X obj 65 110 *~;
#N canvas 669 49 554 356 autodelwrite 0;
#X obj 38 169 vd~ longdelay 500;
#X obj 40 77 delwrite~ longdelay 10000;
#X obj 38 135 r echo-delaytime;
#X obj 40 44 r~ echo-input;
#X obj 39 205 s~ echo-output;
#X connect 0 0 4 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X restore 573 373 pd autodelwrite;
#X obj 83 140 s~ echo-input;
#X obj 251 245 s echo-delaytime;
#X obj 112 199 r~ echo-output;
#X obj 491 103 route 1;
#X msg 428 258 obj 38 169 vd~ longdelay 500 \, obj 40 77 delwrite~
longdelay 10000 \, obj 38 135 r echo-delaytime \, obj 40 44 r~ echo-input
\, obj 39 205 s~ echo-output \, connect 0 0 4 0 \, connect 2 0 0 0
\, connect 3 0 1 0;
#X obj 437 377 s pd-autodelwrite;
#X msg 618 226 clear;
#X obj 492 142 t b b;
#X text 448 242 Trick to clear the echo buffer when echo time is 0
;
#X obj 280 23 inlet pitchshift;
#X obj 204 294 loadbang;
#X msg 204 317 512;
#X obj 153 294 != 0;
#X obj 119 293 == 0;
#X obj 154 315 *~;
#X obj 121 341 *~;
#X obj 79 382 +~;
#X text 391 66 comment;
#X obj 153 268 +;
#X obj 495 200 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 242 207 - 0;
#X obj 304 115 route 1;
#X obj 284 81 == 0;
#X msg 270 153 0;
#X floatatom 189 82 5 0 0 0 - - -;
#X obj 248 75 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 249 48 t b f;
#X obj 310 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 356 208 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 212 248 5 0 0 0 - - -;
#X text 357 145 compensate pitchshifter delay;
#X obj 154 338 fft-pitchshifter;
#X obj 92 86 >= 20;
#X msg 323 153 20;
#X connect 0 0 5 0;
#X connect 0 0 3 0;
#X connect 2 0 31 0;
#X connect 2 0 39 0;
#X connect 3 0 1 0;
#X connect 4 0 21 0;
#X connect 4 0 22 0;
#X connect 5 0 7 0;
#X connect 9 0 4 0;
#X connect 10 1 14 0;
#X connect 11 0 12 0;
#X connect 13 0 12 0;
#X connect 14 0 11 0;
#X connect 14 1 13 0;
#X connect 14 1 26 0;
#X connect 16 0 33 0;
#X connect 17 0 18 0;
#X connect 18 0 38 2;
#X connect 19 0 21 1;
#X connect 20 0 22 1;
#X connect 21 0 38 0;
#X connect 22 0 23 0;
#X connect 23 0 5 0;
#X connect 23 0 3 1;
#X connect 25 0 20 0;
#X connect 25 0 19 0;
#X connect 25 0 38 1;
#X connect 27 0 8 0;
#X connect 27 0 36 0;
#X connect 28 0 30 0;
#X connect 28 1 40 0;
#X connect 29 0 28 0;
#X connect 30 0 27 1;
#X connect 30 0 34 0;
#X connect 31 0 27 0;
#X connect 32 0 31 0;
#X connect 33 0 32 0;
#X connect 33 1 29 0;
#X connect 33 1 25 0;
#X connect 38 0 23 1;
#X connect 39 0 5 1;
#X connect 39 0 10 0;
#X connect 40 0 27 1;
#X connect 40 0 35 0;
#X restore 356 599 pd echopitch;
#X obj 306 543 hsl 128 15 -1500 1500 0 0 empty empty empty -2 -8 0
10 -262144 -1 -1 6350 1;
#X msg 246 561 0;
#X obj 245 540 loadbang;
#X obj 362 253 fft-pitchshifter;
#X obj 325 899 freeverb~;
#X msg 331 852 roomsize \$1;
#X obj 292 774 hsl 128 15 0 100 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X msg 328 872 dry 0.5;
#X obj 379 871 loadbang;
#X obj 347 800 == 0;
#X msg 347 829 bypass \$1;
#X msg 226 789 0;
#X obj 226 767 loadbang;
#N canvas 61 355 450 300 ringmod 0;
#X obj 89 46 inlet~;
#X obj 124 189 *~;
#X obj 131 248 outlet~;
#X obj 180 159 osc~ 45;
#X obj 157 47 inlet onoff;
#X obj 168 86 route 1;
#X msg 159 123 45;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 1 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 1 3 0;
#X connect 6 0 3 0;
#X restore 338 330 pd ringmod;
#X obj 334 626 +~;
#X obj 286 334 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 431 212 delay 100;
#X obj 576 21 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 461 102 - 100;
#X obj 253 315 loadbang;
#X msg 253 334 0;
#X text 312 310 robot effect (0 \, 1);
#N canvas 209 376 450 300 phone 0;
#X obj 101 30 inlet~;
#X obj 104 207 outlet~;
#X obj 198 32 inlet onoff;
#X obj 118 105 *~;
#X obj 79 104 *~;
#X obj 117 56 == 0;
#X obj 165 69 != 0;
#X obj 120 144 bp~ 2000 10;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 7 0;
#X connect 4 0 1 0;
#X connect 5 0 4 1;
#X connect 6 0 3 1;
#X connect 7 0 1 0;
#X restore 309 947 pd phone;
#X obj 237 932 loadbang;
#X msg 237 951 0;
#X text 306 928 telephone sound effect (0 \, 1);
#X obj 266 952 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#N canvas 209 376 450 300 phone 0;
#X obj 101 30 inlet~;
#X obj 104 207 outlet~;
#X obj 198 32 inlet onoff;
#X obj 118 105 *~;
#X obj 79 104 *~;
#X obj 117 56 == 0;
#X obj 165 69 != 0;
#X obj 120 144 bp~ 2000 10;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 7 0;
#X connect 4 0 1 0;
#X connect 5 0 4 1;
#X connect 6 0 3 1;
#X connect 7 0 1 0;
#X restore 394 948 pd phone;
#X obj 310 42 hsl 128 15 0 500 0 0 empty empty input_gain_control_(0..500_100_default)
-2 -8 0 10 -262144 -1 -1 6350 1;
#X obj 250 40 loadbang;
#X obj 331 103 *~;
#X obj 491 1017 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 296 1008 hsl 128 15 0 200 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 1587 1;
#X obj 236 1006 loadbang;
#X obj 317 1061 *~;
#X obj 350 1061 *~;
#X obj 10 1108 print unexpected OSC message;
#X floatatom 655 1291 0 0 0 0 - - -;
#X text 430 1174 Output env.;
#X text 532 1213 Input env.;
#X obj 420 1270 loadbang;
#X obj 781 1451 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 557 1197 +;
#X obj 422 1344 prepend send;
#X text 302 155 pitch shift (-1500..1500 \, 0 default) use a value
close to 0 to mitigate howling;
#X msg 431 231 1024;
#N canvas 255 168 899 541 distorsion 0;
#X obj 52 40 inlet~;
#X obj 339 42 inlet;
#X obj 419 138 switch~;
#X obj 419 115 != 0;
#X obj 96 76 delwrite~ \$0-distorsion1 200;
#X obj 97 298 *~ 0.5;
#X obj 78 401 outlet~;
#X obj 125 267 vd~ \$0-distorsion1;
#X obj 126 173 rand~;
#X obj 126 194 +~ 1;
#X obj 125 217 /~ 2;
#X obj 125 240 *~ 30;
#X obj 343 591 == 0;
#X obj 346 619 *~;
#X obj 354 646 +~;
#X obj 332 85 clip 0 1;
#X obj 235 118 * 47;
#X obj 234 138 + 3;
#X text 153 135 freq (3..50);
#X text 165 238 delay variation range (ms);
#X obj 198 191 * 90;
#X obj 198 213 + 10;
#X text 151 317 unprocessed sound (0.5 .. 0.1);
#X obj 173 333 * -0.4;
#X obj 173 359 + 0.5;
#X obj 52 352 *~;
#X connect 0 0 4 0;
#X connect 0 0 25 0;
#X connect 1 0 15 0;
#X connect 3 0 2 0;
#X connect 5 0 6 0;
#X connect 5 0 4 0;
#X connect 7 0 5 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 7 0;
#X connect 12 0 13 1;
#X connect 13 0 14 0;
#X connect 15 0 3 0;
#X connect 15 0 16 0;
#X connect 15 0 20 0;
#X connect 15 0 23 0;
#X connect 16 0 17 0;
#X connect 17 0 8 0;
#X connect 20 0 21 0;
#X connect 21 0 11 1;
#X connect 23 0 24 0;
#X connect 24 0 25 1;
#X connect 25 0 6 0;
#X restore 364 430 pd distorsion;
#X obj 312 381 hsl 128 15 0 100 0 0 empty empty distorsion_0..100 -2
-8 0 10 -262144 -1 -1 0 1;
#X msg 252 399 0;
#X obj 251 378 loadbang;
#X obj 324 410 == 0;
#X obj 327 438 *~;
#X obj 335 465 +~;
#X obj 117 176 route /pitchShift;
#X obj 108 320 route /robot;
#X obj 106 374 route /distorsion;
#X obj 37 472 route /echoDelay /echoPitchShift;
#X obj 112 660 route /chorus;
#X obj 86 767 route /reverb;
#X msg -150 242;
#X obj 86 933 route /phone;
#X obj 339 1160 fiddle~ 1470 1 20;
#X obj 452 1059 - 100;
#X text 270 1375 message format: inputEnv \, outputEnv \, pitch \,
atack;
#X text 388 1175 Pitch;
#X text 344 1175 Attack;
#X obj 422 1321 pack s f f f f;
#X msg 420 1293 /pvoice 0 0 0 0;
#X msg 342 1247 1;
#X obj 380 1201 t b b f;
#X msg 372 1247 0;
#X obj 125 101 route /micInput;
#X obj -13 12 dumpOSC 50001;
#X obj 306 65 / 100;
#X obj 365 101 env~ 1470 1470;
#X obj 86 1006 route /output;
#X text 281 756 reverb (0..100 \, 0 default);
#X obj 296 810 / 100;
#X obj 386 691 * 10;
#X obj 389 573 * 10;
#X text 290 523 echo pitch shift (-1500..1500 \, 0 default);
#X text 292 991 output gain control (0..200 \, 25 default);
#X msg 236 1024 25;
#X obj 302 1030 / 100;
#X obj 378 401 / 100;
#X msg 251 59 100;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 5 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 2 0;
#X connect 9 1 5 0;
#X connect 9 2 8 0;
#X connect 9 3 109 0;
#X connect 11 0 10 0;
#X connect 12 0 16 0;
#X connect 12 1 16 1;
#X connect 13 0 11 0;
#X connect 14 0 10 0;
#X connect 16 0 68 0;
#X connect 16 0 112 0;
#X connect 17 0 20 0;
#X connect 17 0 21 0;
#X connect 17 0 41 1;
#X connect 18 0 54 0;
#X connect 19 0 17 0;
#X connect 20 0 22 1;
#X connect 21 0 23 1;
#X connect 22 0 41 0;
#X connect 23 0 24 0;
#X connect 24 0 51 0;
#X connect 25 0 42 0;
#X connect 25 1 42 1;
#X connect 26 0 30 0;
#X connect 26 0 116 0;
#X connect 27 0 19 0;
#X connect 28 0 26 0;
#X connect 29 0 28 0;
#X connect 30 0 31 1;
#X connect 31 0 42 0;
#X connect 31 0 42 1;
#X connect 32 0 35 0;
#X connect 32 0 117 0;
#X connect 33 0 32 0;
#X connect 34 0 33 0;
#X connect 35 0 36 1;
#X connect 36 0 52 0;
#X connect 37 0 52 1;
#X connect 38 0 37 2;
#X connect 39 0 38 0;
#X connect 40 0 39 0;
#X connect 41 0 24 1;
#X connect 42 0 60 0;
#X connect 42 1 65 0;
#X connect 43 0 42 0;
#X connect 44 0 47 0;
#X connect 44 0 115 0;
#X connect 45 0 42 0;
#X connect 46 0 45 0;
#X connect 47 0 48 0;
#X connect 48 0 42 0;
#X connect 49 0 44 0;
#X connect 50 0 49 0;
#X connect 51 0 84 0;
#X connect 51 0 89 0;
#X connect 52 0 31 0;
#X connect 52 0 25 0;
#X connect 53 0 51 1;
#X connect 54 0 83 0;
#X connect 56 0 55 0;
#X connect 57 0 58 0;
#X connect 58 0 53 0;
#X connect 60 0 72 0;
#X connect 61 0 62 0;
#X connect 62 0 64 0;
#X connect 64 0 60 1;
#X connect 64 0 65 1;
#X connect 65 0 73 0;
#X connect 66 0 111 0;
#X connect 67 0 123 0;
#X connect 68 0 23 0;
#X connect 68 0 22 0;
#X connect 70 0 121 0;
#X connect 71 0 120 0;
#X connect 72 0 15 0;
#X connect 72 0 99 0;
#X connect 73 0 15 1;
#X connect 73 0 99 0;
#X connect 75 0 14 0;
#X connect 78 0 105 0;
#X connect 80 0 104 1;
#X connect 81 0 10 0;
#X connect 83 0 41 2;
#X connect 84 0 90 1;
#X connect 85 0 88 0;
#X connect 85 0 122 0;
#X connect 86 0 85 0;
#X connect 87 0 86 0;
#X connect 88 0 89 1;
#X connect 89 0 90 0;
#X connect 90 0 36 0;
#X connect 90 0 37 0;
#X connect 91 0 17 0;
#X connect 91 1 92 0;
#X connect 92 0 53 0;
#X connect 92 1 93 0;
#X connect 93 0 85 0;
#X connect 93 1 94 0;
#X connect 94 0 32 0;
#X connect 94 1 38 0;
#X connect 94 2 95 0;
#X connect 95 0 26 0;
#X connect 95 1 96 0;
#X connect 96 0 44 0;
#X connect 96 1 98 0;
#X connect 98 0 64 0;
#X connect 98 1 113 0;
#X connect 99 1 106 0;
#X connect 99 2 107 0;
#X connect 99 3 100 0;
#X connect 99 3 104 2;
#X connect 100 0 69 0;
#X connect 104 0 81 0;
#X connect 105 0 104 0;
#X connect 106 0 104 4;
#X connect 107 0 108 0;
#X connect 107 1 104 0;
#X connect 107 2 104 3;
#X connect 108 0 104 4;
#X connect 109 0 66 0;
#X connect 109 1 91 0;
#X connect 110 0 9 0;
#X connect 111 0 68 1;
#X connect 112 0 56 0;
#X connect 112 0 80 0;
#X connect 113 0 70 0;
#X connect 113 1 74 0;
#X connect 115 0 43 0;
#X connect 116 0 25 1;
#X connect 117 0 37 1;
#X connect 120 0 70 0;
#X connect 121 0 72 1;
#X connect 121 0 73 1;
#X connect 122 0 84 1;
#X connect 123 0 66 0;