From fc3d3c0a4f110a23335398c327ac0a4fc949d5cb Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Mon, 17 Jun 2002 10:13:57 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r12, which included commits to RCS files with non-trunk default branches. svn path=/trunk/externals/ggee/; revision=13 --- experimental/stk.pd | 76 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 76 insertions(+) create mode 100755 experimental/stk.pd (limited to 'experimental/stk.pd') diff --git a/experimental/stk.pd b/experimental/stk.pd new file mode 100755 index 0000000..85c161c --- /dev/null +++ b/experimental/stk.pd @@ -0,0 +1,76 @@ +#N canvas 226 44 704 495 12; +#X obj 50 422 dac~; +#X obj 19 295 stk Rhodey; +#X obj 19 321 throw~ out1; +#X obj 61 379 catch~ out1; +#X obj 19 246 mtof; +#X floatatom 19 87 0 0 0; +#X msg 56 247 0; +#X floatatom 100 112 0 0 0; +#X msg 56 112 bang; +#X obj 56 134 pipe 600; +#X floatatom 97 230 0 0 0; +#X obj 97 254 * 0.01; +#X text 95 211 velocity; +#X obj 380 383 stk Flute; +#X obj 380 350 mtof; +#X floatatom 380 277 0 0 0; +#X msg 417 351 0; +#X floatatom 461 302 0 0 0; +#X msg 417 302 bang; +#X obj 417 324 pipe 600; +#X floatatom 483 331 0 0 0; +#X obj 483 355 * 0.01; +#X text 481 312 velocity; +#X obj 380 411 throw~ out1; +#X floatatom 557 299 0 0 0; +#X obj 130 319 throw~ out1; +#X floatatom 208 242 0 0 0; +#X obj 208 266 * 0.01; +#X text 206 223 velocity; +#X obj 130 293 stk BeeThree; +#X msg 557 323 control 1 \$1; +#X msg 161 97 print; +#X text 233 96 print: prints out all available stk instruments; +#X text 232 113 control f1 f2: sets the control channel f1 to the; +#X text 255 129 value of f2; +#X text 230 150 control1: short for control 1 f2; +#X text 28 14 PD interface to Perry Cook's STK; +#X text 231 48 Messages; +#X text 229 63 ===========; +#X text 231 79 float number: sets the frequency in Hz; +#X text 230 171 aftertouch \, pitchbend: MIDI values for aftertouch +and pitchbend; +#X msg 319 248 print; +#X text 317 224 click to see available instruments; +#X connect 1 0 2 0; +#X connect 3 0 0 0; +#X connect 3 0 0 1; +#X connect 4 0 1 0; +#X connect 4 0 29 0; +#X connect 5 0 4 0; +#X connect 5 0 8 0; +#X connect 6 0 1 0; +#X connect 6 0 29 0; +#X connect 7 0 9 1; +#X connect 8 0 9 0; +#X connect 9 0 6 0; +#X connect 10 0 11 0; +#X connect 11 0 1 1; +#X connect 13 0 23 0; +#X connect 14 0 13 0; +#X connect 15 0 14 0; +#X connect 15 0 18 0; +#X connect 16 0 13 0; +#X connect 17 0 19 1; +#X connect 18 0 19 0; +#X connect 19 0 16 0; +#X connect 20 0 21 0; +#X connect 21 0 13 1; +#X connect 24 0 30 0; +#X connect 26 0 27 0; +#X connect 27 0 29 1; +#X connect 29 0 25 0; +#X connect 30 0 13 0; +#X connect 31 0 1 0; +#X connect 41 0 13 0; -- cgit v1.2.1