skin.ml

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