sig
  type t = SdltextureAccess.t = Static | Streaming | Target
  val to_string : Sdl.TextureAccess.t -> string
  val of_string : string -> Sdl.TextureAccess.t
end