From 57045df5fe3ec557e57dc7434ac1a07b5521bffc Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Mon, 29 Jul 2002 17:06:19 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r58, which included commits to RCS files with non-trunk default branches. svn path=/trunk/; revision=59 --- .../3.audio.examples/42.PART6.analog.sequencer.pd | 133 +++++++++++++++++++++ 1 file changed, 133 insertions(+) create mode 100644 pd/doc/3.audio.examples/42.PART6.analog.sequencer.pd (limited to 'pd/doc/3.audio.examples/42.PART6.analog.sequencer.pd') diff --git a/pd/doc/3.audio.examples/42.PART6.analog.sequencer.pd b/pd/doc/3.audio.examples/42.PART6.analog.sequencer.pd new file mode 100644 index 00000000..b217112f --- /dev/null +++ b/pd/doc/3.audio.examples/42.PART6.analog.sequencer.pd @@ -0,0 +1,133 @@ +#N canvas 222 24 761 466 12; +#X floatatom 61 408 0 0 0; +#N canvas 159 26 495 266 output 0; +#X obj 338 160 t b; +#X obj 338 110 f; +#X obj 338 60 inlet; +#X text 344 29 mute; +#X obj 338 185 f; +#X msg 425 178 0; +#X msg 338 85 bang; +#X obj 338 135 moses 1; +#X obj 425 153 t b f; +#X obj 397 117 moses 1; +#X obj 83 148 dbtorms; +#X obj 397 92 r master-lvl; +#X obj 83 42 r master-lvl; +#X obj 338 210 s master-lvl; +#X obj 22 181 inlet~; +#X obj 199 41 inlet; +#X text 199 18 level; +#X obj 199 100 s master-lvl; +#X msg 96 65 set \$1; +#X obj 96 89 outlet; +#X msg 214 64 \; pd dsp 1; +#X obj 83 194 line~; +#X obj 22 212 *~; +#X obj 22 241 dac~; +#X obj 83 171 pack 0 50; +#X text 20 158 audio; +#X text 93 110 show level; +#X connect 0 0 4 0; +#X connect 1 0 7 0; +#X connect 2 0 6 0; +#X connect 4 0 13 0; +#X connect 5 0 13 0; +#X connect 6 0 1 0; +#X connect 7 0 0 0; +#X connect 7 1 8 0; +#X connect 8 0 5 0; +#X connect 9 1 4 1; +#X connect 10 0 24 0; +#X connect 11 0 1 1; +#X connect 11 0 9 0; +#X connect 12 0 10 0; +#X connect 12 0 18 0; +#X connect 14 0 22 0; +#X connect 15 0 17 0; +#X connect 15 0 20 0; +#X connect 18 0 19 0; +#X connect 21 0 22 1; +#X connect 22 0 23 0; +#X connect 22 0 23 1; +#X connect 24 0 21 0; +#X restore 23 433 pd output; +#X msg 99 405 MUTE; +#X text 139 406 <-- output amplitude; +#X obj 336 272 loadbang; +#X text 35 6 ANALOG SYNTH SEQUENCER; +#X obj 215 152 metro 100; +#X obj 214 178 f; +#X obj 248 181 + 1; +#X obj 248 205 mod 11; +#X graph graph1 0 36 11 96 511 197 711 97; +#X array array1 11 float 0; +#X pop; +#X floatatom 215 127 0 0 0; +#X floatatom 304 152 0 0 0; +#X obj 214 230 tabread array1; +#X obj 214 256 mtof; +#X obj 214 283 osc~ 0; +#X msg 26 171 1; +#X obj 24 303 *~; +#X obj 24 350 cos~; +#X obj 24 375 hip~ 5; +#X obj 24 327 +~ 0.1; +#X msg 336 298 \; array1 0 50 51 52 50 52 56 50 56 58 52 58; +#X floatatom 43 219 0 0 0; +#X floatatom 163 221 0 0 0; +#X floatatom 93 219 0 0 0; +#X floatatom 128 220 0 0 0; +#X msg 93 311 0; +#X msg 93 329 0.1; +#X msg 93 348 0.25; +#X msg 215 101 1; +#X text 244 101 <--START; +#X text 126 331 <--symmetry; +#X text 72 185 ADSR controls; +#X text 43 199 lvl; +#X text 95 200 A; +#X text 137 201 D; +#X text 170 202 S; +#X floatatom 298 181 0 0 0; +#X text 332 183 <--increment; +#X text 339 155 <--msec; +#X text 20 35 Analog synths had sequencers which could be used in a +wide variety of ways. You can use an array to hold a sequence of control +values as shown here.; +#X obj 23 274 adsr 1 65 13 10 1000; +#X obj 42 243 / 100; +#X text 336 340 You can also do microtones \; 50.5 is a quarter tone +sharper than 50; +#X text 505 431 updated for Pd version 0.34; +#X connect 0 0 1 1; +#X connect 1 0 0 0; +#X connect 2 0 1 2; +#X connect 4 0 21 0; +#X connect 6 0 7 0; +#X connect 6 0 16 0; +#X connect 7 0 8 0; +#X connect 7 0 13 0; +#X connect 8 0 9 0; +#X connect 9 0 7 1; +#X connect 11 0 6 0; +#X connect 12 0 6 1; +#X connect 13 0 14 0; +#X connect 14 0 15 0; +#X connect 15 0 17 1; +#X connect 16 0 41 0; +#X connect 17 0 20 0; +#X connect 18 0 19 0; +#X connect 19 0 1 0; +#X connect 20 0 18 0; +#X connect 22 0 42 0; +#X connect 23 0 41 4; +#X connect 24 0 41 2; +#X connect 25 0 41 3; +#X connect 26 0 20 1; +#X connect 27 0 20 1; +#X connect 28 0 20 1; +#X connect 29 0 11 0; +#X connect 37 0 8 1; +#X connect 41 0 17 0; +#X connect 42 0 41 1; -- cgit v1.2.1