improved version of my 1st one (got rid of the lame random), another
feedback-based, and a fm-tuningfork with echo.
bis denn!
martin
#N canvas 586 335 387 350 10;
#X obj 160 252 dac~;
#N canvas 826 407 450 300 stuff 1;
#X obj 48 227 cos~;
#X obj 90 133 *~;
#X obj 52 53 phasor~ 1;
#X obj 131 23 +~ 1;
#X obj 4 138 *~ 0.36;
#X obj 90 159 vd~ \$0delay;
#X obj 48 93 delwrite~ \$0delay 100;
#X obj 227 156 threshold~ 0.1 100 0 100;
#X obj 92 267 outlet~;
#X obj 166 269 outlet~;
#X obj 361 3 block~ 1;
#X obj 283 68 snapshot~;
#X obj 294 133 clip 0 69;
#X obj 286 89 abs;
#X obj 290 111 * 69;
#X connect 0 0 4 0;
#X connect 0 0 7 0;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 2 0 6 0;
#X connect 3 0 1 1;
#X connect 3 0 2 0;
#X connect 4 0 6 0;
#X connect 4 0 8 0;
#X connect 5 0 0 0;
#X connect 5 0 4 0;
#X connect 5 0 9 0;
#X connect 5 0 11 0;
#X connect 7 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 3 0;
#X connect 13 0 14 0;
#X connect 14 0 12 0;
#X restore 157 183 pd stuff;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#N canvas 174 392 450 300 10;
#X obj 54 230 dac~;
#N canvas 299 491 450 300 stuff 1;
#X obj 55 148 samphold~;
#X obj 110 187 *~;
#X obj 123 253 vd~ \$0delay;
#X obj 288 79 block~ 1;
#X obj 124 280 outlet~;
#X obj 149 150 osc~;
#X obj 54 40 phasor~ 1.11803;
#X obj 162 48 phasor~ 1.41421;
#X obj 149 130 +~ 220;
#X obj 149 108 *~ 440;
#X obj 87 219 *~ 99;
#X obj 202 221 delwrite~ \$0delay 100;
#X obj 191 190 *~ 0.99;
#X connect 0 0 1 0;
#X connect 0 0 10 0;
#X connect 1 0 11 0;
#X connect 2 0 4 0;
#X connect 2 0 12 0;
#X connect 5 0 1 1;
#X connect 6 0 0 0;
#X connect 6 0 9 0;
#X connect 6 0 0 1;
#X connect 7 0 0 1;
#X connect 7 0 9 0;
#X connect 8 0 5 0;
#X connect 9 0 8 0;
#X connect 10 0 2 0;
#X connect 12 0 11 0;
#X restore 54 180 pd stuff;
#X connect 1 0 0 0;
#X connect 1 0 0 1;
#N canvas 546 306 419 359 10;
#X obj 115 309 dac~;
#X obj 127 199 osc~;
#X obj 129 176 *~;
#X obj 111 20 phasor~ -1;
#X obj 208 85 samphold~;
#X obj 158 148 *~;
#X obj 196 252 delread~ \$0delay 750;
#X obj 80 88 *~;
#X obj 218 172 *~ 0.95;
#X obj 138 228 *~ 0.4;
#X obj 182 123 *~ 500;
#X obj 345 38 adc~;
#X obj 123 114 osc~ 440;
#X obj 245 222 delwrite~ \$0delay 1000;
#X connect 1 0 0 0;
#X connect 1 0 9 0;
#X connect 2 0 1 0;
#X connect 3 0 4 1;
#X connect 3 0 7 1;
#X connect 3 0 7 0;
#X connect 4 0 10 0;
#X connect 5 0 2 1;
#X connect 6 0 0 0;
#X connect 6 0 4 0;
#X connect 6 0 8 0;
#X connect 7 0 2 0;
#X connect 8 0 0 1;
#X connect 8 0 13 0;
#X connect 9 0 0 1;
#X connect 9 0 13 0;
#X connect 10 0 5 1;
#X connect 11 0 4 1;
#X connect 11 0 13 0;
#X connect 11 1 4 1;
#X connect 11 1 13 0;
#X connect 12 0 5 0;
_______________________________________________
Pd-list@iem.at mailing list
UNSUBSCRIBE and account-management ->
http://lists.puredata.info/listinfo/pd-list
