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

type t = [ `Alpha_blend | `Overwrite ]

let to_int : t -> int = function `Alpha_blend -> 0 | `Overwrite -> 1