require "luaCsnd6"

local ORC = [[
sr = 44100
ksmps = 1000
nchnls = 2
0dbfs = 1

; fno time size gen args
gi1 ftgen 1, 0, 4095, 10, 1
gi2 ftgen 2, 0, 4095, -7, 1, 128, 1
gi3 ftgen 3, 0,  4095, -7, 50, 64, 100, 64, 0
gi4 ftgen 4, 0,  4095, -7, 1, 128, 1
gi5 ftgen 5, 0,  4095, -7, 0, 128, 0

instr 1
iamp = p4
ifrq = cpsmidinn(p5)
ipos = 1
imass = 2
istiff = 3
idamp = 4
ivel = 5
a1 scantable iamp, ifrq, ipos, imass, istiff, idamp, ivel
a1 dcblock2 a1 * 8000
outs a1, a1
endin
]]

local SCO = [[
i 1 0 4 0.5 60
;i 100 0 -1
]]

local cs = luaCsnd6.Csound()
local pt = luaCsnd6.CsoundPerformanceThread(cs)

cs:SetOption("-m0")
cs:SetOption("-d")
cs:SetOption("-odac")

cs:Start()
pt:Play()

cs:CompileOrc(ORC)

cs:ReadScore(SCO)
pt:Join()

--cs:Cleanup()