Wavetable/note.pd at master · Chris-TopherW/Wavetable · GitHub

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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
#N canvas 626 110 718 526 10;
#X obj 124 27 inlet;
#X obj 161 350 outlet~;
#X obj 162 288 *~;
#X obj 162 179 *~ 600;
#X text 254 149 44100/tabLength;
#X text 219 179 tabLength;
#X obj 164 153 phasor~ 73.5;
#X obj 322 184 / 127;
#X obj 137 123 expr 73.5 * $f1;
#X obj 133 96 expr pow(2 \, ($f1/12));
#X obj 128 76 - 36;
#X obj 125 50 unpack 0 0;
#X obj 162 210 *~ 1;
#X obj 26 150 r pitchMod;
#N canvas 0 50 935 609 adsr 0;
#X obj 614 69 > 0;
#X obj 614 91 sel 1 0;
#X obj 614 124 t b b;
#X obj 614 173 timer;
#X text 689 89 if 1- set timer time to 0;
#X floatatom 612 200 5 0 0 0 - - -, f 5;
#X text 699 99 if 0- output time since attack;
#X text 471 198 time since attack;
#X obj 679 164 f;
#X obj 710 194 +;
#X obj 613 250 t f f;
#X obj 613 299 >= 0;
#X obj 417 26 s \$0-velocity;
#X obj 614 43 r \$0-velocity;
#X text 610 17 releaseSection;
#X obj 418 6 inlet;
#X obj 766 249 r decay;
#X text 721 228 =time since a/d finished;
#X obj 564 377 f;
#X obj 599 357 r release;
#X text 434 297 if ad fin- pos \, else neg;
#X obj 710 402 f;
#X obj 833 352 r sustain;
#X obj 710 429 pack f f f;
#X obj 781 401 r release;
#X text 640 492 sets to sustain volume in time left in ar then triggers
release;
#X obj 226 280 r \$0-velocity;
#X obj 226 302 sel 0;
#X obj 258 325 t f f;
#X obj 256 433 pack f f f f f;
#X obj 312 356 *;
#X obj 312 311 r attack;
#X text 87 326 scale sustain by in amp;
#X obj 338 335 r sustain;
#X obj 344 362 r decay;
#X obj 364 393 r attack;
#X obj 693 138 r attack;
#X obj 744 164 r decay;
#X obj 564 496 vline~;
#X obj 566 533 outlet~;
#X obj 777 273 r attack;
#X floatatom 704 349 5 0 0 0 - - -, f 5;
#X obj 746 287 -;
#X obj 746 309 -;
#X obj 613 321 sel 1 0;
#X obj 613 228 expr $f1 - $f2;
#X msg 566 402 0 \$1;
#X msg 343 468 \$1 \$2 \, \$3 \$4 \$2;
#X obj 814 376 *;
#X obj 818 321 r \$0-velocity;
#X obj 680 367 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 751 331 * -1;
#X msg 710 461 \$1 \$2 \$2 \, 0 \$3 \$2;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 1;
#X connect 2 0 3 0;
#X connect 2 1 8 0;
#X connect 3 0 5 0;
#X connect 5 0 45 0;
#X connect 8 0 9 0;
#X connect 9 0 45 1;
#X connect 10 0 11 0;
#X connect 10 1 42 0;
#X connect 11 0 44 0;
#X connect 13 0 0 0;
#X connect 15 0 12 0;
#X connect 16 0 42 1;
#X connect 18 0 46 0;
#X connect 19 0 18 1;
#X connect 21 0 23 0;
#X connect 22 0 48 1;
#X connect 23 0 52 0;
#X connect 24 0 23 2;
#X connect 26 0 27 0;
#X connect 27 1 28 0;
#X connect 28 0 29 0;
#X connect 28 1 30 0;
#X connect 29 0 47 0;
#X connect 30 0 29 2;
#X connect 31 0 29 1;
#X connect 33 0 30 1;
#X connect 34 0 29 3;
#X connect 35 0 29 4;
#X connect 36 0 8 1;
#X connect 37 0 9 1;
#X connect 38 0 39 0;
#X connect 40 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 41 0;
#X connect 43 0 51 0;
#X connect 44 0 18 0;
#X connect 44 1 50 0;
#X connect 45 0 10 0;
#X connect 46 0 38 0;
#X connect 47 0 38 0;
#X connect 48 0 21 1;
#X connect 49 0 48 0;
#X connect 50 0 21 0;
#X connect 51 0 23 1;
#X connect 52 0 38 0;
#X restore 322 244 pd adsr;
#X obj 163 236 tabread4~ current_wave;
#X connect 0 0 11 0;
#X connect 2 0 1 0;
#X connect 3 0 12 0;
#X connect 6 0 3 0;
#X connect 7 0 14 0;
#X connect 8 0 6 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
#X connect 11 1 7 0;
#X connect 12 0 15 0;
#X connect 13 0 12 1;
#X connect 14 0 2 1;
#X connect 15 0 2 0;