Attiva “traccia” da poligono 1''

Poligono concavo e poliedro concavo

A = Point(xAxis)
B = Point(xAxis)
C = Point(yAxis)
D = Point(yAxis)
poli1, a, c, b, d = Polygon(A, C, B, D)
u = (0, 0, 0)
A' = Translate(A, u)
C' = Translate(C, u)
B' = Translate(B, u)
D' = Translate(D, u)
poli1', a', c', b', d' = Polygon(A', C', B', D')
E = Intersect(zAxis, xOyPlane)
F = Point(zAxis)
e = Segment(E, F)
G = Point(e)
v = Vector(E, G)
poli1'' = Translate(poli1', v)
H' = PointIn(poli1')
w = Vector(H', C)
G' = Translate(G, w)
K' = (0.5436460488245842, -0.26162257789824395, 0)
poli2, a_1, d_1, k', b_1, c_1, h' = Polygon(A, D, K', B, C, H')
poli2' = Translate(poli2, v)