syn-ugurphase.pd

#N canvas 243 22 967 351 10;
#X obj 17 114 outlet~;
#X obj 602 207 loadbang;
#X obj 126 131 hsl 60 13 0 1 0 0 \$0-a \$0-ra height -2 -7 0 10 -260443
-1 -355 1475 1;
#X obj 126 158 hsl 60 13 0 1 0 0 \$0-c \$0-rc squeeze -2 -7 0 10 -260443
-1 -355 0 1;
#X obj 213 131 hsl 60 13 0 1 0 0 \$0-b \$0-rb width -2 -7 0 10 -260443
-1 -355 1475 1;
#X obj 213 158 hsl 60 13 0 1 0 0 \$0-d \$0-rd gain -2 -7 0 10 -260443
-1 -355 2891 1;
#X obj 106 131 cnv 12 15 13 empty empty 0 1 6 0 12 -33289 -262144 0
;
#X obj 106 158 cnv 12 15 13 empty empty 2 1 6 0 12 -33289 -262144 0
;
#X obj 193 131 cnv 12 15 13 empty empty 1 1 6 0 12 -33289 -262144 0
;
#X obj 193 158 cnv 12 15 13 empty empty 3 1 6 0 12 -33289 -262144 0
;
#N canvas 0 22 778 610 rgb 0;
#X obj 296 207 * 256;
#X obj 344 180 * 256;
#X obj 346 201 * 256;
#X obj 312 270 +;
#X obj 298 228 t b f;
#X obj 312 293 +;
#X obj 346 223 t b f;
#X obj 252 186 int;
#X msg 263 68 0;
#X obj 252 163 * -1;
#X obj 296 162 * -1;
#X obj 343 158 * -1;
#X obj 103 123 vsl 10 40 1 255 0 0 ertteetyeyterttretretrrtrtrtrtrt
hhghghghghghghgggggh empty 0 -8 0 10 -4160 -262144 -1 1600 0;
#X obj 115 123 vsl 10 40 1 255 0 0 ertteetyeyterttretretrrtrtrtrtrt
hhghghghghghghgggggh empty 0 -8 0 10 -4034 -262144 -1 2300 0;
#X obj 127 123 vsl 10 40 1 255 0 0 ertteetyeyterttretretrrtrtrtrtrt
hhghghghghghghgggggh empty 0 -8 0 10 -258113 -262144 -1 3900 0;
#X obj 252 144 int;
#X obj 293 142 int;
#X obj 342 138 int;
#N canvas 0 22 478 328 list-enumerate 0;
#X obj 107 63 t a b;
#N canvas 473 338 454 304 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 186 155 pd count;
#X obj 107 113 t a b;
#X obj 107 33 inlet;
#X obj 107 181 list prepend;
#X obj 126 264 outlet;
#X obj 184 264 outlet;
#N canvas 0 22 537 411 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 110 88 pd drip;
#X obj 68 155 list prepend color;
#X msg 69 135 \$1 -1 28;
#X connect 0 0 7 0;
#X connect 0 1 1 1;
#X connect 1 0 4 1;
#X connect 2 0 9 0;
#X connect 2 1 1 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 7 0 2 0;
#X connect 7 1 6 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X restore 294 389 pd list-enumerate;
#X obj 299 419 s \$0-controls;
#X msg 306 356 \$1 \$1 \$1 \$1 \$1 \$1 \$1 \$1 \$1 \$1 \$1 \$1 \$1
\$1 \$1 \$1;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 4 1 3 1;
#X connect 5 0 20 0;
#X connect 6 0 3 0;
#X connect 6 1 5 1;
#X connect 7 0 3 0;
#X connect 8 0 12 0;
#X connect 8 0 13 0;
#X connect 8 0 14 0;
#X connect 9 0 7 0;
#X connect 10 0 0 0;
#X connect 11 0 1 0;
#X connect 12 0 15 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 11 0;
#X connect 18 0 19 0;
#X connect 20 0 18 0;
#X coords 0 -1 1 1 40 70 1 100 100;
#X restore 41 222 pd rgb;
#X obj 658 6 inlet modulation-add;
#X obj 786 6 inlet modulation-multiply;
#X obj 480 8 r \$0-values;
#X msg 286 158 76;
#X msg 288 129 50;
#X obj 659 26 list prepend add;
#X obj 787 27 list prepend mul;
#X text 110 29 outlet audio~;
#X obj 369 13 inlet controls;
#X obj 368 47 s \$0-controls;
#N canvas 47 74 1068 587 modulate.oOo..oOo..oOo.. 0;
#X obj 101 271 +;
#X obj 101 250 t b f;
#X obj 82 82 route 0 1 2 3 4 5 6 7;
#X obj 244 216 route 0 1 2 3 4 5 6 7;
#X obj 138 271 +;
#X obj 138 250 t b f;
#X obj 175 271 +;
#X obj 175 250 t b f;
#X obj 212 271 +;
#X obj 212 250 t b f;
#X obj 248 271 +;
#X obj 248 250 t b f;
#X obj 286 271 +;
#X obj 286 250 t b f;
#X obj 323 271 +;
#X obj 323 250 t b f;
#X obj 360 271 +;
#X obj 360 250 t b f;
#X obj 61 8 inlet;
#X obj 99 490 outlet;
#X obj 155 486 outlet;
#X obj 208 489 outlet;
#X obj 264 489 outlet;
#X obj 318 486 outlet;
#X obj 370 486 outlet;
#X obj 425 485 outlet;
#X obj 492 484 outlet;
#X obj 78 409 clip 0 1;
#X obj 132 411 clip 0 1;
#X obj 186 412 clip 0 1;
#X obj 240 414 clip 0 1;
#X obj 294 416 clip 0 1;
#X obj 348 418 clip 0 1;
#X obj 402 419 clip 0 1;
#X obj 456 421 clip 0 1;
#X obj 418 177 route add mul;
#X obj 117 332 t b f;
#X obj 156 335 t b f;
#X obj 193 335 t b f;
#X obj 230 335 t b f;
#X obj 266 335 t b f;
#X obj 304 335 t b f;
#X obj 341 335 t b f;
#X obj 378 335 t b f;
#X obj 118 356 * 1;
#X obj 156 356 * 1;
#X obj 193 356 * 1;
#X obj 231 355 * 1;
#X obj 266 356 * 1;
#X obj 304 356 * 1;
#X obj 341 356 * 1;
#X obj 378 356 * 1;
#X obj 397 275 route 0 1 2 3 4 5 6 7;
#X obj 550 262 +;
#X obj 550 241 t b f;
#X obj 587 262 +;
#X obj 587 241 t b f;
#X obj 624 262 +;
#X obj 624 241 t b f;
#X obj 661 262 +;
#X obj 661 241 t b f;
#X obj 697 262 +;
#X obj 697 241 t b f;
#X obj 735 262 +;
#X obj 735 241 t b f;
#X obj 772 262 +;
#X obj 772 241 t b f;
#X obj 809 262 +;
#X obj 809 241 t b f;
#X obj 548 481 outlet;
#X obj 604 477 outlet;
#X obj 657 480 outlet;
#X obj 713 480 outlet;
#X obj 767 477 outlet;
#X obj 819 477 outlet;
#X obj 874 476 outlet;
#X obj 941 475 outlet;
#X obj 527 400 clip 0 1;
#X obj 581 402 clip 0 1;
#X obj 635 403 clip 0 1;
#X obj 689 405 clip 0 1;
#X obj 743 407 clip 0 1;
#X obj 797 409 clip 0 1;
#X obj 851 410 clip 0 1;
#X obj 905 412 clip 0 1;
#X obj 867 168 route add mul;
#X obj 566 323 t b f;
#X obj 605 326 t b f;
#X obj 642 326 t b f;
#X obj 679 326 t b f;
#X obj 715 326 t b f;
#X obj 753 326 t b f;
#X obj 790 326 t b f;
#X obj 827 326 t b f;
#X obj 567 347 * 1;
#X obj 605 347 * 1;
#X obj 642 347 * 1;
#X obj 680 346 * 1;
#X obj 715 347 * 1;
#X obj 753 347 * 1;
#X obj 790 347 * 1;
#X obj 827 347 * 1;
#X obj 693 206 route 8 9 10 11 12 13 14 5;
#X obj 846 266 route 8 9 10 11 12 13 14 15;
#X msg 79 110 \$1 20;
#X msg 92 130 \$1 20;
#X msg 120 111 \$1 20;
#X msg 133 131 \$1 20;
#X msg 161 110 \$1 20;
#X msg 174 130 \$1 20;
#X msg 202 111 \$1 20;
#X msg 215 131 \$1 20;
#X obj 92 171 line 0 1;
#X obj 109 194 line 0 1;
#X obj 149 166 line 0 1;
#X obj 166 189 line 0 1;
#X obj 207 163 line 0 1;
#X obj 224 186 line 0 1;
#X obj 264 158 line 0 1;
#X obj 281 181 line 0 1;
#X msg 501 51 \$1 20;
#X msg 514 71 \$1 20;
#X msg 542 52 \$1 20;
#X msg 555 72 \$1 20;
#X msg 583 51 \$1 20;
#X msg 596 71 \$1 20;
#X msg 624 52 \$1 20;
#X msg 637 72 \$1 20;
#X obj 512 111 line 0 1;
#X obj 571 107 line 0 1;
#X obj 588 130 line 0 1;
#X obj 629 104 line 0 1;
#X obj 646 127 line 0 1;
#X obj 686 99 line 0 1;
#X obj 703 122 line 0 1;
#X obj 504 22 route 8 9 10 11 12 13 14 15;
#X obj 530 132 line 0 1;
#X obj 845 94 list trim;
#X obj 849 72 inlet;
#X connect 0 0 44 0;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#X connect 2 0 104 0;
#X connect 2 1 105 0;
#X connect 2 2 106 0;
#X connect 2 3 107 0;
#X connect 2 4 108 0;
#X connect 2 5 109 0;
#X connect 2 6 110 0;
#X connect 2 7 111 0;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 3 2 6 0;
#X connect 3 3 8 0;
#X connect 3 4 10 0;
#X connect 3 5 12 0;
#X connect 3 6 14 0;
#X connect 3 7 16 0;
#X connect 4 0 45 0;
#X connect 5 0 4 0;
#X connect 5 1 4 1;
#X connect 6 0 46 0;
#X connect 7 0 6 0;
#X connect 7 1 6 1;
#X connect 8 0 47 0;
#X connect 9 0 8 0;
#X connect 9 1 8 1;
#X connect 10 0 48 0;
#X connect 11 0 10 0;
#X connect 11 1 10 1;
#X connect 12 0 49 0;
#X connect 13 0 12 0;
#X connect 13 1 12 1;
#X connect 14 0 50 0;
#X connect 15 0 14 0;
#X connect 15 1 14 1;
#X connect 16 0 51 0;
#X connect 17 0 16 0;
#X connect 17 1 16 1;
#X connect 18 0 2 0;
#X connect 18 0 135 0;
#X connect 27 0 19 0;
#X connect 28 0 20 0;
#X connect 29 0 21 0;
#X connect 30 0 22 0;
#X connect 31 0 23 0;
#X connect 32 0 24 0;
#X connect 33 0 25 0;
#X connect 34 0 26 0;
#X connect 35 0 3 0;
#X connect 35 1 52 0;
#X connect 36 0 44 0;
#X connect 36 1 44 1;
#X connect 37 0 45 0;
#X connect 37 1 45 1;
#X connect 38 0 46 0;
#X connect 38 1 46 1;
#X connect 39 0 47 0;
#X connect 39 1 47 1;
#X connect 40 0 48 0;
#X connect 40 1 48 1;
#X connect 41 0 49 0;
#X connect 41 1 49 1;
#X connect 42 0 50 0;
#X connect 42 1 50 1;
#X connect 43 0 51 0;
#X connect 43 1 51 1;
#X connect 44 0 27 0;
#X connect 45 0 28 0;
#X connect 46 0 29 0;
#X connect 47 0 30 0;
#X connect 48 0 31 0;
#X connect 49 0 32 0;
#X connect 50 0 33 0;
#X connect 51 0 34 0;
#X connect 52 0 36 0;
#X connect 52 1 37 0;
#X connect 52 2 38 0;
#X connect 52 3 39 0;
#X connect 52 4 40 0;
#X connect 52 5 41 0;
#X connect 52 6 42 0;
#X connect 52 7 43 0;
#X connect 53 0 94 0;
#X connect 54 0 53 0;
#X connect 54 1 53 1;
#X connect 55 0 95 0;
#X connect 56 0 55 0;
#X connect 56 1 55 1;
#X connect 57 0 96 0;
#X connect 58 0 57 0;
#X connect 58 1 57 1;
#X connect 59 0 97 0;
#X connect 60 0 59 0;
#X connect 60 1 59 1;
#X connect 61 0 98 0;
#X connect 62 0 61 0;
#X connect 62 1 61 1;
#X connect 63 0 99 0;
#X connect 64 0 63 0;
#X connect 64 1 63 1;
#X connect 65 0 100 0;
#X connect 66 0 65 0;
#X connect 66 1 65 1;
#X connect 67 0 101 0;
#X connect 68 0 67 0;
#X connect 68 1 67 1;
#X connect 77 0 69 0;
#X connect 78 0 70 0;
#X connect 79 0 71 0;
#X connect 80 0 72 0;
#X connect 81 0 73 0;
#X connect 82 0 74 0;
#X connect 83 0 75 0;
#X connect 84 0 76 0;
#X connect 85 0 102 0;
#X connect 85 1 103 0;
#X connect 86 0 94 0;
#X connect 86 1 94 1;
#X connect 87 0 95 0;
#X connect 87 1 95 1;
#X connect 88 0 96 0;
#X connect 88 1 96 1;
#X connect 89 0 97 0;
#X connect 89 1 97 1;
#X connect 90 0 98 0;
#X connect 90 1 98 1;
#X connect 91 0 99 0;
#X connect 91 1 99 1;
#X connect 92 0 100 0;
#X connect 92 1 100 1;
#X connect 93 0 101 0;
#X connect 93 1 101 1;
#X connect 94 0 77 0;
#X connect 95 0 78 0;
#X connect 96 0 79 0;
#X connect 97 0 80 0;
#X connect 98 0 81 0;
#X connect 99 0 82 0;
#X connect 100 0 83 0;
#X connect 101 0 84 0;
#X connect 102 0 53 0;
#X connect 102 1 55 0;
#X connect 102 2 57 0;
#X connect 102 3 59 0;
#X connect 102 4 61 0;
#X connect 102 5 63 0;
#X connect 102 6 65 0;
#X connect 102 7 67 0;
#X connect 103 0 86 0;
#X connect 103 1 87 0;
#X connect 103 2 88 0;
#X connect 103 3 89 0;
#X connect 103 4 90 0;
#X connect 103 5 91 0;
#X connect 103 6 92 0;
#X connect 103 7 93 0;
#X connect 104 0 112 0;
#X connect 105 0 113 0;
#X connect 106 0 114 0;
#X connect 107 0 115 0;
#X connect 108 0 116 0;
#X connect 109 0 117 0;
#X connect 110 0 118 0;
#X connect 111 0 119 0;
#X connect 112 0 1 0;
#X connect 113 0 5 0;
#X connect 114 0 7 0;
#X connect 115 0 9 0;
#X connect 116 0 11 0;
#X connect 117 0 13 0;
#X connect 118 0 15 0;
#X connect 119 0 17 0;
#X connect 120 0 128 0;
#X connect 121 0 136 0;
#X connect 122 0 129 0;
#X connect 123 0 130 0;
#X connect 124 0 131 0;
#X connect 125 0 132 0;
#X connect 126 0 133 0;
#X connect 127 0 134 0;
#X connect 128 0 54 0;
#X connect 129 0 58 0;
#X connect 130 0 60 0;
#X connect 131 0 62 0;
#X connect 132 0 64 0;
#X connect 133 0 66 0;
#X connect 134 0 68 0;
#X connect 135 0 120 0;
#X connect 135 1 121 0;
#X connect 135 2 122 0;
#X connect 135 3 123 0;
#X connect 135 4 124 0;
#X connect 135 5 125 0;
#X connect 135 6 126 0;
#X connect 135 7 127 0;
#X connect 136 0 56 0;
#X connect 137 0 35 0;
#X connect 137 0 85 0;
#X connect 138 0 137 0;
#X restore 482 68 pd modulate.oOo..oOo..oOo..;
#X text 104 14 inlets pitch \, control \, add \, multiply;
#X obj 17 29 s \$0-pitch;
#X obj 16 6 inlet;
#N canvas 361 43 833 682 list-functions 0;
#N canvas 0 22 462 312 list-enumerate 0;
#X obj 107 63 t a b;
#N canvas 473 338 454 304 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 186 155 pd count;
#X obj 107 113 t a b;
#X obj 107 33 inlet;
#X obj 107 181 list prepend;
#X obj 107 209 outlet;
#X obj 165 209 outlet;
#N canvas 0 22 537 411 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 110 88 pd drip;
#X obj 76 154 list prepend label;
#X connect 0 0 7 0;
#X connect 0 1 1 1;
#X connect 1 0 4 1;
#X connect 2 0 8 0;
#X connect 2 1 1 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 7 0 2 0;
#X connect 7 1 6 0;
#X connect 8 0 4 0;
#X restore 37 184 pd list-enumerate;
#X obj 37 230 s \$0-controls;
#N canvas 0 22 482 332 list-enumerate 0;
#N canvas 473 338 458 308 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 186 155 pd count;
#X obj 107 113 t a b;
#X obj 107 33 inlet;
#X obj 107 181 list prepend;
#X obj 112 253 outlet;
#N canvas 0 22 541 415 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 110 88 pd drip;
#X obj 107 63 t a b;
#X connect 0 0 3 1;
#X connect 1 0 3 0;
#X connect 1 1 0 0;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 6 1 0 1;
#X restore 149 183 pd list-enumerate;
#X obj 190 231 808_state \$1/controls;
#N canvas 0 22 498 348 list-enumerate 0;
#N canvas 473 338 458 308 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 186 155 pd count;
#X obj 107 113 t a b;
#X obj 107 33 inlet;
#X obj 107 181 list prepend;
#X obj 112 253 outlet;
#N canvas 0 22 541 415 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 110 88 pd drip;
#X obj 194 215 t a;
#X obj 106 209 list prepend;
#X obj 107 63 t a b b;
#X connect 0 0 3 1;
#X connect 1 0 3 0;
#X connect 1 1 0 0;
#X connect 2 0 8 0;
#X connect 3 0 7 0;
#X connect 5 0 1 0;
#X connect 6 0 7 1;
#X connect 7 0 6 0;
#X connect 7 0 4 0;
#X connect 8 0 5 0;
#X connect 8 1 0 1;
#X connect 8 2 7 1;
#X restore 411 149 pd list-enumerate;
#X obj 104 251 r \$0-controls;
#X obj 272 98 r \$0-values;
#N canvas 283 65 551 703 replacelist 0;
#X obj 164 224 list;
#X obj 327 98 inlet;
#X obj 250 98 inlet;
#X text 331 72 orig;
#X text 256 74 pos;
#X text 77 70 list to insert;
#X obj 85 94 inlet;
#X obj 207 281 list split;
#X obj 85 526 list;
#X obj 85 598 outlet;
#X obj 85 317 list prepend;
#X obj 85 120 t a b a b;
#X obj 85 430 list prepend 0;
#X obj 250 125 t f f;
#X obj 207 524 list prepend;
#X obj 85 469 route 0 1;
#X obj 316 347 f;
#X obj 286 282 t a b;
#X obj 316 377 > 0;
#X obj 122 358 r \$0-init;
#X obj 122 377 0;
#X obj 300 524 r \$0-init;
#X obj 176 317 r \$0-init;
#X obj 118 527 r \$0-init;
#X obj 159 131 s \$0-init;
#X text 47 25 list-replace: Replace the list starting at position POS
with a new list \, overwriting the old elements.;
#N canvas 0 22 458 308 length 0;
#X obj 171 164 + 1;
#X obj 92 127 b;
#X obj 126 204 f;
#X obj 158 138 1;
#X obj 142 166 f 1;
#X obj 216 168 0;
#X obj 136 59 t a b b;
#N canvas 0 22 537 411 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 92 104 pd drip;
#X obj 137 36 inlet;
#X obj 125 238 outlet;
#X connect 0 0 4 1;
#X connect 1 0 4 0;
#X connect 2 0 9 0;
#X connect 3 0 4 1;
#X connect 4 0 0 0;
#X connect 4 0 2 1;
#X connect 5 0 2 1;
#X connect 6 0 7 0;
#X connect 6 1 3 0;
#X connect 6 2 5 0;
#X connect 7 0 1 0;
#X connect 7 1 2 0;
#X connect 8 0 6 0;
#X restore 268 216 pd length;
#X obj 162 254 list split;
#X connect 0 0 27 0;
#X connect 1 0 0 1;
#X connect 2 0 13 0;
#X connect 6 0 11 0;
#X connect 7 1 8 1;
#X connect 7 1 14 1;
#X connect 8 0 9 0;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 11 1 0 0;
#X connect 11 2 26 0;
#X connect 11 3 24 0;
#X connect 12 0 15 0;
#X connect 13 0 27 1;
#X connect 13 1 16 1;
#X connect 14 0 9 0;
#X connect 15 0 8 0;
#X connect 15 1 14 0;
#X connect 16 0 18 0;
#X connect 17 0 14 1;
#X connect 17 0 8 1;
#X connect 17 1 16 0;
#X connect 18 0 12 1;
#X connect 19 0 20 0;
#X connect 20 0 12 1;
#X connect 21 0 14 1;
#X connect 22 0 10 1;
#X connect 23 0 8 1;
#X connect 26 0 7 1;
#X connect 27 0 10 1;
#X connect 27 1 7 0;
#X connect 27 2 17 0;
#X restore 289 199 pd replacelist;
#X obj 423 265 t a;
#X obj 272 130 swap;
#X obj 50 109 inlet;
#N canvas 0 22 545 419 drip2 0;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X obj 64 206 list split 2;
#X connect 0 0 1 0;
#X connect 1 0 12 0;
#X connect 2 0 0 1;
#X connect 8 0 11 0;
#X connect 11 0 0 0;
#X connect 11 1 1 1;
#X connect 12 0 7 0;
#X connect 12 1 1 1;
#X connect 12 2 2 0;
#X connect 12 2 10 0;
#X restore 190 285 pd drip2;
#X obj 253 24 inlet;
#X obj 144 355 route 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15;
#X obj 144 381 s \$0-ra;
#X obj 156 401 s \$0-rb;
#X obj 167 422 s \$0-rc;
#X obj 179 442 s \$0-rd;
#X obj 194 381 s \$0-re;
#X obj 206 401 s \$0-rf;
#X obj 217 422 s \$0-rg;
#X obj 229 442 s \$0-rh;
#X obj 250 383 s \$0-ri;
#X obj 262 403 s \$0-rj;
#X obj 273 424 s \$0-rk;
#X obj 285 444 s \$0-rl;
#X obj 299 383 s \$0-rm;
#X obj 312 403 s \$0-rn;
#X obj 323 424 s \$0-ro;
#X obj 335 444 s \$0-rp;
#X obj 35 505 r \$0-a;
#X msg 35 530 0 \$1;
#X obj 78 505 r \$0-b;
#X msg 77 529 1 \$1;
#X obj 121 505 r \$0-c;
#X obj 164 505 r \$0-d;
#X msg 121 530 2 \$1;
#X msg 163 529 3 \$1;
#X obj 208 503 r \$0-e;
#X obj 251 503 r \$0-f;
#X obj 294 503 r \$0-g;
#X obj 337 503 r \$0-h;
#X msg 208 528 4 \$1;
#X msg 250 526 5 \$1;
#X msg 294 527 6 \$1;
#X msg 336 527 7 \$1;
#X obj 383 503 r \$0-i;
#X obj 426 502 r \$0-j;
#X obj 468 503 r \$0-k;
#X obj 512 503 r \$0-l;
#X obj 556 501 r \$0-m;
#X obj 599 501 r \$0-o;
#X obj 642 501 r \$0-p;
#X obj 685 501 r \$0-q;
#X msg 383 528 8 \$1;
#X msg 425 527 9 \$1;
#X msg 469 528 10 \$1;
#X msg 511 527 11 \$1;
#X msg 556 526 12 \$1;
#X msg 598 524 13 \$1;
#X msg 641 525 14 \$1;
#X msg 684 525 15 \$1;
#X obj 683 559 s \$0-values;
#X obj 413 202 t a a;
#X obj 412 182 list;
#X obj 257 47 t a b a;
#X obj 294 150 * 2;
#X obj 295 170 + 1;
#X obj 191 253 t a a;
#X connect 0 0 1 0;
#X connect 2 0 1 0;
#X connect 3 0 68 0;
#X connect 4 0 64 1;
#X connect 5 0 13 0;
#X connect 6 0 9 0;
#X connect 7 0 8 0;
#X connect 7 0 3 1;
#X connect 8 0 7 2;
#X connect 9 0 7 0;
#X connect 9 1 66 0;
#X connect 10 0 0 0;
#X connect 11 0 13 0;
#X connect 12 0 65 0;
#X connect 13 0 14 0;
#X connect 13 1 15 0;
#X connect 13 2 16 0;
#X connect 13 3 17 0;
#X connect 13 4 18 0;
#X connect 13 5 19 0;
#X connect 13 6 20 0;
#X connect 13 7 21 0;
#X connect 13 8 22 0;
#X connect 13 9 23 0;
#X connect 13 10 24 0;
#X connect 13 11 25 0;
#X connect 13 12 26 0;
#X connect 13 13 27 0;
#X connect 13 14 28 0;
#X connect 13 15 29 0;
#X connect 30 0 31 0;
#X connect 31 0 62 0;
#X connect 32 0 33 0;
#X connect 33 0 62 0;
#X connect 34 0 36 0;
#X connect 35 0 37 0;
#X connect 36 0 62 0;
#X connect 37 0 62 0;
#X connect 38 0 42 0;
#X connect 39 0 43 0;
#X connect 40 0 44 0;
#X connect 41 0 45 0;
#X connect 42 0 62 0;
#X connect 43 0 62 0;
#X connect 44 0 62 0;
#X connect 45 0 62 0;
#X connect 46 0 54 0;
#X connect 47 0 55 0;
#X connect 48 0 56 0;
#X connect 49 0 57 0;
#X connect 50 0 58 0;
#X connect 51 0 59 0;
#X connect 52 0 60 0;
#X connect 53 0 61 0;
#X connect 54 0 62 0;
#X connect 55 0 62 0;
#X connect 56 0 62 0;
#X connect 57 0 62 0;
#X connect 58 0 62 0;
#X connect 59 0 62 0;
#X connect 60 0 62 0;
#X connect 61 0 62 0;
#X connect 63 0 7 2;
#X connect 63 1 3 1;
#X connect 64 0 63 0;
#X connect 65 0 2 0;
#X connect 65 1 64 0;
#X connect 65 2 4 0;
#X connect 66 0 67 0;
#X connect 67 0 7 1;
#X connect 68 0 11 0;
#X connect 68 1 7 2;
#X restore 488 309 pd list-functions;
#X obj 605 230 t b b;
#X obj 654 240 s \$0-loadbang;
#N canvas 149 35 644 500 phasedistortion 0;
#X obj 83 416 outlet~;
#X obj 123 342 line~;
#X obj 88 366 *~;
#X obj 393 103 line~;
#X obj 86 159 -~ 0.25;
#X obj 87 184 cos~;
#X obj 215 82 line~;
#X obj 86 136 +~;
#X obj 112 107 expr~ $v2*exp(-$v3*pow($v1-.5 \, 2));
#X obj 389 56 exp;
#X obj 389 8 * 5;
#X obj 390 31 + 3;
#X msg 392 78 \$1 5;
#X msg 216 56 \$1 5;
#X obj 216 3 r \$0-height;
#X obj 386 -18 r \$0-width;
#X obj 216 35 * 4;
#X obj 54 -2 r \$0-pitch;
#X obj 123 294 exp;
#X obj 123 246 *;
#X obj 123 269 +;
#X obj 201 226 log;
#X obj 297 223 log;
#X obj 226 262 t b f;
#X obj 226 284 -;
#X obj 201 169 r \$0-loadbang;
#X obj 202 197 f 0.1;
#X obj 298 198 f 10;
#X msg 124 319 \$1 5;
#X obj 121 219 r \$0-gain;
#X text 352 147 guassian phase distortion algorithm;
#X text 362 166 by ugur guney;
#X obj 73 77 expr~ pow($v1 \, $v2);
#X obj 54 25 phasor~ 100;
#X obj 173 -4 - 1;
#X obj 174 18 * -1;
#X obj 171 -25 r \$0-squeeze;
#X connect 1 0 2 1;
#X connect 2 0 0 0;
#X connect 3 0 8 2;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 6 0 8 1;
#X connect 7 0 4 0;
#X connect 8 0 7 1;
#X connect 9 0 12 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 12 0 3 0;
#X connect 13 0 6 0;
#X connect 14 0 16 0;
#X connect 15 0 10 0;
#X connect 16 0 13 0;
#X connect 17 0 33 0;
#X connect 18 0 28 0;
#X connect 19 0 20 0;
#X connect 20 0 18 0;
#X connect 21 0 20 1;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 24 0;
#X connect 23 1 24 1;
#X connect 24 0 19 1;
#X connect 25 0 26 0;
#X connect 25 0 27 0;
#X connect 26 0 21 0;
#X connect 27 0 22 0;
#X connect 28 0 1 0;
#X connect 29 0 19 0;
#X connect 32 0 7 0;
#X connect 32 0 8 0;
#X connect 33 0 32 0;
#X connect 34 0 35 0;
#X connect 35 0 32 1;
#X connect 36 0 34 0;
#X restore 15 80 pd phasedistortion;
#X text 24 304 guassian phase distortion algorithm;
#X text 34 323 by ugur guney;
#X msg 603 264 0.25 0.25 0 0.49;
#X msg 369 208 height width squeeze gain;
#X obj 465 154 s \$0-height;
#X obj 542 153 s \$0-width;
#X obj 607 153 s \$0-squeeze;
#X obj 689 153 s \$0-gain;
#X connect 1 0 26 0;
#X connect 11 0 16 0;
#X connect 12 0 17 0;
#X connect 13 0 21 0;
#X connect 16 0 21 1;
#X connect 17 0 21 1;
#X connect 19 0 20 0;
#X connect 21 0 33 0;
#X connect 21 1 34 0;
#X connect 21 2 35 0;
#X connect 21 3 36 0;
#X connect 24 0 23 0;
#X connect 26 0 31 0;
#X connect 26 1 27 0;
#X connect 28 0 0 0;
#X connect 31 0 25 1;
#X connect 32 0 25 0;
#X coords 0 -1 1 1 180 76 1 100 100;