OCaml example to create window and renderer separately

xyproto · Jun 5, 2023 · 49eeb4c · 49eeb4c
1 parent 0a88cc7
commit 49eeb4c
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/ocaml-tsdl/main.ml b/ocaml-tsdl/main.ml
@@ -3,7 +3,15 @@ open Tsdl
 let run () =
   let (let*) = Result.bind in
   let* _ = Sdl.init Sdl.Init.everything in
-  let* (w, r) = Sdl.create_window_and_renderer ~w:620 ~h:387 Sdl.Window.shown in
+  let* w = Sdl.create_window "Hello World!"
+             ~x:Sdl.Window.pos_centered
+             ~y:Sdl.Window.pos_centered
+             ~w:620
+             ~h:387
+             Sdl.Window.shown in
+  let* r = Sdl.create_renderer w
+             ~index:(-1)
+             ~flags:Sdl.Renderer.software in
   let* bmp = Sdl.load_bmp "../img/grumpy-cat.bmp" in
   let* txt = Sdl.create_texture_from_surface r bmp in
   Sdl.free_surface bmp;