Private.Utilsmodule Rgba : sig ... endmodule Rgba' : sig ... endval to_rgba : Gg.color -> Rgba.tval to_rgba' : Gg.color -> Rgba'.tval map_color : (int -> 'a) -> Rgba.t -> 'a * 'a * 'aapply f to each component of color
val map_color' : (float -> 'a) -> Rgba'.t -> 'a * 'a * 'amodule type Showable = sig ... endmodule type OrderedShowable = sig ... endmodule ShowableSet : sig ... endmodule type AdjacencySet = sig ... endmodule AdjacencySet_Make
(El : OrderedShowable) :
AdjacencySet with type elt = El.tmodule Int' : sig ... endmodule IntAdjacencySet : sig ... end