如何在Csound

Question

使用函数oscil，我定义了一个具有给定频率和幅度的振荡器组：

instr 1
    a1 oscil .3, 110
        outs a1,a1
    a2 oscil .2, 220
        outs a2,a2
    a3 oscil .1, 330
        outs a3,a3
endin

我知道我可以在orchestra部分设置持续时间。但是，如何为不同的振荡提供不同的持续时间？我可以在instrument定义中执行此操作吗？因为我希望能够在orchestra中用一行来调用乐器（3个振荡器）：

;instr start duration
i 1 0 ;duration of oscils defined under instr 1
e

Answer 1

仪器实例中的操作码实例都共享相同的处理上下文（即，p3 /持续时间）。可以使用一些不同的策略来获得不同的持续时间：

1. 使用多个仪器实例，每个仪器有一个振荡器。这可能是最灵活的，但最冗长。

2. 使用某种形式的包络并将其与每个振荡器的输出相乘。例如：

   instr 1
     p3 = 4
     a1 oscil .3, 110
     aenv1 linseg 1, 3, 1, 0.01, 0, 0.99, 0 
     a1 *= aenv1
     outs a1,a1
     ...
   endin
   

在＃2中，持续时间由仪器设定。 linseg用作包络并写入持续时间。然后可以使用多个linseg / vib对并手写每个部分的持续时间。

Answer 2

想到的是将不同的信封应用于您在仪器内创建的每个正弦曲线：

0dbfs = 1

instr 1
kFirstEnvelope line 0, p3, 1
kSecondEnvelope line 0.5, p3, 0.5
kThirdEnvelope line 1, p3, 0
aFirstSine oscili 1, 440
aSecondSine oscili 1, 660
aThirdSine oscili 1, 880
aMix balance aFirstSine * kFirstEnvelope + aSecondSine * kSecondEnvelope + aThirdSine * kThirdEnvelope, a(0.15)
outs aMix, aMix
endin

然后你可以用一行代码从乐谱中调出instr 1，你可能想要提供比上面更有趣的信封。

i 1 0 10

但是，如果您正在进行加性合成，更优雅的方法是在event_i循环内使用until从单独的工具触发多个得分事件。< / p>

instr 2
seed 0
iNoteIndex = 0
iNoteCount = 30
until iNoteIndex == iNoteCount do
iRandomStart = random(0, p3)
iRandomDuration = random(1.2, 0.5 * p3)
event_i "i", 3, iRandomStart, iRandomDuration
iNoteIndex += 1
enduntil
endin

instr 3
iAttack = .2
iDecay = .2
iSustain = .4
iRelease = 0.6
aSineWave oscili 0.1, random(200, 4000)
kEnvelope adsr iAttack, iDecay, iSustain, iRelease
outs aSineWave * kEnvelope
endin

然后，您可以从分数中调用instr 2，这将会调用instr 3。

i 2 0 10

干杯