ableos/sysdata/programs/render_example/src/examples/image.hb

.{Vec2} := @use("../../../../libraries/stn/src/lib.hb").math
render := @use("../../../../libraries/render/src/lib.hb")

/* expected result:
   a cute image bounces around the screen */

bmp := @embed("./able.bmp")

example := fn(): void {
	render.init()
	image := render.image.from_bmp(@bitcast(&bmp))
	vel := Vec2(int).(1, 1)
	pos := Vec2(int).(100, 100)
	width := render.width()
	height := render.height()
	loop {
		render.put_image(image, pos)
		render.sync()
		render.clear(render.black)

		if pos.x == 0 | pos.x == width - image.width {
			vel.x = -vel.x
		}
		if pos.y == 0 | pos.y == height - image.height {
			vel.y = -vel.y
		}

		pos += vel
	}
	return
}