Merge pull request #1850 from hannobraun/build

Add `BuildSketch`

crates/fj-kernel/src/operations/build/mod.rs

@@ -2,5 +2,6 @@ pub mod cycle;
 pub mod edge;
 pub mod face;
 pub mod shell;
+pub mod sketch;
 pub mod solid;
 pub mod surface;

crates/fj-kernel/src/operations/build/sketch.rs

@@ -0,0 +1,25 @@
+use fj_math::Point;
+
+use crate::{
+    geometry::region::Region,
+    objects::{Cycle, Sketch},
+    operations::{BuildCycle, Insert},
+    services::Services,
+};
+
+/// Build a [`Sketch`]
+pub trait BuildSketch {
+    /// Build a polygon
+    fn polygon<P, Ps>(points: Ps, services: &mut Services) -> Sketch
+    where
+        P: Into<Point<2>>,
+        Ps: IntoIterator<Item = P>,
+        Ps::IntoIter: Clone + ExactSizeIterator,
+    {
+        let exterior = Cycle::polygon(points, services).insert(services);
+        let region = Region::new(exterior, Vec::new(), None);
+        Sketch::new([region])
+    }
+}
+
+impl BuildSketch for Sketch {}

crates/fj-kernel/src/operations/mod.rs

@@ -11,6 +11,7 @@ pub use self::{
         edge::BuildHalfEdge,
         face::{BuildFace, Polygon},
         shell::{BuildShell, TetrahedronShell},
+        sketch::BuildSketch,
         solid::{BuildSolid, Tetrahedron},
         surface::BuildSurface,
     },