[code]A=(0,-2,0)[br]B=(2,-2,0)[br]a=Cubo(A,B)[br]i=Deslizador(0.2, 0.8, 0.01, 1,100)[br]j=Deslizador(0.2, 0.8, 0.01, 1,100)[br]k=Deslizador(0.2, 0.8, 0.01, 1,100)[br]I=H+i*Vector(H,E)[br]J=H+j*Vector(H,G)[br]K=A+k*Vector(A,B)[br]Valor(i, 0.5)[br]Valor(j, 0.5)[br]Valor(k, 0.5)[br]p=Plano(I,J,K)[br]pol1=Interseca(a, p)[br]Visibilidad(p, -1,false)[br]t1=Polígono(A,K,Q)[br]t2=Polígono(M,C,N)[br]pol2=Polígono(C,D,H,J,N)[br]pol3=Polígono(D,A,Q,I,H)[br]pol4=Polígono(A,K,M,C,D)[br]t3=Polígono(I,J,H)[br]anim=Deslizador(0, 1, 0.001, 1, 200)[br]Valor(anim,1)[br]t1'=Rota(t1, anim*90º, Recta(A, B))[br]t2'=Rota(t2, anim*90º, Recta(B,C))[br]pol2'=Rota(pol2, anim*90º, Recta(C,D))[br]pol3'=Rota(pol3, anim*90º, Recta(D,A))[br]t3'=Rota(Rota(t3, anim*90º, Recta(H,E)),anim*90º,Recta(D, A))[br]p0=Plano(A,B,C)[br]α=Ángulo(p0, p)[br]pol1'=Rota(pol1, anim*α, Recta(K, M))[br]Visibilidad(α, -1,false)[br]Visibilidad(a, -1,false)[br]Visibilidad(a, 1,false)[br]Visibilidad(p0, -1,false)[br]Visibilidad(D, 1,false)[br]Visibilidad(K, 1,false)[br]Visibilidad(M, 1,false)[br]Visibilidad(L, 1,false)[br]Visibilidad(A, 1,false)[br]Visibilidad(B, 1,false)[br]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)"})[/code]