33 lines
655 B
Plaintext
33 lines
655 B
Plaintext
<CsoundSynthesizer>
|
|
<CsInstruments>
|
|
sr = 48000
|
|
ksmps = 32
|
|
nchnls = 2
|
|
0dbfs = 1
|
|
|
|
; Use Fluidsynth to render the score using soundfonts
|
|
|
|
gifluid fluidEngine; start fluidsynth engine
|
|
ifont fluidLoad "/usr/share/sounds/sf2/FluidR3_GM.sf2", gifluid, 1
|
|
fluidProgramSelect gifluid, 1, ifont, 0, 98 ; Crystal
|
|
fluidProgramSelect gifluid, 2, ifont, 0, 89 ; Warm pad
|
|
|
|
instr 1, 2
|
|
ikey notnum
|
|
ivel ampmidi 127
|
|
fluidNote gifluid, p1, ikey, ivel
|
|
endin
|
|
|
|
instr 99
|
|
iamp init 1.6
|
|
al, ar fluidOut gifluid
|
|
arl, arr freeverb al, ar, 0.9, 0.1, sr
|
|
outs (arl + al) * iamp, (arr + ar) * iamp
|
|
endin
|
|
</CsInstruments>
|
|
<CsScore>
|
|
i 99 0 3600
|
|
e 1
|
|
</CsScore>
|
|
</CsoundSynthesizer>
|