[linux-audio-user] pd patch needed for demo

Frank Barknecht fbar at footils.org
Mon Sep 8 18:46:00 EDT 2003


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__
-------------- next part --------------
#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;
-------------- next part --------------
#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;
-------------- next part --------------
#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;


More information about the Linux-audio-user mailing list