#N canvas 450 22 457 720 10; #X obj 183 87 hsl 118 15 0 100 0 1 empty empty empty -2 -8 0 10 -262144 -1 -1 3300 0; #X obj 180 117 i; #X text 201 32 the bottom.; #X text 137 18 of a control-rate signal.; #X obj 160 57 inlet signal; #X text 1 -2 control_amplitude_meter v0.1; #X text -105 18 This abstraction measures the amplitude; #X text 11 688 Juan Ignacio Mendoza - 2013; #X obj 6 655 outlet; #N canvas 0 22 450 300 (subpatch) 0; #X array \$0-Peak1 8 float 1; #A 0 0 0 0 0 0 0 0 0; #X coords 0 100 7 0 20 60 1; #X restore -115 612 graph; #X floatatom 6 625 5 0 0 0 - - -; #N canvas 124 206 666 435 engine_\$0-Peak1 0; #X obj 98 130 until; #X msg 218 77 0; #X obj 172 189 + 1; #X obj 130 190 float; #X obj 63 157 t b b; #X obj 102 213 - 1; #X obj 98 104 - 2; #X floatatom 183 291 5 0 0 0 - - -; #X obj 63 215 float; #X obj 183 245 loadbang; #X obj 47 77 float; #X obj 15 27 inlet; #X obj 96 27 inlet; #X text 14 8 bang; #X text 95 8 value; #X obj 96 77 arraysize \$0-Peak1; #X obj 172 212 tabread \$0-Peak1; #X obj 63 245 tabwrite \$0-Peak1; #X obj 47 310 tabwrite \$0-Peak1; #X msg 183 267 7; #X connect 0 0 4 0; #X connect 1 0 3 0; #X connect 2 0 3 1; #X connect 2 0 5 0; #X connect 2 0 16 0; #X connect 3 0 2 0; #X connect 4 0 8 0; #X connect 4 1 3 0; #X connect 5 0 17 1; #X connect 6 0 0 0; #X connect 7 0 18 1; #X connect 8 0 17 0; #X connect 9 0 19 0; #X connect 10 0 18 0; #X connect 11 0 10 0; #X connect 11 0 1 0; #X connect 11 0 15 0; #X connect 12 0 10 0; #X connect 15 0 6 0; #X connect 16 0 8 0; #X connect 16 0 17 0; #X connect 19 0 7 0; #X restore -114 574 pd engine_\$0-Peak1; #X text -96 83 <-- on/off; #X floatatom 160 205 5 0 100 0 - - -; #N canvas 0 22 450 300 (subpatch) 0; #X array \$0-Table1 50 float 1; #A 0 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49; #X coords 0 100 49 0 100 60 1; #X restore 106 598 graph; #N canvas 124 206 295 341 engine_\$0-Table1 0; #X obj 98 130 until; #X msg 248 77 0; #X obj 172 189 + 1; #X obj 130 190 float; #X obj 63 157 t b b; #X obj 102 213 - 1; #X obj 98 104 - 2; #X floatatom 183 291 5 0 0 0 - - -; #X obj 63 215 float; #X obj 183 245 loadbang; #X obj 47 77 float; #X obj 15 27 inlet; #X obj 96 27 inlet; #X text 14 8 bang; #X text 95 8 value; #X obj 96 77 arraysize \$0-Table1; #X obj 172 212 tabread \$0-Table1; #X obj 63 245 tabwrite \$0-Table1; #X obj 47 310 tabwrite \$0-Table1; #X msg 183 267 49; #X connect 0 0 4 0; #X connect 1 0 3 0; #X connect 2 0 3 1; #X connect 2 0 5 0; #X connect 2 0 16 0; #X connect 3 0 2 0; #X connect 4 0 8 0; #X connect 4 1 3 0; #X connect 5 0 17 1; #X connect 6 0 0 0; #X connect 7 0 18 1; #X connect 8 0 17 0; #X connect 9 0 19 0; #X connect 10 0 18 0; #X connect 11 0 10 0; #X connect 11 0 1 0; #X connect 11 0 15 0; #X connect 12 0 10 0; #X connect 15 0 6 0; #X connect 16 0 8 0; #X connect 16 0 17 0; #X connect 19 0 7 0; #X restore -31 235 pd engine_\$0-Table1; #X obj -114 87 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj -94 257 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj -54 287 select 1 0; #X obj -24 334 f; #X obj 21 335 f; #X obj 6 395 max; #X obj -9 425 f; #X obj 61 335 f; #X obj 46 395 min; #X obj 31 425 f; #X obj 6 461 -; #X obj 6 487 abs; #X floatatom 6 512 5 0 0 0 - - -; #X text -55 510 amplitude; #X text 44 625 0 - 100; #X text -94 623 <- amplitude ->; #X text 109 659 incoming signal; #X obj 23 167 gate; #X msg 24 135 1; #X msg 58 136 0; #X obj 113 265 switch; #X obj 163 265 switch; #X obj 101 333 f; #X obj 131 333 + 1; #X obj -114 117 metro 100; #X obj -94 237 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 161 333 mod 10; #X obj 6 542 average 10; #X obj -114 57 inlet on/off; #X text -105 32 To test it move the slider and watch the meters at ; #X connect 0 0 1 0; #X connect 1 0 13 0; #X connect 4 0 13 0; #X connect 10 0 8 0; #X connect 13 0 19 1; #X connect 13 0 15 1; #X connect 13 0 35 0; #X connect 13 0 36 1; #X connect 13 0 37 1; #X connect 13 0 41 0; #X connect 16 0 40 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 18 1 20 0; #X connect 18 1 23 0; #X connect 19 0 21 0; #X connect 19 0 24 0; #X connect 20 0 21 1; #X connect 21 0 22 1; #X connect 21 0 36 2; #X connect 22 0 26 0; #X connect 23 0 24 1; #X connect 24 0 25 1; #X connect 24 0 37 2; #X connect 25 0 26 1; #X connect 26 0 27 0; #X connect 27 0 28 0; #X connect 28 0 43 0; #X connect 33 0 13 0; #X connect 34 0 33 0; #X connect 35 0 33 0; #X connect 36 0 20 1; #X connect 37 0 23 1; #X connect 38 0 39 0; #X connect 39 0 42 0; #X connect 40 0 22 0; #X connect 40 0 25 0; #X connect 40 0 15 0; #X connect 40 0 11 0; #X connect 40 0 34 0; #X connect 40 0 38 0; #X connect 40 0 33 1; #X connect 41 0 17 0; #X connect 42 0 38 1; #X connect 42 0 36 0; #X connect 42 0 37 0; #X connect 43 0 11 1; #X connect 43 0 10 0; #X connect 44 0 16 0;