1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
#N canvas 161 407 512 338 10;
#X obj 410 270 smlib/SMLib-help;
#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;
|
