sig
  val create :
    r:Tsdl.Sdl.uint8 ->
    g:Tsdl.Sdl.uint8 ->
    b:Tsdl.Sdl.uint8 -> a:Tsdl.Sdl.uint8 -> Tsdl.Sdl.color
  val r : Tsdl.Sdl.color -> Tsdl.Sdl.uint8
  val g : Tsdl.Sdl.color -> Tsdl.Sdl.uint8
  val b : Tsdl.Sdl.color -> Tsdl.Sdl.uint8
  val a : Tsdl.Sdl.color -> Tsdl.Sdl.uint8
  val set_r : Tsdl.Sdl.color -> Tsdl.Sdl.uint8 -> unit
  val set_g : Tsdl.Sdl.color -> Tsdl.Sdl.uint8 -> unit
  val set_b : Tsdl.Sdl.color -> Tsdl.Sdl.uint8 -> unit
  val set_a : Tsdl.Sdl.color -> Tsdl.Sdl.uint8 -> unit
end