--+QahgC5+KEYLbs62 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Hallo, Steve Harris hat gesagt: // Steve Harris wrote: > Can anyone recommend a simple pd patch that wont take too much CPU, runs > happiily in jack and takes a pair of streams does something noticable and > outputs a pair of streams? Attached is a simple one. erode.pd is the main patch, should be pretty self-explanatory, but nevertheless: [adc~] is audio-in, [ezdac~] is a wrapper around audio-out and [erosion~] is a simple modulation effect, that sends the signal through a variable lenghth delay line, where the delay time is modulated by either a sine wave or bandpass filtered noise. It is modeled after the Erosion effect in Ableton Live and is quite an "in ya face" effect, good for demoing, IMO. ciao -- Frank Barknecht _ ______footils.org__ --+QahgC5+KEYLbs62 Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="ezdac~.pd" #N canvas 304 280 450 300 10; #X obj 224 205 dac~; #X obj 224 32 inlet~; #X obj 259 60 inlet~; #X obj 318 69 tgl 16 0 \$0-d \$0-d DSP 0 -6 1728 8 -260818 -123526 -33289 0 1; #X msg 318 93 \; pd dsp \$1; #X obj 69 186 hsl 64 16 0 1 0 0 \$0-v \$0-v volume -2 -6 1728 8 -260818 -123526 -1 3100 1; #X obj 269 108 r \$0-v; #X obj 262 206 outlet~; #X obj 166 206 outlet~; #X obj 357 28 r pd; #X obj 357 52 route dsp; #X obj 269 155 line~; #X msg 269 132 \$1 10; #X obj 259 180 *~; #X obj 224 180 *~; #X connect 1 0 14 0; #X connect 2 0 13 0; #X connect 3 0 4 0; #X connect 6 0 12 0; #X connect 9 0 10 0; #X connect 10 0 3 0; #X connect 11 0 13 1; #X connect 11 0 14 1; #X connect 12 0 11 0; #X connect 13 0 0 1; #X connect 13 0 7 0; #X connect 14 0 0 0; #X connect 14 0 8 0; #X coords 0 0 1 1 90 55 1; --+QahgC5+KEYLbs62 Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="erode.pd" #N canvas 511 407 450 300 10; #X obj 111 85 erosion~; #X obj 216 85 erosion~; #X obj 134 220 ezdac~; #X obj 192 34 adc~; #X connect 0 0 2 0; #X connect 1 0 2 1; #X connect 3 0 0 0; #X connect 3 1 1 0; --+QahgC5+KEYLbs62 Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="erosion~.pd" #N canvas 714 350 398 288 10; #X obj 2 0 cnv 15 100 110 empty empty empty 20 12 0 10 -1 -250685 0 ; #X obj 4 3 cnv 15 98 108 empty empty erosion~ 16 12 0 10 -225271 -250685 0; #X obj 272 113 outlet~; #X obj 161 21 inlet~; #X floatatom 76 235 5 0 0 0 Q #0-bla #0-Q; #X obj 72 69 tgl 15 0 \$0-no \$0-no type 0 20 1728 6 -257472 -1 -250685 0 1; #X obj 78 138 hsl 64 8 0 5 0 0 \$0-amnt \$0-amnt amount 40 -6 1728 8 -257472 -250685 -1 1200 1; #X obj 77 195 hsl 64 8 0 127 0 0 \$0-f \$0-f freq -2 -6 1728 8 -257472 -250685 -1 2300 1; #N canvas 0 0 849 539 all 0; #X obj 107 59 inlet~; #X obj 139 390 outlet~; #N canvas 0 0 450 300 write 0; #X obj 95 118 delwrite~ \$0-delay 5000; #X obj 77 80 inlet~; #X obj 82 178 outlet~; #X connect 1 0 0 0; #X connect 1 0 2 0; #X restore 141 236 pd write; #N canvas 0 0 450 300 read 0; #X obj 276 165 vd~ \$0-delay; #X obj 131 103 inlet~; #X obj 125 204 outlet~; #X obj 278 112 inlet~; #X obj 269 200 env~; #X floatatom 273 228 5 0 0 0 - - -; #X connect 0 0 2 0; #X connect 3 0 0 0; #X connect 4 0 5 0; #X restore 140 305 pd read; #X obj 267 148 bp~ 440; #X obj 266 93 noise~; #X obj 346 36 mtof; #X obj 486 80 osc~ 0; #X obj 489 183 *~ 1; #X obj 267 245 *~ 1; #X obj 569 98 select 0 1; #X msg 333 179 0; #X msg 366 179 1; #X msg 538 215 0; #X msg 571 215 1; #X obj 348 9 r \$0-f; #X obj 387 105 r \$0-amnt; #X obj 311 120 r \$0-Q; #X obj 569 69 r \$0-no; #X msg 660 306 \; \$2-show label \$1; #X obj 660 262 pack s \$0; #X msg 703 236 symbol |||-noise; #X msg 660 188 symbol |||-osc; #X obj 479 17 inlet; #X obj 527 17 inlet; #X obj 580 20 inlet; #X obj 480 45 s \$0-f; #X obj 585 48 s \$0-no; #X obj 533 43 s \$0-amnt; #X obj 488 157 +~ 1; #X obj 267 182 +~ 1; #X floatatom 418 190 5 0 0 0 - - -; #X obj 268 208 *~ 0; #X obj 463 238 *~ 1; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 3 0 1 0; #X connect 4 0 30 0; #X connect 5 0 4 0; #X connect 6 0 4 1; #X connect 6 0 7 0; #X connect 7 0 29 0; #X connect 8 0 33 0; #X connect 9 0 3 1; #X connect 10 0 11 0; #X connect 10 0 14 0; #X connect 10 0 22 0; #X connect 10 1 12 0; #X connect 10 1 13 0; #X connect 10 1 21 0; #X connect 11 0 9 1; #X connect 12 0 9 1; #X connect 13 0 33 1; #X connect 14 0 33 1; #X connect 15 0 6 0; #X connect 16 0 8 1; #X connect 16 0 31 0; #X connect 16 0 32 1; #X connect 17 0 4 2; #X connect 18 0 10 0; #X connect 20 0 19 0; #X connect 21 0 20 0; #X connect 22 0 20 0; #X connect 23 0 26 0; #X connect 24 0 28 0; #X connect 25 0 27 0; #X connect 29 0 8 0; #X connect 30 0 32 0; #X connect 32 0 9 0; #X connect 33 0 3 1; #X restore 268 77 pd all; #X obj 142 68 cnv 15 50 16 empty \$0-show |||-osc 4 6 577 8 -257472 -66577 0; #X obj 221 19 inlet; #X obj 218 44 route freq amount type; #X connect 3 0 8 0; #X connect 8 0 2 0; #X connect 10 0 11 0; #X connect 11 0 8 1; #X connect 11 1 8 2; #X connect 11 2 8 3; #X coords 0 0 1 1 100 110 1; --+QahgC5+KEYLbs62--
