From da1f0065d07250b86b9a761b012987e4825f491f Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Mon, 28 Nov 2005 16:53:25 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r4068, which included commits to RCS files with non-trunk default branches. svn path=/trunk/externals/smlib/; revision=4069 --- examples/normalizer.pd | 94 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 94 insertions(+) create mode 100644 examples/normalizer.pd (limited to 'examples/normalizer.pd') diff --git a/examples/normalizer.pd b/examples/normalizer.pd new file mode 100644 index 0000000..71cd102 --- /dev/null +++ b/examples/normalizer.pd @@ -0,0 +1,94 @@ +#N canvas 161 407 512 338 12; +#X obj 410 270 SMLib; +#X obj -14 54 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 +; +#X obj -14 94 random 10; +#X obj -14 72 metro 10; +#X obj 13 272 hsl 128 15 -3 3 0 0 empty empty empty -2 -6 0 8 -262144 +-1 -1 7495 1; +#X floatatom 34 224 5 0 0; +#X obj 60 143 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 +; +#X obj 126 143 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 34 202 lstd 50; +#X obj -14 117 + 7; +#X floatatom 21 250 5 0 0; +#X text 45 121 adapt; +#X text 119 123 store; +#N canvas 0 0 456 343 normalizer 0; +#X obj 83 171 -; +#X obj 37 2 inlet; +#X obj 101 81 spigot; +#X obj 131 0 inlet; +#X msg 256 108 set \$1; +#X obj 167 108 spigot; +#X msg 220 108 0; +#X msg 255 132 11.0646; +#X msg 222 39 1; +#X text 253 39 set; +#X msg 294 42 bang; +#X text 335 42 recall; +#X obj 294 18 loadbang; +#X obj 139 190 spigot; +#X msg 294 217 set \$1; +#X obj 205 217 spigot; +#X msg 258 217 0; +#X msg 293 241 3.10129; +#X obj 90 292 outlet; +#X text 178 0 learn; +#X obj 231 -1 inlet; +#X obj 102 107 lavg 500; +#X obj 140 216 lstd 500; +#X obj 92 261 *; +#X obj 135 241 pow -1; +#X connect 0 0 13 0; +#X connect 0 0 23 0; +#X connect 1 0 0 0; +#X connect 1 0 2 0; +#X connect 2 0 21 0; +#X connect 3 0 2 1; +#X connect 3 0 13 1; +#X connect 4 0 7 0; +#X connect 5 0 4 0; +#X connect 5 0 6 0; +#X connect 6 0 5 1; +#X connect 7 0 0 1; +#X connect 8 0 5 1; +#X connect 8 0 15 1; +#X connect 10 0 7 0; +#X connect 10 0 17 0; +#X connect 12 0 10 0; +#X connect 13 0 22 0; +#X connect 14 0 17 0; +#X connect 15 0 14 0; +#X connect 15 0 16 0; +#X connect 16 0 15 1; +#X connect 20 0 8 0; +#X connect 21 0 0 1; +#X connect 21 0 5 0; +#X connect 22 0 15 0; +#X connect 22 0 24 0; +#X connect 23 0 18 0; +#X connect 24 0 23 1; +#X restore 14 173 pd normalizer; +#X text -17 -8 normalizer : rescales a float stream so that its average +approximates zero \, and its standard deviation approximates unity. +; +#X text 153 143 using store changes the patch; +#X text 153 160 not usefull for use in an abstraction; +#X text 389 290 j#|@2002; +#X floatatom 96 223 5 0 0; +#X obj 96 201 lavg 50; +#X connect 1 0 3 0; +#X connect 2 0 9 0; +#X connect 3 0 2 0; +#X connect 6 0 13 1; +#X connect 7 0 13 2; +#X connect 8 0 5 0; +#X connect 9 0 13 0; +#X connect 13 0 4 0; +#X connect 13 0 8 0; +#X connect 13 0 10 0; +#X connect 13 0 19 0; +#X connect 19 0 18 0; -- cgit v1.2.1