generated from ElnuDev/ocaml-project
31 lines
No EOL
704 B
OCaml
31 lines
No EOL
704 B
OCaml
open Tsdl
|
|
|
|
let run () =
|
|
let (let*) = Result.bind in
|
|
let* _ = Sdl.init Sdl.Init.everything 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
|
|
for _ = 0 to 20 do
|
|
ignore @@ Sdl.render_clear r;
|
|
Sdl.render_present r;
|
|
Sdl.delay (Int32.of_int 100);
|
|
done;
|
|
|
|
Sdl.destroy_renderer r;
|
|
Sdl.destroy_window w;
|
|
Sdl.quit ();
|
|
Ok ()
|
|
|
|
let () =
|
|
match run () with
|
|
| Ok _ -> exit 0
|
|
| Error (`Msg e) ->
|
|
Sdl.log "Error: %s" e;
|
|
exit 1 |