sig
  val legend :
    ?ensstroke:Mlpost.Color.t ->
    ?colstroke:Mlpost.Color.t ->
    ?fill:Mlpost.Color.t ->
    (Mlpost.Color.t * string) list -> Mlpost.Picture.t
end