Add UpdateSketch::add_circle

crates/fj-core/src/operations/update/sketch.rs

@@ -1,4 +1,4 @@
-use fj_math::Point;
+use fj_math::{Point, Scalar};
 
 use crate::{
     geometry::region::Region,
@@ -12,6 +12,14 @@ pub trait UpdateSketch {
     /// Add a region to the sketch
     fn add_region(&self, region: Region) -> Self;
 
+    /// Add a circle to the sketch
+    fn add_circle(
+        &self,
+        center: impl Into<Point<2>>,
+        radius: impl Into<Scalar>,
+        services: &mut Services,
+    ) -> Self;
+
     /// Add a polygon to the sketch
     fn add_polygon<P, Ps>(&self, points: Ps, services: &mut Services) -> Self
     where
@@ -25,6 +33,16 @@ impl UpdateSketch for Sketch {
         Sketch::new(self.regions().cloned().chain([region]))
     }
 
+    fn add_circle(
+        &self,
+        center: impl Into<Point<2>>,
+        radius: impl Into<Scalar>,
+        services: &mut Services,
+    ) -> Self {
+        let exterior = Cycle::circle(center, radius, services).insert(services);
+        self.add_region(Region::new(exterior, [], None))
+    }
+
     fn add_polygon<P, Ps>(&self, points: Ps, services: &mut Services) -> Self
     where
         P: Into<Point<2>>,