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