expose ModelAnimation.name -> string: to get name of animation.

Author: Trung Nguyen

examples/models/models_animation.ml

@@ -1,6 +1,8 @@
 let width = 800
 let height = 450
 let position = Raylib.Vector3.create 0.0 0.0 0.0
+let asset_path (filename: string) = 
+  Raylib.get_application_directory() ^ filename
 
 let setup () =
   let open Raylib in
@@ -12,17 +14,20 @@ let setup () =
       (Vector3.create 0.0 1.0 0.0)
       45.0 CameraProjection.Perspective
   in
-  let model = load_model "resources/guy/guy.iqm" in
-  let texture = load_texture "resources/guy/guytex.png" in
+  let path = asset_path("") in
+  let model = load_model (path ^ "./resources/guy/guy.iqm") in
+  let texture = load_texture (path ^ "./resources/guy/guytex.png") in
   set_material_texture
     (CArray.get (Model.materials model) 0 |> addr)
     MaterialMapIndex.Albedo texture;
 
-  let anims = load_model_animations "resources/guy/guyanim.iqm" in
+  let anims = load_model_animations (path ^ "./resources/guy/guyanim.iqm") in
 
   disable_cursor ();
   set_target_fps 60;
   (camera, model, anims)
+let implode_char_list (l : char list) : string =
+  l |> List.to_seq |> String.of_seq
 
 let rec loop camera model anims frame_counter =
   match Raylib.window_should_close () with
@@ -34,10 +39,10 @@ let rec loop camera model anims frame_counter =
   | false ->
       let open Raylib in
       update_camera (addr camera) CameraMode.First_person;
+      let anims0 = CArray.get anims 0 in
       let frame_counter =
         if is_key_down Key.Space then (
           let frame_counter = succ frame_counter in
-          let anims0 = CArray.get anims 0 in
           update_model_animation model anims0 frame_counter;
           if frame_counter >= ModelAnimation.frame_count anims0 then 0
           else frame_counter)
@@ -57,14 +62,16 @@ let rec loop camera model anims frame_counter =
       CArray.iter
         (fun bone ->
           draw_cube (Transform.translation bone) 0.2 0.2 0.2 Color.red)
-        (ModelAnimation.frame_poses_at (CArray.get anims 0) frame_counter);
+        (ModelAnimation.frame_poses_at anims0 frame_counter);
       draw_grid 10 1.0;
 
       end_mode_3d ();
 
       draw_text "PRESS SPACE to PLAY MODEL ANIMATION" 10 10 20 Color.maroon;
       draw_text "(c) Guy IQM 3D model by @culacant" (width - 200) (height - 20)
         10 Color.gray;
+      let anim_name = implode_char_list (CArray.to_list (ModelAnimation.name anims0)) in
+      draw_text ("animation: " ^ anim_name) 10 32 20 Color.maroon;
       end_drawing ();
       loop camera model anims frame_counter
 

src/raylib/raylib.mli

@@ -1137,6 +1137,8 @@ module ModelAnimation : sig
 
   val frame_count : t -> int
 
+  val name : t -> char CArray.t
+
   val frame_poses_at : t -> int -> Transform.t CArray.t
   (** Poses array by frame *)
 

src/raylib/raylib_types.ml

@@ -674,6 +674,9 @@ module ModelAnimation = struct
   let frame_count modelanimation =
     getf modelanimation ModelAnimation.frame_count
 
+  let name modelanimation =
+    getf modelanimation ModelAnimation.name
+
   let frame_poses_at anim index =
     let frame_count = getf anim ModelAnimation.frame_count in
     let poses =