skin.ml

   1 type skin = (float * float * float * int) array
   2 type skel = (int * float array) array
   3 type anim = Qtr.t array
   4
   5 external init : (float array * float array * float array * skin * string) -> unit
   6   = "ml_skin_init"
   7
   8 external draw_begin : unit -> unit = "ml_skin_draw_begin"
   9 external draw_end : unit -> unit = "ml_skin_draw_end"
  10
  11 external set_skel : skel -> unit = "ml_skin_set_skel"
  12 external set_anim : anim -> unit = "ml_skin_set_anim"
  13 external anim : unit -> unit = "ml_skin_anim"