sig
  val round_rect :
    Mlpost.Num.t ->
    Mlpost.Num.t -> Mlpost.Num.t -> Mlpost.Num.t -> Mlpost.Path.t
  val rectangle : Mlpost.Num.t -> Mlpost.Num.t -> Mlpost.Path.t
  val ellipse : Mlpost.Num.t -> Mlpost.Num.t -> Mlpost.Path.t
  val circle : Mlpost.Num.t -> Mlpost.Path.t
  val patatoid : Mlpost.Num.t -> Mlpost.Num.t -> Mlpost.Path.t
  val patatoid2 : Mlpost.Num.t -> Mlpost.Num.t -> Mlpost.Path.t
end