functor (R : Renderer.Renderer) ->
  sig
    module R :
      sig
        type buffer = R.buffer
        val create_buffer : float -> Renderer.display -> buffer
        val begin_draw : buffer -> unit
        val end_draw : buffer -> unit
        val clear : buffer -> unit
        val event_queue : buffer -> Renderer.event list
        val width : buffer -> int
        val height : buffer -> int
        val render : buffer -> Shape.t -> unit
      end
    val display : [> `Size of int * int ]
    val loop : 'a -> 'b -> 'b
    val draw : 'a -> 'b -> Shape.t
    val mouse_pressed : 'a -> 'b -> 'b
    val mouse_released : 'a -> 'b -> 'b
    val mouse_moved : 'a -> 'b -> 'b
    val mouse_dragged : 'a -> 'b -> 'b
    val mouse_clicked : 'a -> 'b -> 'b
    val mouse_scrolled : 'a -> 'b -> 'b
    val key_pressed : 'a -> 'b -> 'b
    val key_released : 'a -> 'b -> 'b
    val key_typed : 'a -> 'b -> 'b
    val window_resized : 'a -> 'b -> 'b
    val window_closed : 'a -> 'b -> 'c
  end