val autocolor : Viz_types.autocolor -> Database.t -> (string list -> int32)