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 --- pd/doc/3.audio.examples/18.PART3.pulse.pd | 126 ++++++++++++++++++++++++++++++ 1 file changed, 126 insertions(+) create mode 100644 pd/doc/3.audio.examples/18.PART3.pulse.pd (limited to 'pd/doc/3.audio.examples/18.PART3.pulse.pd') diff --git a/pd/doc/3.audio.examples/18.PART3.pulse.pd b/pd/doc/3.audio.examples/18.PART3.pulse.pd new file mode 100644 index 00000000..8efe6390 --- /dev/null +++ b/pd/doc/3.audio.examples/18.PART3.pulse.pd @@ -0,0 +1,126 @@ +#N canvas 15 126 821 582 12; +#X obj 285 163 line~; +#X floatatom 66 64 0 0 0; +#X obj 43 315 cos~; +#X graph graph1 0 -1.02 882 1.02 599 472 799 342; +#X array pulse-output 882 float 0; +#X pop; +#X floatatom 72 407 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 43 435 pd output; +#X msg 111 405 MUTE; +#X text 158 406 <-- output amplitude; +#X obj 66 91 phasor~ 0; +#X obj 285 139 pack 0 50; +#X floatatom 285 54 0 0 0; +#X text 63 43 frequency; +#X obj 66 115 -~ 0.5; +#X obj 66 207 *~; +#X obj 285 78 / 10; +#X obj 43 265 clip~ -0.5 0.5; +#X obj 43 371 hip~ 5; +#X graph graph1 0 -1.02 882 1.02 599 168 799 108; +#X array phase-output 882 float 0; +#X pop; +#X graph graph1 0 -1.02 882 1.02 599 335 799 205; +#X array clip-output 882 float 0; +#X pop; +#X text 280 34 bandwidth; +#X text 130 114 phase -1/2 to 1/2; +#X text 152 91 phase 0 to 1; +#X text 132 5 PULSE GENERATOR; +#X obj 32 234 tabwrite~ phase-output; +#X obj 32 346 tabwrite~ pulse-output; +#X text 116 372 high pass filter to cut DC; +#X msg 32 147 bang; +#X text 332 79 fix range; +#X text 337 100 force; +#X text 337 117 nonnegative; +#X text 339 164 smooth it; +#X text 327 187 add 1; +#X text 78 148 <-- click to graph; +#X text 96 209 increase amplitude; +#X text 177 264 clip back to range -1/2 to 1/2; +#X text 103 316 cosine wave lookup (-1/2 and 1/2 give -1); +#X text 24 470 This patch computes a pulse train \, with a "bandwidth" +control that essentually squeezes the pulses. If "bandwidth" is zero +you get a pure cosine wave \, and for larger values of the bandwidth +\, the cosine wave is squeezed to fill smaller portions of the waveform. +; +#X obj 285 188 +~ 1; +#X obj 32 292 tabwrite~ clip-output; +#X text 601 478 ---- 0.02 seconds ----; +#X obj 285 102 max 0; +#X text 544 551 updated for Pd version 0.34; +#X connect 0 0 37 0; +#X connect 1 0 8 0; +#X connect 2 0 16 0; +#X connect 2 0 24 0; +#X connect 4 0 5 1; +#X connect 5 0 4 0; +#X connect 6 0 5 2; +#X connect 8 0 12 0; +#X connect 9 0 0 0; +#X connect 10 0 14 0; +#X connect 12 0 13 0; +#X connect 13 0 15 0; +#X connect 13 0 23 0; +#X connect 14 0 40 0; +#X connect 15 0 2 0; +#X connect 15 0 38 0; +#X connect 16 0 5 0; +#X connect 26 0 23 0; +#X connect 26 0 24 0; +#X connect 26 0 38 0; +#X connect 37 0 13 1; +#X connect 40 0 9 0; -- cgit v1.2.1