Hello there,
I made a little music with Pd (vanilla + expr) yesterday (patch
attached); audio for those not near a Pd is at:
http://claudiusmaximus.goto10.org/feed/media/ClaudiusMaximus%20-%20Nom2%20%28fast%20mix%29.ogg
I'm not 100% happy with the end result, but I almost never am, so I
thought I'd send it along anyway. Maybe you can improve it - I had epic
ideas but not enough motivation to realize my imaginings...
Claude
--
http://claudiusmaximus.goto10.org
#N canvas 0 0 405 421 10;
#X obj 73 275 dac~;
#X obj 27 244 expr~ tanh($v1);
#X obj 126 243 expr~ tanh($v1);
#X obj 42 27 bng 45 250 50 0 empty empty 13 23 0 40 -4034 -262144
-1;
#X obj 26 211 *~ 0.5;
#X obj 125 210 *~ 0.5;
#X obj 55 319 writesf~ 2;
#X msg 168 271 stop;
#N canvas 0 0 524 528 \$0-synth 0;
#X obj 199 447 outlet~;
#X obj 316 448 outlet~;
#X obj 27 111 vline~;
#X obj 131 265 expr~ tanh($v1);
#X obj 31 265 expr~ tanh($v1);
#X obj 198 418 expr~ sin($v1);
#X obj 232 265 expr~ tanh($v1);
#X obj 29 217 vcf~ 80;
#X obj 131 210 vcf~ 60;
#X obj 234 214 vcf~ 40;
#X obj 27 147 *~;
#X obj 149 187 *~ 2;
#X obj 97 110 vline~;
#X obj 98 133 lop~ 25;
#X obj 181 285 expr~ tanh($v1);
#X obj 81 285 expr~ tanh($v1);
#X obj 315 416 expr~ sin($v1);
#X obj 282 285 expr~ tanh($v1);
#X obj 79 216 vcf~ 80;
#X obj 181 212 vcf~ 60;
#X obj 284 216 vcf~ 40;
#X obj 46 324 *~;
#X obj 92 325 *~;
#X obj 274 114 vline~;
#X obj 138 325 *~;
#X obj 190 325 *~;
#X obj 319 114 vline~;
#X obj 239 326 *~;
#X obj 290 326 *~;
#X obj 364 111 vline~;
#X obj 365 136 lop~ 2;
#X obj 319 135 lop~ 4;
#X obj 274 134 lop~ 8;
#X obj 196 395 /~;
#X obj 316 395 /~;
#X obj 411 112 vline~;
#X obj 411 133 lop~ 25;
#X obj 380 165 /~;
#X obj 52 194 *~ 1;
#X obj 253 188 *~ 3;
#X obj 28 23 inlet;
#X obj 27 54 route trig pitch squelch accent1 accent2 accent3;
#X obj 29 238 *~ 400;
#X obj 79 237 *~ 400;
#X obj 283 237 *~ 190;
#X obj 233 235 *~ 210;
#X obj 181 233 *~ 210;
#X obj 131 231 *~ 190;
#X obj 378 331 +~ 0.25;
#X obj 30 442 outlet~;
#X obj 90 442 outlet~;
#X obj 408 165 *~;
#X connect 2 0 10 0;
#X connect 2 0 10 1;
#X connect 3 0 24 0;
#X connect 4 0 21 0;
#X connect 4 0 49 0;
#X connect 5 0 0 0;
#X connect 6 0 27 0;
#X connect 7 0 42 0;
#X connect 8 0 47 0;
#X connect 9 0 45 0;
#X connect 10 0 7 0;
#X connect 10 0 8 0;
#X connect 10 0 9 0;
#X connect 10 0 18 0;
#X connect 10 0 19 0;
#X connect 10 0 20 0;
#X connect 11 0 8 1;
#X connect 11 0 19 1;
#X connect 12 0 13 0;
#X connect 13 0 11 0;
#X connect 13 0 38 0;
#X connect 13 0 39 0;
#X connect 14 0 25 0;
#X connect 15 0 22 0;
#X connect 15 0 50 0;
#X connect 16 0 1 0;
#X connect 17 0 28 0;
#X connect 18 0 43 0;
#X connect 19 0 46 0;
#X connect 20 0 44 0;
#X connect 21 0 33 0;
#X connect 22 0 34 0;
#X connect 23 0 32 0;
#X connect 24 0 33 0;
#X connect 25 0 34 0;
#X connect 26 0 31 0;
#X connect 27 0 33 0;
#X connect 28 0 34 0;
#X connect 29 0 30 0;
#X connect 30 0 27 1;
#X connect 30 0 28 1;
#X connect 30 0 37 0;
#X connect 31 0 24 1;
#X connect 31 0 25 1;
#X connect 31 0 37 0;
#X connect 32 0 21 1;
#X connect 32 0 22 1;
#X connect 32 0 37 0;
#X connect 33 0 5 0;
#X connect 34 0 16 0;
#X connect 35 0 36 0;
#X connect 36 0 51 0;
#X connect 36 0 51 1;
#X connect 37 0 48 0;
#X connect 38 0 7 1;
#X connect 38 0 18 1;
#X connect 39 0 9 1;
#X connect 39 0 20 1;
#X connect 40 0 41 0;
#X connect 41 0 2 0;
#X connect 41 1 12 0;
#X connect 41 2 35 0;
#X connect 41 3 23 0;
#X connect 41 4 26 0;
#X connect 41 5 29 0;
#X connect 42 0 4 0;
#X connect 43 0 15 0;
#X connect 44 0 17 0;
#X connect 45 0 6 0;
#X connect 46 0 14 0;
#X connect 47 0 3 0;
#X connect 48 0 33 1;
#X connect 48 0 34 1;
#X connect 51 0 37 1;
#X restore 65 142 pd \$0-synth;
#N canvas 0 0 529 533 \$0-delay 0;
#X obj 18 399 inlet~;
#X obj 105 399 inlet~;
#X obj 15 473 outlet~;
#X obj 110 474 outlet~;
#X obj 314 286 expr~ tanh($v1);
#X obj 194 286 expr~ tanh($v1);
#X obj 192 159 vd~ \$0-l1;
#X obj 312 159 vd~ \$0-r1;
#X obj 335 97 vline~;
#X obj 316 475 delwrite~ \$0-r1 1;
#X obj 172 476 delwrite~ \$0-l1 1;
#X obj 315 364 expr~ tanh($v1);
#X obj 173 344 expr~ tanh($v1);
#X obj 385 117 vline~;
#X obj 195 315 lop~ 4000;
#X obj 315 315 lop~ 4000;
#X obj 314 226 hip~ 1000;
#X obj 195 224 hip~ 1000;
#X obj 315 407 expr~ rint(64*$v1)/64;
#X obj 171 406 expr~ rint(64*$v1)/64;
#X msg 335 65 0 \, 6 180 \, 0 180 180;
#X msg 385 85 6 \, 0 180 \, 6 180 180;
#X obj 258 95 sig~ 720;
#X obj 194 195 *~ -1.1;
#X obj 314 195 *~ -1.1;
#X obj 334 43 inlet;
#X obj 18 450 *~ 0.25;
#X obj 110 451 *~ 0.25;
#X connect 0 0 10 0;
#X connect 1 0 9 0;
#X connect 4 0 15 0;
#X connect 5 0 14 0;
#X connect 6 0 23 0;
#X connect 7 0 24 0;
#X connect 8 0 7 0;
#X connect 11 0 18 0;
#X connect 12 0 19 0;
#X connect 13 0 6 0;
#X connect 14 0 12 0;
#X connect 15 0 11 0;
#X connect 16 0 4 0;
#X connect 17 0 5 0;
#X connect 18 0 9 0;
#X connect 18 0 27 0;
#X connect 19 0 10 0;
#X connect 19 0 26 0;
#X connect 20 0 8 0;
#X connect 21 0 13 0;
#X connect 22 0 7 0;
#X connect 22 0 6 0;
#X connect 23 0 17 0;
#X
