Fix extremum for Polygon

Author: fhagemann

src/ConstructiveSolidGeometry/SurfacePrimitives/Polygon.jl

@@ -55,7 +55,8 @@ function sample(p::Polygon{N,T}, spacing::T)::Vector{CartesianPoint{T}} where {N
 end
 
 function extremum(p::Polygon{N,T})::T where {N,T}
-    c = sum(p.points)/N
+    c = cartesian_zero + mean(reinterpret(CartesianVector{T}, p.points))  
+    # c = mean(p.points)
     m = maximum([norm(point - c) for point in p.points])
 end