iitalics
/
geometra
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

error printing fixup

This commit is contained in:
tali 2024-01-19 13:22:28 -05:00
parent 1df5e2c6d8
commit 4983226b4a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/main.ml
View File

@ -9,10 +9,9 @@ let main () =
let tg = TG.make () in let tg = TG.make () in
let sg = SG.make () in let sg = SG.make () in
let sq = aabb (-50.0) (-50.0) 50.0 50.0 in
let t_a = TG.add tg in let t_a = TG.add tg in
let sq = aabb (-50.0) (-50.0) 50.0 50.0 in
let t_b = TG.add tg ~parent:t_a in let t_b = TG.add tg ~parent:t_a in
SG.add sg ~tf:(TG.world t_b) SG.add sg ~tf:(TG.world t_b)
~bb:sq ~bb:sq
@ -32,6 +31,7 @@ let main () =
info (fun m -> m "window initialized"); info (fun m -> m "window initialized");
let ren = Renderer.make ~window in let ren = Renderer.make ~window in
info (fun m -> m "renderer initialized"); info (fun m -> m "renderer initialized");
let render () = let render () =
begin begin
(* Update *) (* Update *)
@ -66,7 +66,8 @@ let () =
Ohlog.init () ~min_level:DEBUG; Ohlog.init () ~min_level:DEBUG;
try main () with try main () with
| Failure msg -> error (fun m -> m "%s" msg)
| Sdl.Error msg -> error (fun m -> m "SDL error: %s" msg) | Sdl.Error msg -> error (fun m -> m "SDL error: %s" msg)
| Gl.Error (why, msg) -> error (fun m -> m "OpenGL error (%s): %s" why msg) | Gl.Error (why, msg) -> error (fun m -> m "OpenGL error (%s): %s" why msg)
| Asset.Error (path, msg) -> error (fun m -> m "failed to load %S: %s" path msg) | Asset.Error (path, msg) -> error (fun m -> m "failed to load %S: %s" path msg)
| Failure msg -> error (fun m -> m "Fatal: %s" msg)
| exn -> error (fun m -> m "Uncaught: %s" (Printexc.to_string exn))