Cortes en el cubo

Estudio de cortes en el cubo por palano perpendicular a diagonal principal.

¿ que polígonos aparecen?

RA = 1 (slider from 0 to 1, step 1)
p = 1.1755705045849463
t = 1.7320508075688772
c = 1.4142135623730951
n = 4 (slider from 3 to 5, step 1)
L = 2.9 (slider from 1 to 4, step 0.1)
ar = If(n ≟ 3, L / t, If[n ≟ 4, L / c, If[n ≟ 5, L / p]])
des = If(RA ≟ 0, L, If[RA ≟ 1, ar])
O = Intersect(xAxis, yAxis)
ci = Circle(O, des)
A = Point(ci)
A' = Rotate(A, (360 * ° / n), O)
A'' = Rotate(A', (360 * ° / n), O)
v = 1.4 (slider from -5 to 5, step 0.1)
b = Distance(A, A')
a, B, C, D, E, F, caraAA'A''B, caraABFC, caraAA'DC, caraA'A''ED, caraA''BFE, caraCDEF, aristaAB, aristaAA', aristaA'A'', aristaA''B, aristaAC, aristaBF, aristaCF, aristaCD, aristaA'D, aristaDE, aristaA''E, aristaEF = Cube(A, A', A'')
G = Point(aristaAA')
d = Line(E, G)
H = Point(d)
e = OrthogonalPlane(H, d)
polígono1, I, J, K, M, N, P, f, g, h, i, j, k = IntersectPath(e, a)