anil.recoil.org / ocaml-kgp
Kitty Graphics Protocol in OCaml
terminal graphics ocaml
fork atom
ocaml-kgp / lib / kgp_animation_state.ml
at main 363 B view raw
1(*--------------------------------------------------------------------------- 2 Copyright (c) 2025 Anil Madhavapeddy. All rights reserved. 3 SPDX-License-Identifier: ISC 4 ---------------------------------------------------------------------------*) 5 6type t = [ `Stop | `Loading | `Run ] 7 8let to_int : t -> int = function `Stop -> 1 | `Loading -> 2 | `Run -> 3