Commandos:
A=(0,-2,0)
B=(2,-2,0)
a=Cubo(A,B)
i=Deslizador(0.2, 0.8, 0.01, 1,100)
j=Deslizador(0.2, 0.8, 0.01, 1,100)
k=Deslizador(0.2, 0.8, 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(pol1, anim*α, Recta(K, M))
Visibilidad(α, -1,false)
Visibilidad(a, -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)
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)"})