severak
/
falco
2
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

saving files...

This commit is contained in:
severak 2019-10-13 01:37:39 +02:00
parent 703627b56a
commit 8b32770e14
1 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
apps/drumsheet.lua
View File

@ -30,6 +30,8 @@ pat_b = iup.button{title="PAT B"}
pat_c = iup.button{title="PAT C"}
pat_d = iup.button{title="PAT D"}
pat_rec = iup.button{title="PAT REC"}
pat_load = iup.button{title="load"}
pat_save = iup.button{title="save"}
matrix = iup.matrix{numcol=32, numlin=9, widthdef=10}
matrix.resizematrix = "YES"
@ -49,9 +51,9 @@ bpm = iup.text{spin="YES", value="120"}
dlg = iup.dialog{
iup.vbox{
iup.hbox{pat_a, pat_b, pat_c, pat_d, pat_rec; gap=5},
iup.hbox{pat_a, pat_b, pat_c, pat_d, pat_rec ,pat_load, pat_save; gap=5},
iup.hbox{matrix},
iup.hbox{playbtn, stopbtn, iup.label{title="BPM: "} , bpm; alignment="ACENTER", gap="5"}
iup.hbox{playbtn, stopbtn, iup.label{title="tempo: "} , bpm; alignment="ACENTER", gap="5"}
}
; title = "Drumsheets", size = "560x170"
}
@ -191,6 +193,29 @@ function pat_d:action()
pat_recall(4)
end
-- saving & loading
function pat_save:action()
local fname, status = iup.GetFile("./*.csv")
if status > -1 then
local fh = io.open(fname, "w+")
fh:write("DRUMSHEET\n")
fh:write("tempo,"..bpm.value.."\n")
fh:write("INSTRUMENTS\n")
for i=1,#instruments do
fh:write(instruments[i][1] .. "," .. instruments[i][2] .. "\n")
end
-- todo pat_write nebo loop
if #patterns[1] > 1 then
fh:write("PAT A\n")
for i=1,#patterns[1] do
fh:write(table.concat(patterns[1][i],",") .. "\n")
end
end
fh:close()
end
end
-- main program