(*---------------------------------------------------------------------------
   Copyright (c) 2025 Anil Madhavapeddy. All rights reserved.
   SPDX-License-Identifier: ISC
  ---------------------------------------------------------------------------*)

type t =
  [ `Set_state of Kgp_animation_state.t * int option
  | `Set_gap of int * int
  | `Set_current of int ]

let set_state ?loops state = `Set_state (state, loops)
let set_gap ~frame ~gap_ms = `Set_gap (frame, gap_ms)
let set_current_frame frame = `Set_current frame