[PD] oldschool rave synths

Sat Mar 17 01:15:10 CET 2007

I'm always embarrassed to share my patches, as I'm not much of a
programmer and they tend to be really haphazard.
So far I've mostly used it to get a feel for Csound opcodes, and of
course to have better GUI control.  I have one for grain3 and one for
testing different filter opcodes.

Careful with the filter tester.  For some reason the output of "reson"
is like ten thousand times as high as any of the others.
Like I said, you can now run sound from multiple instances, so
csoundapi~ objects can feed into each other, if you have some reason
to do that...  At any rate, it beats having one csoundapi~ object and
having everything send to the same subpatch to process.

-Chuckk

On 3/16/07, Kyle Klipowicz <kyleklip at gmail.com> wrote:
> Would you please be willing to share some examples of using the CSound
> external with Pd? I have it, but have not really done much with it.
>
> ~Kyle
-------------- next part --------------
#N canvas 27 173 1216 644 12;
#X obj 223 502 dac~;
#X msg 631 240 event e;
#X msg 30 110 control kcps1 \$1;
#X floatatom 170 63 5 0 0 0 - - -;
#X msg 170 110 control kphs1 \$1;
#X msg 30 190 control kgdur1 \$1;
#X obj 416 327 print three;
#X obj 470 355 print four;
#X floatatom 30 142 5 0 0 0 - - -;
#X obj 30 164 / 1000;
#X msg 366 173 reset;
#X msg 154 265 run \$1;
#X obj 154 245 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 30 63 5 0 0 0 - - -;
#X obj 30 85 / 100;
#X msg 86 37 280;
#X msg 100 138 155;
#X obj 632 -48 notein 1;
#X msg 253 59 156;
#X obj 791 -16 moses 0.001;
#X obj 796 101 spigot;
#X msg 825 75 1;
#X msg 859 75 0;
#X obj 632 43 spigot;
#X msg 756 17 1;
#X msg 791 17 0;
#X obj 324 -2 loadbang;
#X obj 231 392 lop~ 400;
#X obj 319 391 lop~ 400;
#X floatatom 160 343 5 0 0 0 - - -;
#X obj 170 85 / 100;
#X obj 632 68 t f f;
#X obj 632 149 pack 0 0 0;
#X obj 707 98 / 1000;
#X obj 707 124 + 1;
#X msg 796 125 control off \$1;
#X msg 631 215 event i \$3 0 0.1 \$1 \$2 \, control off -999;
#X obj 324 282 csoundapi~ midigrain3.csd;
#X msg 324 25 set kcps1 kcps2 kcps3 kphs1 kgdur1 off offr kthresh;
#X text 703 -48 MIDI through PD;
#X text 920 125 noteoff message;
#X text 114 322 cutoff;
#X text 715 146 csound allows decimal instrument names to create different
instances of the same instrument that don't interrupt each other. this
pack object allows each note number to start a different instance \,
as 1.06 \, 1.061 \, etc.;
#X text 21 31 Formant;
#X text 17 211 Grain duration;
#X text 153 38 Normalized location;
#X text 890 -15 noteon or noteoff?;
#X text 671 449 MIDI/PD control of Csound's grain3;
#X connect 1 0 37 0;
#X connect 2 0 37 0;
#X connect 3 0 30 0;
#X connect 4 0 37 0;
#X connect 5 0 37 0;
#X connect 8 0 9 0;
#X connect 9 0 5 0;
#X connect 10 0 37 0;
#X connect 11 0 37 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 2 0;
#X connect 15 0 14 0;
#X connect 16 0 9 0;
#X connect 17 0 23 0;
#X connect 17 0 20 0;
#X connect 17 1 19 0;
#X connect 18 0 30 0;
#X connect 19 0 25 0;
#X connect 19 0 21 0;
#X connect 19 1 24 0;
#X connect 19 1 22 0;
#X connect 19 1 32 1;
#X connect 20 0 35 0;
#X connect 21 0 20 1;
#X connect 22 0 20 1;
#X connect 23 0 31 0;
#X connect 24 0 23 1;
#X connect 25 0 23 1;
#X connect 26 0 38 0;
#X connect 26 0 12 0;
#X connect 27 0 0 0;
#X connect 28 0 0 1;
#X connect 29 0 27 1;
#X connect 29 0 28 1;
#X connect 30 0 4 0;
#X connect 31 0 32 0;
#X connect 31 1 33 0;
#X connect 32 0 36 0;
#X connect 33 0 34 0;
#X connect 34 0 32 2;
#X connect 35 0 37 0;
#X connect 36 0 37 0;
#X connect 37 0 27 0;
#X connect 37 1 28 0;
#X connect 37 2 6 0;
#X connect 37 3 7 0;
#X connect 38 0 37 0;
-------------- next part --------------
A non-text attachment was scrubbed...
Name: midigrain3.csd
Type: application/octet-stream
Size: 1897 bytes
Desc: not available
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20070316/4311b985/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: csapifiltertest.csd
Type: application/octet-stream
Size: 841 bytes
Desc: not available
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20070316/4311b985/attachment-0001.obj>
-------------- next part --------------
#N canvas 351 45 916 710 12;
#X msg 172 320 control freq \$1;
#X msg 328 276 control q \$1;
#X obj 356 40 vsl 15 200 0 100 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 1000 1;
#X floatatom 357 254 5 0 0 0 - - -;
#X obj 281 40 vsl 15 200 0 2000 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 1200 1;
#X floatatom 281 246 5 0 0 0 - - -;
#X obj 184 449 dac~;
#X obj 598 308 phasor~;
#X floatatom 573 267 5 0 0 0 - - -;
#X obj 598 333 *~;
#X floatatom 669 259 5 0 0 0 - - -;
#X obj 669 284 / 100;
#X obj 76 494 env~;
#X floatatom 76 522 5 0 0 0 - - -;
#X obj 478 41 vsl 15 200 0 100 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 1500 1;
#X floatatom 478 250 5 0 0 0 - - -;
#X msg 406 305 control gain \$1;
#X msg 494 434 rezzy;
#X msg 503 458 butterlp;
#X msg 512 482 butterbp;
#X msg 527 504 reson;
#X msg 530 529 lowpass2;
#X msg 550 554 tone;
#X msg 409 473 raw;
#X msg 292 647 control filter \$1;
#X obj 335 577 route raw rezzy butterlp butterbp reson lowpass2 tone
;
#X msg 331 603 0;
#X msg 380 601 1;
#X msg 439 605 2;
#X msg 504 604 3;
#X msg 566 607 4;
#X msg 625 609 5;
#X msg 690 609 6;
#X msg 33 282 set freq q gain switch filter;
#X msg 95 390 run \$1;
#X obj 74 375 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 254 452 reset;
#X msg 307 449 compile;
#X obj 33 248 loadbang;
#X text 314 16 Q/bw depending;
#X text 260 26 CF;
#X text 471 17 Gain;
#X obj 633 353 adc~ 1;
#X obj 172 399 csoundapi~ csapifiltertest.csd;
#X text 679 317 sawtooth/adc;
#X connect 0 0 43 0;
#X connect 1 0 43 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 9 0 43 0;
#X connect 10 0 11 0;
#X connect 11 0 9 1;
#X connect 12 0 13 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 43 0;
#X connect 17 0 25 0;
#X connect 18 0 25 0;
#X connect 19 0 25 0;
#X connect 20 0 25 0;
#X connect 21 0 25 0;
#X connect 22 0 25 0;
#X connect 23 0 25 0;
#X connect 24 0 43 0;
#X connect 25 0 26 0;
#X connect 25 1 27 0;
#X connect 25 2 28 0;
#X connect 25 3 29 0;
#X connect 25 4 30 0;
#X connect 25 5 31 0;
#X connect 25 6 32 0;
#X connect 26 0 24 0;
#X connect 27 0 24 0;
#X connect 28 0 24 0;
#X connect 29 0 24 0;
#X connect 30 0 24 0;
#X connect 31 0 24 0;
#X connect 32 0 24 0;
#X connect 33 0 43 0;
#X connect 34 0 43 0;
#X connect 35 0 34 0;
#X connect 36 0 43 0;
#X connect 37 0 43 0;
#X connect 38 0 33 0;
#X connect 42 0 43 0;
#X connect 43 0 12 0;
#X connect 43 0 6 0;
#X connect 43 0 6 1;