stn := @use("../../../../libraries/stn/src/lib.hb");
.{string, log} := stn;
.{Vec2} := stn.math

render := @use("../../../../libraries/render/src/lib.hb");
.{Surface} := render;
.{Font} := render.text

Label := struct {
	magic: uint,
	is_dirty: bool,
	surface: Surface,
	text: ^u8,
	text_length: uint,
}

set_label_text := fn(label: Label, text: ^u8): void {
	text_length := string.length(text)

	label.is_dirty = true
	label.text = text
	label.text_length = text_length
}

render_label_to_surface := fn(surface: Surface, label: Label, font: Font, pos: Vec2(uint)): void {
	if label.is_dirty {
		render.clear(label.surface, render.black)
		render.put_text(label.surface, font, .(0, 0), render.white, label.text)
	}
	render.put_surface(surface, label.surface, pos, false)
}

new_label := fn(text: ^u8): Label {
	text_surface := render.new_surface(1024, 20)
	text_length := string.length(text)
	label := Label.(3, true, text_surface, text, text_length)
	return label
}