moduleMake(Repr:Repr.PRINTER):sigtypereprtypet=Path.Point.tvalcreate_path:'b->repr(* Start a new path. *)valstart:Path.Point.t->repr->reprvalline_to:Path.Point.t->Path.Point.t->repr->reprvalquadratic_to:(Path.Point.t*Gg.v2*Gg.v2*Path.Point.t)->repr->reprvalstop:repr->reprvalget:repr->Repr.tend