Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 2fa0356568
Fetching contributors…

Cannot retrieve contributors at this time

138 lines (137 sloc) 3.318 kb
#N canvas 0 25 1272 692 10;
#X obj 18 136 inlet~;
#X obj 84 129 inlet~;
#X obj 477 83 inlet params;
#X obj 477 129 print PARAM_NOTFOUND;
#X obj 477 105 tof/param route;
#X obj 473 228 b;
#X obj 474 257 tof/param gui;
#X obj 43 423 outlet~;
#X obj 144 422 outlet~;
#X obj 201 310 tof/param /wet 0 /g slider 0 1;
#X obj 66 386 tof/crossfade~ 2;
#X msg 206 336 \$1 5;
#X obj 206 360 line~;
#N canvas 0 25 1272 692 ugurphase 0;
#X obj 93 426 outlet~;
#X obj 403 113 line~;
#X obj 96 169 -~ 0.25;
#X obj 97 194 cos~;
#X obj 225 92 line~;
#X obj 96 146 +~;
#X obj 122 117 expr~ $v2*exp(-$v3*pow($v1-.5 \, 2));
#X obj 399 66 exp;
#X obj 399 18 * 5;
#X obj 400 41 + 3;
#X msg 402 88 \$1 5;
#X msg 226 66 \$1 5;
#X obj 226 45 * 4;
#X text 362 157 guassian phase distortion algorithm;
#X text 372 176 by ugur guney;
#X obj 83 87 expr~ pow($v1 \, $v2);
#X obj 183 6 - 1;
#X obj 184 28 * -1;
#X obj 62 -12 inlet~;
#X obj 65 41 *~ 0.5;
#X obj 66 62 +~ 1;
#X obj 64 19 tanh~;
#X obj 181 -15 inlet squeeze;
#X obj 396 -8 inlet width;
#X obj 226 13 inlet height;
#X connect 1 0 6 2;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 6 1;
#X connect 5 0 2 0;
#X connect 6 0 5 1;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 9 0 7 0;
#X connect 10 0 1 0;
#X connect 11 0 4 0;
#X connect 12 0 11 0;
#X connect 15 0 5 0;
#X connect 15 0 6 0;
#X connect 16 0 17 0;
#X connect 17 0 15 1;
#X connect 18 0 21 0;
#X connect 19 0 20 0;
#X connect 20 0 15 0;
#X connect 21 0 19 0;
#X connect 22 0 16 0;
#X connect 23 0 8 0;
#X connect 24 0 12 0;
#X restore 119 239 pd ugurphase;
#N canvas 0 25 1272 692 ugurphase 0;
#X obj 93 426 outlet~;
#X obj 403 113 line~;
#X obj 96 169 -~ 0.25;
#X obj 97 194 cos~;
#X obj 225 92 line~;
#X obj 96 146 +~;
#X obj 122 117 expr~ $v2*exp(-$v3*pow($v1-.5 \, 2));
#X obj 399 66 exp;
#X obj 399 18 * 5;
#X obj 400 41 + 3;
#X msg 402 88 \$1 5;
#X msg 226 66 \$1 5;
#X obj 226 45 * 4;
#X text 362 157 guassian phase distortion algorithm;
#X text 372 176 by ugur guney;
#X obj 83 87 expr~ pow($v1 \, $v2);
#X obj 183 6 - 1;
#X obj 184 28 * -1;
#X obj 62 -12 inlet~;
#X obj 65 41 *~ 0.5;
#X obj 66 62 +~ 1;
#X obj 64 19 tanh~;
#X obj 181 -15 inlet squeeze;
#X obj 396 -8 inlet width;
#X obj 226 13 inlet height;
#X connect 1 0 6 2;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 6 1;
#X connect 5 0 2 0;
#X connect 6 0 5 1;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 9 0 7 0;
#X connect 10 0 1 0;
#X connect 11 0 4 0;
#X connect 12 0 11 0;
#X connect 15 0 5 0;
#X connect 15 0 6 0;
#X connect 16 0 17 0;
#X connect 17 0 15 1;
#X connect 18 0 21 0;
#X connect 19 0 20 0;
#X connect 20 0 15 0;
#X connect 21 0 19 0;
#X connect 22 0 16 0;
#X connect 23 0 8 0;
#X connect 24 0 12 0;
#X restore 209 241 pd ugurphase;
#X obj 170 117 tof/param /width 0 /g slider 0 1;
#X obj 198 141 tof/param /height 0 /g slider 0 1;
#X obj 227 164 tof/param /squeeze 0 /g slider 0 1;
#X connect 0 0 10 0;
#X connect 0 0 13 0;
#X connect 1 0 10 1;
#X connect 1 0 14 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 9 0 11 0;
#X connect 10 0 7 0;
#X connect 10 1 8 0;
#X connect 11 0 12 0;
#X connect 12 0 10 4;
#X connect 13 0 10 2;
#X connect 14 0 10 3;
#X connect 15 0 13 1;
#X connect 15 0 14 1;
#X connect 16 0 13 2;
#X connect 16 0 14 2;
#X connect 17 0 13 3;
#X connect 17 0 14 3;
Jump to Line
Something went wrong with that request. Please try again.