El plano es perpendicular a una de las rectas.
        Las cuatro rectas pasan por el centro y por:

Animación del corte

Velocidad animación

Gira / Detiene el cubo

1

2

3

4

0

0

1

2

3

4

Un vértice

El centro de una cara

El centro de una arista

Un punto sobre la cara superior
(Puedes desplazar el punto)

Se presentan las rectas
que atraviesan el cubo

Tamaño del cubo

r = 2 (slider from 0 to 5, step 0.1)
O = Intersect(xAxis, yAxis)
c = Circle(O, r)
A = Point(c)
n = 4 (slider from 3 to 5, step 1)
A' = Rotate(A, (360 * ° / n), O)
A'' = Rotate(A', (360 * ° / n), O)
poli, 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'')
a1 = Line(A'', C)
N = Midpoint(F, A')
l = -0.161 (slider from ((-1.3) * r) to (1.3 * r), step 0.001)
u1: Vector[N, A''] / Distance[N, A'']
P1: N + (l * u1)
b1 = OrthogonalPlane(P1, a1)
H, I = Intersect(b1, caraA'A''ED)
p1, J, K, L, M, P, Q_1, d, e, f, g, h, i = IntersectPath(b1, poli)
j = 1 (slider from 0 to 4, step 1)
u2: Vector[N, O] / Distance[N, O]
P2: N + (l * u2)
a2 = Line(N, O)
b2 = OrthogonalPlane(P2, a2)
Q = PointIn(caraCDEF)
p2, G, R, S, T, a, b, k, m = IntersectPath(b2, poli)
A''' = Midpoint(F, B)
a3 = Line(N, A''')
u3: Vector[N, A'''] / Distance[N, A''']
a4 = Line(N, Q)
u4: Vector[N, Q] / Distance[N, Q]
P3: N + (l * u3)
P4: N + (l * u4)
b3 = OrthogonalPlane(P3, a3)
b4 = OrthogonalPlane(P4, a4)
p4, Z, A_1, B_1, C_1, G_1, U, t, a_1, b_1, c_1, g_1, p = IntersectPath(b4, poli)
p3, H_1, I_1, J_1, K_1, h_1, i_1, j_1, k_1 = IntersectPath(b3, poli)
pp = If(j ≟ 1, p1, If[j ≟ 2, p2, If[j ≟ 3, p3, If[j ≟ 4, p4]]])
PP = If(j ≟ 1, P1, If[j ≟ 2, P2, If[j ≟ 3, P3, P4]])
bb = If(j ≟ 1, b1, If[j ≟ 2, b2, If[j ≟ 3, b3, If[j ≟ 4, b4]]])
vel = 0.7 (slider from 0 to 2, step 0.1)
col: j / 5