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