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
|
Instr("cs.fm.BasicFM", {
arg freq = 440,
amp = 0.9,
gate = 0,
carrierFreqRatio = 1.0,
modulatorFreqRatio = 1.0,
// not sure if having these defaults here actually does anything.
modEnvShape = Env.adsr(
attackTime: 0.05,
decayTime: 0.1,
sustainLevel: 0.5 * amp,
releaseTime: 0.1,
peakLevel: amp,
curve: [4, -4, -2]
),
carrierEnvShape = Env.adsr(
attackTime: 0.05,
decayTime: 0.1,
sustainLevel: 0.5 * amp,
releaseTime: 0.1,
peakLevel: amp,
curve: [4, -4, -2]
);
var carrier,
modulator,
carrierEnv,
modEnv,
out;
modEnv = EnvGen.kr(
envelope: modEnvShape,
gate: gate
);
modulator = modEnv * SinOsc.ar(freq * modulatorFreqRatio);
// carrier sustains until noteoff
carrierEnvShape.releaseNode = 2;
carrierEnv = EnvGen.kr(
envelope: carrierEnvShape,
gate: gate
);
carrier = carrierEnv * SinOsc.ar(
(freq * carrierFreqRatio) + (modulator * freq)
);
// free synth when both carrier and modulator envelopes are done
FreeSelf.kr(Done.kr(carrierEnv) + Done.kr(modEnv) - 1);
out = amp * carrier;
}, [
\freq.asSpec(),
\amp.asSpec(),
\nil,
ControlSpec(0.1, 10),
ControlSpec(0.1, 10),
EnvSpec(Env.adsr(
attackTime: 0.05,
decayTime: 0.1,
sustainLevel: 0.8,
releaseTime: 0.1,
peakLevel: 1.0,
curve: [4, -4, -2]
)),
EnvSpec(Env.adsr(
attackTime: 0.05,
decayTime: 0.1,
sustainLevel: 0.8,
releaseTime: 0.1,
peakLevel: 1.0,
curve: [4, -4, -2]
))
]);
|
