aboutsummaryrefslogtreecommitdiff
path: root/effects/rrad.adsr~.pd
blob: ffed044ee31657ed863b827f8a8e8f2b74c028e2 (plain)
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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
#N canvas 500 433 157 126 10;
#X obj 2 15 cnv 15 150 100 empty \$0-background-cnv empty 20 12 1 14
-228905 -66577 0;
#X obj 433 -3 inlet OSC;
#N canvas 127 377 981 424 saves 0;
#X obj 45 160 originator \$1 \$0;
#X obj 152 132 inlet OSC;
#X obj 47 55 r \$0-substate;
#X obj 15 13 inlet substate;
#X obj 15 35 route substate;
#X obj 159 55 r \$0-copy;
#X msg 159 76 copy;
#X obj 243 50 r \$0-paste;
#X msg 241 71 paste;
#X text 154 15 This is the originator \, including some ready to use
standard functionality.;
#X text 507 56 Put your commun sends here \, if you like.;
#X msg 15 91 setsub \$1;
#X msg 249 184 svdir \$1;
#X obj 250 139 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 250 163 savepanel;
#X obj 152 189 outlet OSC;
#X msg 108 214 svxdir /tmp/svdir.xml;
#X msg 78 241 ldxdir /tmp/svdir.xml;
#X obj 538 176 s \$0-ain;
#X obj 610 176 s \$0-din;
#X obj 682 176 s \$0-sin;
#X obj 776 179 s \$0-rin;
#X obj 536 107 r \$0-a;
#X obj 630 105 r \$0-d;
#X obj 698 106 r \$0-s;
#X obj 769 106 r \$0-r;
#X obj 772 142 commun /r \$0;
#X obj 682 142 commun /s \$0;
#X obj 582 141 commun /d \$0;
#X obj 496 137 commun /a \$0;
#X connect 0 2 15 0;
#X connect 1 0 0 1;
#X connect 2 0 11 0;
#X connect 3 0 4 0;
#X connect 4 0 11 0;
#X connect 4 1 0 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 8 0 0 0;
#X connect 11 0 0 0;
#X connect 12 0 0 0;
#X connect 13 0 14 0;
#X connect 14 0 12 0;
#X connect 16 0 0 0;
#X connect 17 0 0 0;
#X connect 22 0 29 0;
#X connect 23 0 28 0;
#X connect 24 0 27 0;
#X connect 25 0 26 0;
#X connect 26 0 21 0;
#X connect 27 0 20 0;
#X connect 28 0 19 0;
#X connect 29 0 18 0;
#X restore 371 -4 pd saves;
#N canvas 569 61 450 300 cnv.ctl 0;
#X obj 90 188 s \$0-background-cnv;
#X floatatom 108 59 5 100 1000 0 width - -;
#X floatatom 112 83 4 50 500 0 height - -;
#X obj 92 132 pack 0 0;
#X msg 92 159 vis_size \$1 \$2;
#X obj 110 106 t b f;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 5 0 3 0;
#X connect 5 1 3 1;
#X restore 296 -4 pd cnv.ctl;
#X obj 117 34 bng 15 250 50 0 \$0-copy empty copy 0 -6 0 8 -225271
-1 -1;
#X obj 117 62 bng 15 250 50 0 \$0-paste empty paste 0 -6 0 8 -257472
-1 -1;
#X text 184 -4 look! ==>;
#X obj 371 17 outlet OSC;
#X obj 10 37 vsl 8 64 0 100 0 0 \$0-a \$0-ain a 0 -8 1 8 -355 -260818
-143491 0 1;
#X obj 29 37 vsl 8 64 0 127 0 0 \$0-d \$0-din d 0 -8 1 8 -355 -260818
-143491 0 1;
#X obj 49 37 vsl 8 64 0 127 0 0 \$0-s \$0-sin s 0 -8 1 8 -355 -260818
-143491 0 1;
#X obj 69 37 vsl 8 64 0 127 0 0 \$0-r \$0-rin r 0 -8 1 8 -355 -260818
-143491 0 1;
#X obj 189 21 inlet;
#X obj 189 72 outlet~;
#N canvas 0 0 600 400 envelope 0;
#X obj 173 134 r \$0-level;
#X obj 252 35 r \$0-a;
#X obj 293 85 r \$0-d;
#X obj 315 139 r \$0-s;
#X obj 413 132 r \$0-r;
#X obj 25 119 inlet;
#X obj 174 346 outlet~;
#N canvas 231 224 600 400 adsr 0;
#X text 52 50 This patch is used as an abstraction in 25.envelope.pd
;
#X obj 95 108 inlet;
#X obj 298 111 inlet;
#X text 91 79 trigger;
#X obj 95 138 sel 0;
#X obj 144 138 t b;
#X obj 104 359 pack 0 \$2;
#X obj 362 112 inlet;
#X obj 309 301 del \$2;
#X obj 338 324 f \$4;
#X obj 371 369 pack 0 \$3;
#X obj 410 112 inlet;
#X obj 459 111 inlet;
#X obj 504 111 inlet;
#X msg 95 191 stop;
#X obj 517 360 pack 0 \$5;
#X text 378 86 Traditional A \, D \, S \, R;
#X text 296 88 level;
#X text 32 302 ATTACK;
#X obj 371 449 outlet~;
#X text 7 325 recall level;
#X text 7 345 and pack with;
#X text 8 365 attack time;
#X text 28 124 if zero;
#X text 29 141 release;
#X text 17 183 and cancel;
#X text 17 199 decay;
#X text 148 120 bang if attack;
#X text 183 294 on attack \, set a;
#X text 147 307 delay to go to sustain;
#X text 189 324 recall sustain value;
#X text 185 347 multiply by overall level;
#X text 220 370 pack with decay time;
#X text 510 386 on release ramp;
#X text 511 403 back to zero;
#X text 63 12 adsr - arguments: level \, attack time \, decay time
\, sustain level \, release time;
#X text 17 487 When you send this patch a nonzero trigger it schedules
a line~ to do an attack and decay \, and if zero \, it starts the release
ramp.;
#X text 18 533 Objects such as f and pack can be given dollar sign
arguments to initialize their contents from adsr's creation arguments.
Inlets are supplied to update them on the fly.;
#X obj 104 334 f;
#X obj 371 422 vline~;
#X obj 364 346 * 1;
#X connect 1 0 4 0;
#X connect 2 0 38 0;
#X connect 2 0 40 1;
#X connect 4 0 14 0;
#X connect 4 0 15 0;
#X connect 4 1 5 0;
#X connect 5 0 8 0;
#X connect 6 0 39 0;
#X connect 7 0 6 1;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 9 0 40 0;
#X connect 10 0 39 0;
#X connect 11 0 10 1;
#X connect 12 0 9 1;
#X connect 13 0 15 1;
#X connect 14 0 8 0;
#X connect 15 0 39 0;
#X connect 38 0 6 0;
#X connect 39 0 19 0;
#X connect 40 0 10 0;
#X restore 174 292 pd adsr -----------;
#X obj 100 181 s \$0-level;
#X obj 253 62 scale 0 127 0 200;
#X obj 308 164 scale 0 127 0 1;
#X obj 289 119 scale 0 127 0 200;
#X obj 172 168 scale 0 127 0 1;
#X obj 366 202 scale 0 127 0 1000;
#X obj 74 149 select 0;
#X connect 0 0 12 0;
#X connect 1 0 9 0;
#X connect 2 0 11 0;
#X connect 3 0 10 0;
#X connect 4 0 13 0;
#X connect 5 0 14 0;
#X connect 5 0 7 0;
#X connect 7 0 6 0;
#X connect 9 0 7 2;
#X connect 10 0 7 4;
#X connect 11 0 7 3;
#X connect 12 0 7 1;
#X connect 13 0 7 5;
#X connect 14 1 8 0;
#X restore 189 47 pd envelope;
#X text 23 -1 Graphical ADSR;
#X obj 95 37 vsl 8 64 0 127 0 0 empty \$0-level lvl 0 -8 1 8 -62784
-262144 -258699 5361 1;
#X obj 116 90 nbx 2 14 -1e+37 1e+37 0 0 \$0-substate \$0-parentstate
preset 0 -6 0 8 -261681 -1 -1 0 256;
#X connect 1 0 2 1;
#X connect 2 0 7 0;
#X connect 12 0 14 0;
#X connect 14 0 13 0;
#X coords 0 0 1 1 152 115 1;