From d2eec74a4d8c21aad495ba61539486b24d7ab8dc Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Wed, 9 Oct 2002 10:19:04 +0000 Subject: moved from zexy/zexy to zexy svn path=/trunk/externals/zexy/; revision=169 --- examples/dirac~.pd | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 examples/dirac~.pd (limited to 'examples/dirac~.pd') diff --git a/examples/dirac~.pd b/examples/dirac~.pd new file mode 100644 index 0000000..d1317dd --- /dev/null +++ b/examples/dirac~.pd @@ -0,0 +1,43 @@ +#N canvas 202 49 564 290 8; +#X obj 123 230 dirac~; +#X floatatom 95 186; +#X obj 95 208 t b f; +#X obj 123 253 print~; +#X text 40 30 dirac~ ::; +#X text 40 60 IN :; +#X text 115 30 produces a unit:sample:sequence; +#X text 114 61 define the nth sample after the float::bang:message for the unit:sample to take place; +#X text 98 165 position; +#N canvas 0 0 765 385 application 0; +#X obj 75 82 t b b b; +#X msg 119 104 \; pd dsp 1; +#X obj 97 139 dirac~; +#X floatatom 181 141; +#X obj 97 181 tabwrite~ unit::response; +#X graph graph1 0 -1 64 1 358 325 758 25; +#X array unit::response 64 float; +#X pop; +#X msg 70 283 \; unit::response resize 64; +#X text 32 353 we thought it useful to have a tool that would be able to easily plot the unit::response of a system; +#X text 111 61 press me; +#X msg 75 61 bang; +#X obj 97 160 hip~ 5000; +#X connect 0 0 4 0; +#X connect 0 1 2 0; +#X connect 0 2 1 0; +#X connect 2 0 10 0; +#X connect 3 0 10 1; +#X connect 9 0 0 0; +#X connect 10 0 4 0; +#X restore 270 148 page application; +#X obj 53 208 t f b; +#X msg 53 187 2; +#X msg 185 225 2; +#X connect 0 0 3 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 2 1 0 0; +#X connect 10 0 3 0; +#X connect 10 1 0 0; +#X connect 11 0 10 0; +#X connect 12 0 3 0; -- cgit v1.2.1