Geogebra script:
ll=Deslizador(1, 5,1, 1,100)
A=(0,-ll,0)
B=(ll,-ll,0)
C=(ll,0,0)
a=Cubo(A,B,C)
i=Deslizador(0.25, 0.75, 0.01, 1,100)
j=Deslizador(0.25, 0.75, 0.01, 1,100)
k=Deslizador(0.25, 0.75, 0.01, 1,100)
I=H+i*Vector(H,E)
J=H+j*Vector(H,G)
K=A+k*Vector(A,B)
Valor(i, 0.5)
Valor(j, 0.5)
Valor(k, 0.5)
p=Plano(I,J,K)
pol1=Interseca(a, p)
Visibilidad(p, -1,false)
t1=Polígono(A,K,Q)
t2=Polígono(M,C,N)
pol2=Polígono(C,D,H,J,N)
pol3=Polígono(D,A,Q,I,H)
pol4=Polígono(A,K,M,C,D)
t3=Polígono(I,J,H)
anim=Deslizador(0, 1, 0.001, 1, 200)
Valor(anim,1)
t1'=Rota(t1, anim*90º, Recta(A, B))
t2'=Rota(t2, anim*90º, Recta(B,C))
pol2'=Rota(pol2, anim*90º, Recta(C,D))
pol3'=Rota(pol3, anim*90º, Recta(D,A))
t3'=Rota(Rota(t3, anim*90º, Recta(H,E)),anim*90º,Recta(D, A))
p0=Plano(A,B,C)
α=Ángulo(p0, p)
pol1'=Rota(Interseca(a, p), anim*α, Recta(K, M))
Visibilidad(α, -1,false)
Visibilidad(a, 1,false)
Visibilidad(p0, -1,false)
Visibilidad(D, 1,false)
Visibilidad(K, 1,false)
Visibilidad(M, 1,false)
Visibilidad(L, 1,false)
Visibilidad(A, 1,false)
Visibilidad(B, 1,false)
Visibilidad(C, 1,false)
Visibilidad(A, -1,false)
Visibilidad(B, -1,false)
Visibilidad(C, -1,false)
Ejecuta({"SetVisibleInView( C, -1, false)","SetVisibleInView( D, -1, false)","SetVisibleInView( E, -1, false)","SetVisibleInView( F, -1, false)","SetVisibleInView( G, -1, false)","SetVisibleInView( H, -1, false)","SetVisibleInView( L, -1, false)","SetVisibleInView( M, -1, false)","SetVisibleInView( N, -1, false)","SetVisibleInView( O, -1, false)","SetVisibleInView( P, -1, false)","SetVisibleInView( Q, -1, false)"})
Visibilidad(a,-1,false)
Visibilidad(a,1,false)
Visibilidad(aristaGH,-1,false)
Visibilidad(aristaFG,-1,false)
Visibilidad(aristaEH,-1,false)
Visibilidad(aristaEF,-1,false)
Visibilidad(aristaDH,-1,false)
Visibilidad(aristaCG,-1,false)
Visibilidad(aristaCD,-1,false)
Visibilidad(aristaCD,1,false)
Visibilidad(aristaBF,-1,false)
Visibilidad(aristaBC,-1,false)
Visibilidad(aristaBC,1,false)
Visibilidad(aristaAE,-1,false)
Visibilidad(aristaAD,-1,false)
Visibilidad(aristaAD,1,false)
Visibilidad(aristaAB,-1,false)
Visibilidad(aristaAB,1,false)
Visibilidad(caraEFGH,-1,false)
Visibilidad(caraCDHG,-1,false)
Visibilidad(caraBCGF,-1,false)
Visibilidad(caraADHE,-1,false)
Visibilidad(caraABFE,-1,false)
Visibilidad(caraABCD,-1,false)
Visibilidad(caraABCD,1,false)