1type t = 2 [ `Set_state of Kgp_animation_state.t * int option 3 | `Set_gap of int * int 4 | `Set_current of int ] 5 6let set_state ?loops state = `Set_state (state, loops) 7let set_gap ~frame ~gap_ms = `Set_gap (frame, gap_ms) 8let set_current_frame frame = `Set_current frame
anil.recoil.org