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