2012-03-01 00:07:13 +01:00
|
|
|
<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, 38 ;Synth bass 1
|
2012-03-02 21:03:35 +01:00
|
|
|
fluidProgramSelect gifluid, 2, ifont, 0, 2 ;Electric piano
|
|
|
|
fluidProgramSelect gifluid, 3, ifont, 8, 50 ;Synth strings
|
2012-03-01 00:07:13 +01:00
|
|
|
fluidProgramSelect gifluid, 10, ifont, 128, 25 ;TR-808 drums
|
|
|
|
|
2012-03-02 21:03:35 +01:00
|
|
|
instr 1, 2, 3, 10
|
2012-03-01 00:07:13 +01:00
|
|
|
ikey notnum
|
|
|
|
ivel ampmidi 127
|
|
|
|
fluidNote gifluid, p1, ikey, ivel
|
|
|
|
endin
|
|
|
|
|
|
|
|
instr 99
|
2012-03-02 21:03:35 +01:00
|
|
|
iamp init 5
|
2012-03-01 00:07:13 +01:00
|
|
|
al, ar fluidOut gifluid
|
2012-03-02 21:03:35 +01:00
|
|
|
outs al * iamp, ar * iamp
|
2012-03-01 00:07:13 +01:00
|
|
|
endin
|
|
|
|
</CsInstruments>
|
|
|
|
<CsScore>
|
|
|
|
i 99 0 3600
|
|
|
|
e 1
|
|
|
|
</CsScore>
|
|
|
|
</CsoundSynthesizer>
|