-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdkgong~.pd
222 lines (222 loc) · 5.09 KB
/
dkgong~.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
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
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
#N canvas 503 182 1256 447 12;
#X obj 562 367 outlet~;
#N canvas 397 206 1238 694 dkgong1-env 0;
#X obj 97 415 pack f f f;
#X obj 132 361 +;
#X obj 98 329 t f f;
#X msg 95 465 1 \$1 \, 0 \$3 \$2;
#X obj 95 490 vline~;
#X obj 102 209 t f f f;
#X obj 255 200 t f f;
#X obj 266 384 pack f f;
#X msg 272 419 1 \$1 \, 0 \$2 \$1;
#X obj 272 444 vline~;
#X obj 456 246 t f f;
#X obj 503 313 * 2;
#X obj 511 345 +;
#X obj 463 148 t f f f, f 20;
#X msg 456 466 0.3 \$1 \, 1 \$1 \$1 \, 0.5 \$3 \$2 \, 0 \$5 \$4;
#X obj 456 441 pack f f f f f, f 36;
#X obj 456 491 vline~;
#X msg 765 376 1 \$1 \, 0 \$2 \$1;
#X obj 749 210 f 2;
#X obj 831 232 - 2;
#X obj 769 305 pack f f;
#X obj 758 157 t b f;
#X obj 765 401 vline~;
#X obj 194 107 t f f f f, f 43;
#X obj 765 426 *~;
#X obj 765 451 *~;
#X obj 95 515 outlet~;
#X obj 272 469 outlet~;
#X obj 456 516 outlet~;
#X obj 765 476 outlet~;
#X obj 98 304 * 0.75;
#X obj 153 331 * 0.24;
#X obj 213 324 * 0.01;
#X obj 266 359 * 0.02;
#X obj 353 365 * 0.98;
#X obj 460 213 * 0.15;
#X obj 546 290 * 0.45;
#X obj 611 278 * 0.25;
#X obj 192 70 f 2000;
#X obj 613 28 inlet;
#X text 664 33 DURATION (ms);
#X text 261 38 trigger;
#X obj 190 20 inlet;
#X obj 190 45 bang;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 3 0 4 0;
#X connect 4 0 26 0;
#X connect 5 0 30 0;
#X connect 5 1 31 0;
#X connect 5 2 32 0;
#X connect 6 0 33 0;
#X connect 6 1 34 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 27 0;
#X connect 10 0 15 0;
#X connect 10 1 11 0;
#X connect 11 0 12 0;
#X connect 11 0 15 1;
#X connect 12 0 15 2;
#X connect 13 0 35 0;
#X connect 13 1 36 0;
#X connect 13 2 37 0;
#X connect 14 0 16 0;
#X connect 15 0 14 0;
#X connect 16 0 28 0;
#X connect 17 0 22 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 17 0;
#X connect 21 0 18 0;
#X connect 21 1 19 0;
#X connect 22 0 24 0;
#X connect 22 0 24 1;
#X connect 23 0 5 0;
#X connect 23 1 6 0;
#X connect 23 2 13 0;
#X connect 23 3 21 0;
#X connect 24 0 25 0;
#X connect 24 0 25 1;
#X connect 25 0 29 0;
#X connect 30 0 2 0;
#X connect 31 0 1 1;
#X connect 32 0 0 2;
#X connect 33 0 7 0;
#X connect 34 0 7 1;
#X connect 35 0 10 0;
#X connect 36 0 12 1;
#X connect 36 0 15 3;
#X connect 37 0 15 4;
#X connect 38 0 23 0;
#X connect 39 0 38 1;
#X connect 42 0 43 0;
#X connect 43 0 38 0;
#X restore 699 214 pd dkgong1-env;
#N canvas 165 293 1292 643 dkgong1-osc 0;
#X obj 279 107 * 1.16;
#X obj 410 127 * 3.14;
#X obj 533 131 * 1.005;
#X obj 270 259 osc~;
#X obj 411 248 osc~;
#X obj 217 54 t f f f f, f 40;
#X obj 339 284 * 0.3;
#X obj 282 137 t f f;
#X obj 266 408 *~;
#X obj 268 297 *~ 1;
#X obj 410 152 t f f;
#X obj 465 271 * 0.38;
#X obj 411 273 *~ 1;
#X obj 409 362 *~;
#X obj 533 156 t f f;
#X obj 594 204 * 0.5;
#X obj 533 181 osc~;
#X obj 539 250 *~ 1;
#X obj 539 314 *~;
#X obj 196 540 osc~;
#X obj 183 427 sig~;
#X obj 203 506 +~;
#X obj 196 565 *~;
#X obj 229 18 inlet;
#X text 283 25 freq (Hz);
#X obj 593 6 inlet~;
#X text 647 6 fm env1;
#X obj 747 5 inlet~;
#X text 808 4 fm env2;
#X obj 898 3 inlet~;
#X text 956 4 fm env3;
#X obj 1054 8 inlet~;
#X text 1114 6 main env;
#X obj 196 590 outlet~;
#X connect 0 0 7 0;
#X connect 1 0 10 0;
#X connect 2 0 14 0;
#X connect 3 0 9 0;
#X connect 4 0 12 0;
#X connect 5 0 20 0;
#X connect 5 1 0 0;
#X connect 5 2 1 0;
#X connect 5 3 2 0;
#X connect 6 0 9 1;
#X connect 7 0 3 0;
#X connect 7 1 6 0;
#X connect 8 0 21 1;
#X connect 9 0 8 0;
#X connect 10 0 4 0;
#X connect 10 1 11 0;
#X connect 11 0 12 1;
#X connect 12 0 13 0;
#X connect 13 0 21 1;
#X connect 14 0 16 0;
#X connect 14 1 15 0;
#X connect 15 0 17 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 21 1;
#X connect 19 0 22 0;
#X connect 20 0 21 0;
#X connect 21 0 19 0;
#X connect 22 0 33 0;
#X connect 23 0 5 0;
#X connect 25 0 8 1;
#X connect 27 0 13 1;
#X connect 29 0 18 1;
#X connect 31 0 22 1;
#X restore 568 295 pd dkgong1-osc;
#X obj 869 61 inlet;
#X text 918 58 DURATION(ms);
#X obj 607 65 inlet;
#X text 11 2 dkgong1~;
#X text 17 23 gong fm synthesizer;
#X text 12 106 http://varioussmallfires.blogspot.com/2012/01/supercollider-gong.html
;
#X text 12 80 ported from Stephen Tetley's SuperCollider code;
#X text 17 205 INLET:;
#X text 16 286 ARGS:;
#X text 14 362 OUTLET:;
#X obj 521 49 loadbang;
#X text 658 60 trigger;
#X obj 592 136 t b b;
#X text 16 306 pitch(Hz)/duration(ms);
#X obj 473 162 f \$1;
#X msg 492 223 146;
#X obj 556 243 f, f 7;
#X obj 910 123 f \$2;
#X obj 910 148 moses 1e-15;
#X obj 473 191 moses 1e-15;
#X msg 910 173 2000;
#X obj 733 62 inlet;
#X text 783 53 freq(Hz);
#X text 17 228 trigger/freq(hz)/duration(ms);
#X text 17 328 defaults(146 \, 2000);
#X text 14 385 signal~;
#X text 1116 18 derek kwan 2017;
#X text 1115 41 pdksynth;
#X text 1115 66 gpl v 3;
#X connect 1 0 2 1;
#X connect 1 1 2 2;
#X connect 1 2 2 3;
#X connect 1 3 2 4;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 5 0 15 0;
#X connect 13 0 17 0;
#X connect 13 0 20 0;
#X connect 15 0 19 0;
#X connect 15 1 1 0;
#X connect 17 0 22 0;
#X connect 18 0 19 1;
#X connect 19 0 2 0;
#X connect 20 0 21 0;
#X connect 21 0 23 0;
#X connect 21 1 1 1;
#X connect 22 0 18 0;
#X connect 22 1 19 1;
#X connect 23 0 1 1;
#X connect 24 0 19 1;