[PD] ead~?

Fri Jun 23 18:29:19 CEST 2006

Hallo,
moritz hat gesagt: // moritz wrote:

> i have modified a little the vadsr~ from cvs from ben saylor to a var~.
> i like this one, because you are able to change the curve..

Cool, this could become an "all-about-curved-envelopes.pd" help patch.
I would recommend to use vline~ however, because then you can time
events with better accuracy. Also it is easier to patch, because it
has a [del] built in. I modified [pd qad] a bit to show this in
action. 

Ciao
-- 
 Frank Barknecht                 _ ______footils.org_ __goto10.org__
-------------- next part --------------
#N canvas 371 28 768 683 10;
#X obj 69 166 ead~ 0 0;
#X obj 69 95 metro;
#X floatatom 99 67 5 0 0 0 - - -;
#X floatatom 94 119 5 0 0 0 - - -;
#X floatatom 120 141 5 0 0 0 - - -;
#X msg 22 67 stop;
#X obj 69 68 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#N canvas 0 22 424 420 vad~ 0;
#X obj 159 214 vline~;
#X obj 31 174 vline~;
#X obj 159 234 dbtorms~;
#X obj 31 194 dbtorms~;
#X obj 15 230 -~;
#X obj 15 210 sig~ 1;
#X obj 102 48 max 0.1;
#X obj 202 48 max 0.1;
#X obj 31 88 f 3;
#X text 100 5 attack (ms);
#X text 200 5 decay (ms);
#X text 30 5 trigger;
#X msg 159 194 0 \, 100 0 \$1 \, 0 \$2 \$1;
#X msg 31 154 100 \, 60 \$1 0 \, 100 0 \$1;
#X obj 31 108 pack 3 4;
#X obj 31 28 inlet;
#X obj 102 28 inlet;
#X obj 202 28 inlet;
#X obj 88 360 outlet~;
#X obj 31 48 b;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 18 0;
#X connect 3 0 4 1;
#X connect 4 0 18 0;
#X connect 5 0 4 0;
#X connect 6 0 8 1;
#X connect 7 0 14 1;
#X connect 8 0 14 0;
#X connect 12 0 0 0;
#X connect 13 0 1 0;
#X connect 14 0 12 0;
#X connect 14 0 13 0;
#X connect 15 0 19 0;
#X connect 16 0 6 0;
#X connect 17 0 7 0;
#X connect 19 0 8 0;
#X restore 93 249 pd vad~;
#N canvas 0 22 450 300 graph3 0;
#X array ead 500 float 2;
#X coords 0 1 500 -1 200 140 1;
#X restore 552 48 graph;
#N canvas 0 22 450 300 graph3 0;
#X array vad 500 float 2;
#X coords 0 1 500 -1 200 140 1;
#X restore 552 188 graph;
#X obj 251 49 loadbang;
#X msg 214 92 5;
#X msg 246 98 9;
#X msg 284 104 \; pd dsp 1;
#X obj 24 192 tabwrite~ ead;
#X obj 39 275 tabwrite~ vad;
#X msg 100 31 1;
#N canvas 0 22 450 300 graph3 0;
#X array qad 500 float 2;
#X coords 0 1 500 -1 200 140 1;
#X restore 552 328 graph;
#X obj 136 340 tabwrite~ qad;
#N canvas 147 451 726 447 qad~ 0;
#X obj 281 224 vline~;
#X obj 158 65 max 0.1;
#X obj 258 65 max 0.1;
#X obj 87 105 f 3;
#X text 156 22 attack (ms);
#X text 256 22 decay (ms);
#X text 86 22 trigger;
#X obj 87 45 inlet;
#X obj 158 45 inlet;
#X obj 258 45 inlet;
#X obj 144 377 outlet~;
#X obj 87 65 b;
#X obj 87 218 vline~;
#X obj 87 125 pack 3 4;
#X text 129 193 attack;
#X text 317 195 decay;
#X msg 87 171 1 \, 0 \$1 0 \, 1 0 \$1;
#X msg 281 171 0 \, 1 0 \$1 \, 0 \$2 \$1;
#X obj 281 271 expr~ pow($v1 \, $f2);
#X obj 88 270 expr~ 1 - pow($v1 \, $f2);
#X obj 434 173 loadbang;
#X obj 434 202 f 4;
#X obj 463 204 f 4;
#X text 364 23 attack curve;
#X obj 484 69 max 0.1;
#X obj 364 68 max 0.1;
#X text 484 24 release curve;
#X obj 484 44 inlet rel_curve;
#X obj 364 44 inlet att_curve;
#X connect 0 0 18 0;
#X connect 1 0 3 1;
#X connect 2 0 13 1;
#X connect 3 0 13 0;
#X connect 7 0 11 0;
#X connect 8 0 1 0;
#X connect 9 0 2 0;
#X connect 11 0 3 0;
#X connect 12 0 19 0;
#X connect 13 0 17 0;
#X connect 13 0 16 0;
#X connect 16 0 12 0;
#X connect 17 0 0 0;
#X connect 18 0 10 0;
#X connect 19 0 10 0;
#X connect 20 0 21 0;
#X connect 20 0 22 0;
#X connect 21 0 19 1;
#X connect 22 0 18 1;
#X connect 24 0 22 0;
#X connect 25 0 21 0;
#X connect 27 0 24 0;
#X connect 28 0 25 0;
#X restore 186 307 pd qad~;
#N canvas 0 22 450 300 graph3 0;
#X array var 500 float 2;
#X coords 0 1 500 -1 200 140 1;
#X restore 552 468 graph;
#X obj 209 518 tabwrite~ var;
#X obj 289 403 random 6;
#X obj 297 426 + 1;
#X floatatom 304 449 5 0 0 0 - - -;
#N canvas 97 3 650 643 var~ 0;
#X msg 64 211 1;
#X msg 32 213 0;
#X obj 2 4 inlet trigger;
#X msg 321 248 1;
#X msg 364 233 0;
#X obj 348 501 outlet~;
#X obj 102 366 snapshot~;
#X obj 40 432 +~;
#X obj 40 384 *~;
#X obj 347 409 *~;
#X obj 150 6 inlet attack;
#X obj 288 10 inlet release;
#X obj 40 238 pack f \$1;
#X obj 364 253 pack f \$2;
#X obj 491 17 inlet curve;
#X obj 21 110 del \$1;
#X obj 479 503 outlet switch;
#X obj 288 33 max 0.1;
#X obj 150 27 max 0.1;
#X obj 206 122 1;
#X obj 250 85 t b f;
#X obj 250 127 + 1;
#X obj 2 26 t b b b b;
#X obj 214 168 0;
#X obj 206 188 change;
#X text 285 121 switch on/off;
#X text 279 129 your parent-patch;
#X text 77 343 avoid clicks ?;
#X obj 40 158 t b b b b;
#X text 67 108 <-_+/-20ms?;
#X obj 213 149 del;
#X obj 250 108 + \$2;
#X obj 201 86 \$1;
#X obj 201 66 loadbang;
#X obj 102 388 - 1;
#X obj 102 408 * -1;
#X obj 364 273 vline~;
#X obj 40 263 vline~;
#X obj 491 41 max 0.6;
#X obj 364 296 expr~ pow($v1 \, $f2);
#X obj 491 274 f \$3;
#X obj 232 264 f \$3;
#X obj 41 285 expr~ 1 - pow($v1 \, $f2);
#X connect 0 0 37 0;
#X connect 1 0 12 0;
#X connect 2 0 22 0;
#X connect 3 0 36 0;
#X connect 4 0 13 0;
#X connect 6 0 7 1;
#X connect 6 0 34 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 9 0 5 0;
#X connect 9 0 6 0;
#X connect 10 0 18 0;
#X connect 11 0 17 0;
#X connect 12 0 37 0;
#X connect 13 0 36 0;
#X connect 14 0 38 0;
#X connect 15 0 4 0;
#X connect 17 0 13 1;
#X connect 17 0 20 0;
#X connect 18 0 12 1;
#X connect 18 0 15 1;
#X connect 18 0 31 0;
#X connect 19 0 24 0;
#X connect 20 0 31 0;
#X connect 20 1 31 1;
#X connect 21 0 30 1;
#X connect 22 0 30 0;
#X connect 22 1 15 0;
#X connect 22 2 28 0;
#X connect 22 3 19 0;
#X connect 23 0 24 0;
#X connect 24 0 16 0;
#X connect 28 0 1 0;
#X connect 28 1 3 0;
#X connect 28 2 0 0;
#X connect 28 3 6 0;
#X connect 30 0 23 0;
#X connect 31 0 21 0;
#X connect 32 0 31 0;
#X connect 33 0 32 0;
#X connect 34 0 35 0;
#X connect 35 0 8 1;
#X connect 36 0 39 0;
#X connect 37 0 42 0;
#X connect 38 0 40 0;
#X connect 38 0 41 0;
#X connect 39 0 9 1;
#X connect 40 0 39 1;
#X connect 41 0 42 1;
#X connect 42 0 8 0;
#X restore 236 454 pd var~;
#X msg 172 61 400;
#X text 321 435 <-6 is most like curve from ead;
#X floatatom 362 401 5 0 0 0 - - -;
#X floatatom 223 287 5 0 0 2 att_cur - -;
#X floatatom 275 287 5 0 0 2 rel_cur - -;
#X obj 362 358 loadbang;
#X msg 362 380 6;
#X connect 0 0 14 0;
#X connect 1 0 0 0;
#X connect 1 0 7 0;
#X connect 1 0 14 0;
#X connect 1 0 15 0;
#X connect 1 0 18 0;
#X connect 1 0 19 0;
#X connect 1 0 25 0;
#X connect 1 0 21 0;
#X connect 2 0 1 1;
#X connect 3 0 0 1;
#X connect 3 0 7 1;
#X connect 3 0 19 1;
#X connect 4 0 0 2;
#X connect 4 0 7 2;
#X connect 4 0 19 2;
#X connect 5 0 1 0;
#X connect 6 0 1 0;
#X connect 7 0 15 0;
#X connect 10 0 11 0;
#X connect 10 0 12 0;
#X connect 10 0 26 0;
#X connect 10 0 13 0;
#X connect 10 0 16 0;
#X connect 11 0 3 0;
#X connect 11 0 25 1;
#X connect 12 0 4 0;
#X connect 12 0 25 2;
#X connect 16 0 6 0;
#X connect 19 0 18 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 23 0 25 3;
#X connect 25 0 21 0;
#X connect 26 0 2 0;
#X connect 28 0 25 3;
#X connect 29 0 19 3;
#X connect 30 0 19 4;
#X connect 31 0 32 0;
#X connect 32 0 28 0;