vadsr~.pd


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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111

#N canvas 111 20 661 475 10;
#X obj 189 504 outlet~;
#X obj 109 5 inlet;
#X obj 95 187 line~;
#X obj 326 191 line~;
#X obj 205 188 line~;
#X obj 189 416 *~;
#X obj 189 440 *~;
#X obj 119 153 pack f f;
#X obj 192 153 pack f f;
#X obj 320 157 pack f f;
#X obj 212 71 unpack f f f f;
#X msg 271 154 1;
#X msg 67 148 1;
#X msg 367 119 0;
#X obj 192 108 del;
#X msg 192 131 0;
#X obj 205 318 +~;
#X obj 221 270 expr 1 - $f1;
#X obj 205 294 *~;
#X msg 152 80 bang;
#X obj 67 91 t b b b;
#X obj 93 487 snapshot~;
#X msg 119 132 0;
#X obj 93 378 +~;
#X obj 22 296 expr 1 - $f1;
#X obj 93 355 *~;
#X text 410 19 analog-style envelope generator;
#X msg 358 301 <attack> <decay> <sustain> <release>;
#X text 346 281 to set up:;
#X text 349 371 attack:;
#X msg 420 368 a;
#X text 350 397 release:;
#X msg 420 394 r;
#X text 372 493 Ben Saylor <bsaylor@macalester.edu>;
#X text 357 320 (times are in ms \, sustain level is 0..1);
#X obj 19 148 s \$0-a;
#X obj 159 58 s \$0-r;
#X obj 367 96 r \$0-r;
#X obj 271 132 r \$0-a;
#X obj 93 461 r \$0-snap;
#X obj 121 111 s \$0-snap;
#X obj 240 32 pack \$1 \$2 \$3 \$4;
#X obj 240 7 loadbang;
#X text 356 343 (or give as creation args);
#X obj 337 232 expr~ pow($v1 \, $v2);
#X obj 205 244 expr~ pow($v1 \, $v2);
#X obj 109 28 route a r curves;
#X obj 465 207 sig~ 4;
#X obj 289 208 sig~ 4;
#X obj 145 211 sig~ 4;
#X obj 432 100 unpack f f f;
#X msg 352 421 curves <attack> <decay> <release>;
#X text 364 444 higher values -> more curved;
#X text 388 461 (default is 4 4 4);
#X obj 8 257 expr~ pow($v1 \, $v2) * -1 + 1;
#X connect 1 0 46 0;
#X connect 2 0 54 0;
#X connect 3 0 44 0;
#X connect 4 0 45 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 6 0 21 0;
#X connect 7 0 2 0;
#X connect 8 0 4 0;
#X connect 9 0 3 0;
#X connect 10 0 7 1;
#X connect 10 0 14 1;
#X connect 10 1 8 1;
#X connect 10 2 16 1;
#X connect 10 2 17 0;
#X connect 10 3 9 1;
#X connect 11 0 3 0;
#X connect 11 0 4 0;
#X connect 12 0 2 0;
#X connect 13 0 9 0;
#X connect 14 0 15 0;
#X connect 15 0 8 0;
#X connect 16 0 5 1;
#X connect 17 0 18 1;
#X connect 18 0 16 0;
#X connect 19 0 14 0;
#X connect 20 0 22 0;
#X connect 20 0 35 0;
#X connect 20 1 12 0;
#X connect 20 2 40 0;
#X connect 21 0 23 1;
#X connect 21 0 24 0;
#X connect 22 0 7 0;
#X connect 23 0 5 0;
#X connect 24 0 25 1;
#X connect 25 0 23 0;
#X connect 37 0 13 0;
#X connect 38 0 11 0;
#X connect 39 0 21 0;
#X connect 41 0 10 0;
#X connect 42 0 41 0;
#X connect 44 0 6 1;
#X connect 45 0 18 0;
#X connect 46 0 19 0;
#X connect 46 0 20 0;
#X connect 46 1 36 0;
#X connect 46 2 50 0;
#X connect 46 3 10 0;
#X connect 47 0 44 1;
#X connect 48 0 45 1;
#X connect 49 0 54 1;
#X connect 50 0 49 0;
#X connect 50 1 48 0;
#X connect 50 2 47 0;
#X connect 54 0 25 0;