-
Notifications
You must be signed in to change notification settings - Fork 0
/
voice~.pd
58 lines (58 loc) · 1.53 KB
/
voice~.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
#N canvas 252 -1058 1050 918 12;
#X obj 110 23 inlet;
#X obj 110 55 unpack 0 0, f 14;
#X obj 250 108 / 127;
#X obj 110 138 osc~;
#X obj 305 501 r loadbang-s1;
#X msg 305 540 0;
#X obj 191 577 *~;
#X obj 110 106 mtof;
#X obj 191 610 outlet~;
#X text 380 40 \$1 is voice number (from 1) \, \$2 is module id.;
#X text 170 23 Note \, velocity;
#X obj 384 211 t f f;
#X obj 419 239 * 0.8;
#X obj 250 140 select 0;
#X obj 289 414 vline~;
#X obj 479 100 inlet;
#X text 496 130 Sustain;
#X obj 596 100 inlet;
#X obj 596 129 s shape-\$1-\$2;
#X obj 391 414 r shape-\$1-\$2;
#X obj 69 454 expr~ pow(abs($v1) \, $f2) * if($v1 < 0 \, -1 \, 1);
#X msg 392 368 \$1 50 \, \$2 50 50 \, 0 \$3 \$4;
#X msg 250 251 0 \$1;
#X obj 250 220 v release-\$2;
#X obj 512 280 v release-\$2;
#X obj 480 244 t a b;
#X text 560 330 \$1 = Vol \, \$2 = 0.8 vol \, \$3 = sustain \, \$4
= release;
#X text 510 180 Envelope: 50ms to full volume \, 50ms to 0.8 volume
\, then slow decline (sustain) and release., f 50;
#X obj 392 327 pack f f f f;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 1 1 2 0;
#X connect 2 0 13 0;
#X connect 3 0 20 0;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 8 0;
#X connect 7 0 3 0;
#X connect 11 0 28 0;
#X connect 11 1 12 0;
#X connect 12 0 28 1;
#X connect 13 0 23 0;
#X connect 13 1 11 0;
#X connect 14 0 6 1;
#X connect 15 0 25 0;
#X connect 17 0 18 0;
#X connect 19 0 20 1;
#X connect 20 0 6 0;
#X connect 21 0 14 0;
#X connect 22 0 14 0;
#X connect 23 0 22 0;
#X connect 24 0 28 3;
#X connect 25 0 28 2;
#X connect 25 1 24 0;
#X connect 28 0 21 0;