Hi Bill,
use a comination of [tabsend~] and [tabread],
see attached.

mvh/Steffen Leve Poulsen

Bill Gribble skrev:
Is there a way within pd-extended to do the equivalent of [env~], but
following peak value rather than RMS?
I have pulled my hair out trying to implement this with patching but I
have had no luck.
Thanks,
Bill Gribble
#N canvas 250 160 398 474 10;
#X obj 236 105 bang~;
#X obj 175 22 table vu 64;
#X obj 18 119 tabsend~ vu;
#X obj 191 218 tabread vu;
#X obj 258 244 max;
#X obj 275 219 f;
#X obj 236 134 t b b;
#X obj 276 198 0;
#X obj 18 29 osc~ 0.1;
#X obj 258 287 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 416 1;
#N canvas 0 0 450 300 abs~ 0;
#X obj 123 5 inlet~;
#X obj 124 198 outlet~;
#X obj 124 88 max~;
#X obj 153 64 *~ -1;
#X connect 0 0 2 0;
#X connect 0 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X restore 19 93 pd abs~;
#N canvas 0 0 517 448 fire 0;
#X obj 148 22 inlet;
#X obj 148 186 until;
#X obj 148 228 f;
#X obj 180 228 + 1;
#X obj 171 160 0;
#X obj 148 346 outlet;
#X obj 148 136 t f b f;
#X obj 148 109 64;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 6 0 1 0;
#X connect 6 1 4 0;
#X connect 7 0 6 0;
#X restore 191 183 pd fire 64;
#X obj 99 339 loadbang;
#X msg 99 365 \; pd dsp 1;
#X connect 0 0 6 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 9 0;
#X connect 5 0 4 1;
#X connect 6 0 11 0;
#X connect 6 1 7 0;
#X connect 7 0 5 0;
#X connect 8 0 10 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 12 0 13 0;

Checked by AVG - http://www.avg.com
Version: 8.0.176 / Virus Database: 270.9.12/1821 - Release Date: 30-11-2008 
17:53
_______________________________________________
Pd-list@iem.at mailing list
UNSUBSCRIBE and account-management -> 
http://lists.puredata.info/listinfo/pd-list

Reply via email to