add ellipse area method

repath-project · Dec 4, 2024 · 2da4e01 · 2da4e01
1 parent 70f342c
commit 2da4e01
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/renderer/element/impl/shape/ellipse.cljs b/src/renderer/element/impl/shape/ellipse.cljs
@@ -54,6 +54,12 @@
                    "A" rx ry 0 0 1 (+ cx rx) cy
                    "z"])))
 
+(defmethod hierarchy/area :ellipse
+  [el]
+  (let [{{:keys [rx ry]} :attrs} el
+        [rx ry] (map length/unit->px [rx ry])]
+    (* Math/PI rx ry)))
+
 (defmethod hierarchy/edit :ellipse
   [el [x y] handle]
   (case handle