let sdl_create_renderer window flags =
  let win = match window with
    | Some w -> w
  in
  sdl_create_renderer_f win -1 flags;;