From 64fdb009695828b788fce074135b20a5e52c5fc4 Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Tue, 23 Sep 2003 00:21:28 +0000 Subject: imported version 0.37-0 svn path=/trunk/; revision=1016 --- pd/doc/3.audio.examples/71.adsr.sequenced.pd | 217 --------------------------- 1 file changed, 217 deletions(-) delete mode 100644 pd/doc/3.audio.examples/71.adsr.sequenced.pd (limited to 'pd/doc/3.audio.examples/71.adsr.sequenced.pd') diff --git a/pd/doc/3.audio.examples/71.adsr.sequenced.pd b/pd/doc/3.audio.examples/71.adsr.sequenced.pd deleted file mode 100644 index 26300054..00000000 --- a/pd/doc/3.audio.examples/71.adsr.sequenced.pd +++ /dev/null @@ -1,217 +0,0 @@ -#N canvas 32 15 950 613 12; -#X obj 33 220 r trigger; -#X floatatom 70 520 0 0 0; -#N canvas 159 26 584 307 output 0; -#X obj 390 189 t b; -#X obj 390 129 f; -#X obj 390 69 inlet; -#X text 397 32 mute; -#X obj 390 219 f; -#X msg 451 217 0; -#X msg 390 99 bang; -#X obj 390 159 moses 1; -#X obj 460 137 moses 1; -#X obj 100 178 dbtorms; -#X obj 460 107 r master-lvl; -#X obj 100 50 r master-lvl; -#X obj 390 249 s master-lvl; -#X obj 26 217 inlet~; -#X obj 239 49 inlet; -#X text 239 22 level; -#X obj 239 120 s master-lvl; -#X msg 115 78 set \$1; -#X obj 115 107 outlet; -#X msg 257 77 \; pd dsp 1; -#X obj 100 233 line~; -#X obj 26 254 *~; -#X obj 26 289 dac~; -#X obj 100 205 pack 0 50; -#X text 24 190 audio; -#X text 112 132 show level; -#X connect 0 0 4 0; -#X connect 1 0 7 0; -#X connect 2 0 6 0; -#X connect 4 0 12 0; -#X connect 5 0 12 0; -#X connect 6 0 1 0; -#X connect 7 0 0 0; -#X connect 7 1 5 0; -#X connect 8 1 4 1; -#X connect 9 0 23 0; -#X connect 10 0 1 1; -#X connect 10 0 8 0; -#X connect 11 0 9 0; -#X connect 11 0 17 0; -#X connect 13 0 21 0; -#X connect 14 0 16 0; -#X connect 14 0 19 0; -#X connect 17 0 18 0; -#X connect 20 0 21 1; -#X connect 21 0 22 0; -#X connect 21 0 22 1; -#X connect 23 0 20 0; -#X restore 32 546 pd output; -#X msg 108 521 MUTE; -#X obj 33 438 *~; -#X obj 33 331 *~ 0.01; -#X obj 33 366 *~; -#X obj 33 396 *~; -#X obj 80 360 r pitch; -#X obj 80 410 mtof; -#X floatatom 80 385 4 0 0; -#X floatatom 57 272 4 0 0; -#X obj 57 247 r level; -#X floatatom 131 272 4 0 0; -#X obj 131 247 r attack; -#X floatatom 216 272 4 0 0; -#X obj 216 247 r decay; -#X floatatom 291 272 4 0 0; -#X floatatom 385 272 4 0 0; -#X obj 291 247 r sustain; -#X obj 385 247 r release; -#X obj 509 106 r note; -#X msg 510 195 \; trigger 1; -#X obj 634 185 del; -#X msg 634 210 \; trigger 0; -#X obj 9 167 qlist; -#X obj 8 6 r qlist; -#X msg 30 35 bang; -#X msg 30 60 rewind; -#X obj 37 89 r tempo; -#X floatatom 37 114 4 0 0; -#X msg 37 139 tempo \$1; -#X obj 509 156 t b f; -#X obj 564 157 s pitch; -#X obj 656 120 r duration; -#X floatatom 656 145 4 0 0; -#X floatatom 509 131 4 0 0; -#X obj 289 320 r trigger; -#X floatatom 315 376 4 0 0; -#X floatatom 387 406 4 0 0; -#X floatatom 477 406 4 0 0; -#X floatatom 563 406 4 0 0; -#X floatatom 659 406 4 0 0; -#X obj 315 351 r level2; -#X obj 387 381 r attack2; -#X obj 477 381 r decay2; -#X obj 563 381 r sustain2; -#X obj 659 381 r release2; -#X obj 80 435 tabosc4~ array1; -#X floatatom 239 366 4 0 0; -#X obj 33 482 vcf~; -#X floatatom 140 488 4 0 0; -#X obj 140 463 r q; -#X obj 33 306 adsr 0 0 0 0 0; -#X obj 289 444 adsr 0 0 0 0 0; -#X obj 315 401 / 69.23; -#X obj 239 391 mtof; -#X obj 239 416 sqrt; -#X obj 239 441 sqrt; -#X obj 197 336 r filter; -#X obj 240 494 *~; -#X obj 240 519 *~; -#X obj 289 469 +~ 1; -#X obj 239 466 *~; -#X text 139 215 ADSR for amplitude:; -#X text 402 300 ADSR for filter. Here \, I thought it better to make -the envelope modify a constant "filter pitch"--so the "filter" receive -gets the "mtof" treatment and the ADSR is an offset in halftones (thus -the "/ 69.23" as compared to the previous patch.); -#X text 141 5 USING QLIST TO MAKE SEQUENCES OF "NOTES"; -#N canvas -10 258 703 380 otherstuff 0; -#X obj 289 86 loadbang; -#X obj 418 85 loadbang; -#X graph graph2 0 -1 66 1 62 221 262 81; -#X array array1 67 float 1; -#A 0 0 0 0 0 0.714286 0.742857 0.757143 0.771429 0.778571 0.785714 -0.785714 0.785714 0.785714 0.790476 0.795238 0.614286 0.585714 0.442857 -0.271429 -0.128571 -0.142857 -0.157143 -0.171429 -0.642857 -0.528571 --0.614286 -0.685714 -0.828571 -0.828571 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0.557143 0.571429 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; -#X pop; -#X msg 418 115 \; qlist read qlist2.txt; -#X msg 289 111 \; level 100 \; attack 20 \; decay 300 \; sustain 70 -\; release 300 \; duration 300 \; pitch 72 \; filter 38 \; level2 49 -\; attack2 19 \; decay2 300 \; sustain2 17 \; release2 700 \; q 3 \; -tempo 1; -#X connect 0 0 4 0; -#X connect 1 0 3 0; -#X restore 32 571 pd otherstuff; -#X text 82 34 <--start loop; -#X text 99 62 <--stop loop; -#X text 85 114 <--set tempo; -#X text 248 34 The qlist reads the file \, "qlist2.txt" \, which contains -four "note" messages and a message at the end that restarts the qlist -at the beginning. The "note" messages are translated into a pitch change -and triggers for the ADSRs:; -#X text 694 573 updated for Pd version 0.34; -#X text 155 573 <--loadbangs and table; -#X msg 468 518 \; qlist read qlist2.txt; -#X text 462 494 click to reload qlist2.txt; -#X text 149 521 <--output; -#X connect 0 0 53 0; -#X connect 1 0 2 1; -#X connect 2 0 1 0; -#X connect 3 0 2 2; -#X connect 4 0 50 0; -#X connect 5 0 6 0; -#X connect 5 0 6 1; -#X connect 6 0 7 0; -#X connect 6 0 7 1; -#X connect 7 0 4 0; -#X connect 8 0 10 0; -#X connect 9 0 48 0; -#X connect 10 0 9 0; -#X connect 11 0 53 1; -#X connect 12 0 11 0; -#X connect 13 0 53 2; -#X connect 14 0 13 0; -#X connect 15 0 53 3; -#X connect 16 0 15 0; -#X connect 17 0 53 4; -#X connect 18 0 53 5; -#X connect 19 0 17 0; -#X connect 20 0 18 0; -#X connect 21 0 36 0; -#X connect 23 0 24 0; -#X connect 26 0 25 0; -#X connect 27 0 25 0; -#X connect 28 0 25 0; -#X connect 29 0 30 0; -#X connect 30 0 31 0; -#X connect 31 0 25 0; -#X connect 32 0 23 0; -#X connect 32 0 22 0; -#X connect 32 1 33 0; -#X connect 34 0 35 0; -#X connect 35 0 23 1; -#X connect 36 0 32 0; -#X connect 37 0 54 0; -#X connect 38 0 55 0; -#X connect 39 0 54 2; -#X connect 40 0 54 3; -#X connect 41 0 54 4; -#X connect 42 0 54 5; -#X connect 43 0 38 0; -#X connect 44 0 39 0; -#X connect 45 0 40 0; -#X connect 46 0 41 0; -#X connect 47 0 42 0; -#X connect 48 0 4 1; -#X connect 49 0 56 0; -#X connect 50 0 2 0; -#X connect 51 0 50 2; -#X connect 52 0 51 0; -#X connect 53 0 5 0; -#X connect 54 0 62 0; -#X connect 55 0 54 1; -#X connect 56 0 57 0; -#X connect 57 0 58 0; -#X connect 58 0 63 0; -#X connect 59 0 49 0; -#X connect 60 0 61 0; -#X connect 60 0 61 1; -#X connect 61 0 50 1; -#X connect 62 0 63 1; -#X connect 63 0 60 0; -#X connect 63 0 60 1; -- cgit v1.2.1