summaryrefslogtreecommitdiff
path: root/midi/midi.ha
diff options
context:
space:
mode:
Diffstat (limited to 'midi/midi.ha')
-rw-r--r--midi/midi.ha7
1 files changed, 4 insertions, 3 deletions
diff --git a/midi/midi.ha b/midi/midi.ha
index 5e99f0d..fd7a843 100644
--- a/midi/midi.ha
+++ b/midi/midi.ha
@@ -91,6 +91,7 @@ export fn playnote(d: vlen, n: note, vel: u8 = 0x40, oct: uint = 0) (event, even
return (eon, eoff);
};
+export fn noteon(d: vlen, n: note, vel: u8 = 0x40, oct: uint = 0) event = {
const np = n + (oct * 12): u8;
const e = event {
deltatime = d,
@@ -99,10 +100,10 @@ export fn playnote(d: vlen, n: note, vel: u8 = 0x40, oct: uint = 0) (event, even
data = [np, vel],
},
};
- append(c.ev, e);
+ return e;
};
-export fn noteoff(c: *trchunk, d: vlen, n: note, vel: u8 = 0x40, oct: uint = 0) void = {
+export fn noteoff(d: vlen, n: note, vel: u8 = 0x40, oct: uint = 0) event= {
const np = n + (oct * 12): u8;
const e = event {
deltatime = d,
@@ -111,7 +112,7 @@ export fn noteoff(c: *trchunk, d: vlen, n: note, vel: u8 = 0x40, oct: uint = 0)
data = [np, vel],
},
};
- append(c.ev, e);
+ return e;
};
export fn writeheader(h: io::handle, c: hchunk) void = {