Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
90 lines (89 sloc) 2.42 KB
#N canvas 188 156 864 443 10;
#X text 150 46 apdist: all pass distortion;
#X obj 432 96 inlet~;
#N canvas 898 167 528 427 dsp 0;
#X obj 395 67 inlet;
#X obj 395 105 switch~;
#X obj 441 54 loadbang;
#X msg 441 76 1;
#X obj 45 303 rpole~;
#X obj 45 278 rzero_rev~;
#X obj 45 33 inlet~;
#X obj 45 328 outlet~;
#X obj 111 95 lop~ 500;
#X obj 112 236 clip~ -0.9999 0.9999;
#X obj 156 36 inlet;
#X obj 227 35 inlet;
#X obj 227 134 pack 0 10;
#X obj 227 156 line~;
#X obj 111 208 *~;
#X text 159 15 lop;
#X text 227 15 drive;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 6 0 8 0;
#X connect 8 0 14 0;
#X connect 9 0 4 1;
#X connect 9 0 5 1;
#X connect 10 0 8 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 14 1;
#X connect 14 0 9 0;
#X restore 460 170 pd dsp;
#X obj 529 168 r \$0-mix;
#X obj 431 279 outlet~;
#X obj 554 237 mix.switchoglitch 12;
#X obj 431 206 mix.xfade.curve~ 1 -1;
#X obj 500 98 r \$0-lop;
#X obj 530 125 r \$0-drive;
#X obj 100 100 cnv 15 156 15 empty empty Apdisto 5 8 0 8 -1 -162280
0;
#X obj 100 117 gui.slider lop 15000 20;
#X obj 100 134 gui.slider drive 500 0;
#X obj 100 151 gui.slider mix 1 -1;
#N canvas 258 313 627 317 original-LICENSE-BSD 0;
#X text 121 56 This software is copyrighted by Miller Puckette \, Reality
Jockey Ltd. and others. The terms (the "Standard Improved BSD License")
apply to all files associated with the software unless explicitly disclaimed
in individual files.;
#X text 123 148 See the file LICENSE.txt for the full license text.
;
#X restore 608 344 pd original-LICENSE-BSD;
#X obj 100 241 s \$0-lop;
#X obj 100 262 s \$0-drive;
#X obj 100 282 s \$0-mix;
#X obj -6 29 r \$1/adist.lop;
#X obj -6 49 r \$1/adist.drv;
#X obj -6 69 r \$1/adist.mix;
#X obj 263 196 xsssad \$1/adist.lop;
#X obj 263 216 xsssad \$1/adist.drv;
#X obj 263 236 xsssad \$1/adist.mix;
#X text 606 291 A GOP augmentation of the all pass \; distortion included
in Rj library.;
#X connect 1 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 6 1;
#X connect 3 0 6 2;
#X connect 5 0 2 3;
#X connect 6 0 4 0;
#X connect 6 2 5 0;
#X connect 7 0 2 1;
#X connect 8 0 2 2;
#X connect 10 0 14 0;
#X connect 10 1 20 1;
#X connect 11 0 15 0;
#X connect 11 1 21 1;
#X connect 12 0 16 0;
#X connect 12 1 22 1;
#X connect 17 0 10 0;
#X connect 18 0 11 0;
#X connect 19 0 12 0;
#X connect 20 0 10 0;
#X connect 21 0 11 0;
#X connect 22 0 12 0;
#X coords 0 -1 1 1 157 67 2 100 100;
Something went wrong with that request. Please try again.