cmd/example/simple.ha


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

use midi;
use os;

export fn main() void = {

	const th = midi::hchunk {
		chk = midi::HEADERCHUNK,
		format = 0,
		ntrks = 1,
		division = 4,
	};

	let tc = midi::newtrack();
	defer midi::finishtrack(tc);
	append(tc.ev, midi::noteon(0, midi::note::C));
	append(tc.ev, midi::noteoff(4, midi::note::C));
	midi::writeheader(os::stdout, th);
	midi::writechunk(os::stdout, tc);
};