diff options
Diffstat (limited to 'tests/examplefiles/example.scd')
-rw-r--r-- | tests/examplefiles/example.scd | 76 |
1 files changed, 0 insertions, 76 deletions
diff --git a/tests/examplefiles/example.scd b/tests/examplefiles/example.scd deleted file mode 100644 index a27247e9..00000000 --- a/tests/examplefiles/example.scd +++ /dev/null @@ -1,76 +0,0 @@ -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] - )) -]); |