.{clear, create_buffer, present} := @use("../lib.hb")

/* expected result: (EPILEPSY WARNING)
   the screen rapidly flashes red then black */

example := fn(): void {
	// creates a back buffer, which we write to, to avoid screen flickering
	buffer := create_buffer()
	loop {
		// screen go red
		clear(buffer, .(0, 0, 255, 0))
		// show the red
		present(buffer)
		// screen go black
		clear(buffer, .(0, 255, 255, 0))
		// show the black
		present(buffer)
	}
	return
}