sig
  type buffer
  val create_buffer : float -> Renderer.display -> Renderer.Renderer.buffer
  val begin_draw : Renderer.Renderer.buffer -> unit
  val end_draw : Renderer.Renderer.buffer -> unit
  val clear : Renderer.Renderer.buffer -> unit
  val event_queue : Renderer.Renderer.buffer -> Renderer.event list
  val width : Renderer.Renderer.buffer -> int
  val height : Renderer.Renderer.buffer -> int
  val render : Renderer.Renderer.buffer -> Shape.t -> unit
end