[code]ll=Deslizador(1, 5,1, 1,100)[br]A=(0,-ll,0)[br]B=(ll,-ll,0)[br]C=(ll,0,0)[br]a=Cubo(A,B,C)[br]i=Deslizador(0.25, 0.75, 0.01, 1,100)[br]j=Deslizador(0.25, 0.75, 0.01, 1,100)[br]k=Deslizador(0.25, 0.75, 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(Interseca(a, p), anim*α, Recta(K, M))[br]Visibilidad(α, -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]Visibilidad(C, 1,false)[br]Visibilidad(A, -1,false)[br]Visibilidad(B, -1,false)[br]Visibilidad(C, -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)"})[br]Visibilidad(a,-1,false)[br]Visibilidad(a,1,false)[br]Visibilidad(aristaGH,-1,false)[br]Visibilidad(aristaFG,-1,false)[br]Visibilidad(aristaEH,-1,false)[br]Visibilidad(aristaEF,-1,false)[br]Visibilidad(aristaDH,-1,false)[br]Visibilidad(aristaCG,-1,false)[br]Visibilidad(aristaCD,-1,false)[br]Visibilidad(aristaCD,1,false)[br]Visibilidad(aristaBF,-1,false)[br]Visibilidad(aristaBC,-1,false)[br]Visibilidad(aristaBC,1,false)[br]Visibilidad(aristaAE,-1,false)[br]Visibilidad(aristaAD,-1,false)[br]Visibilidad(aristaAD,1,false)[br]Visibilidad(aristaAB,-1,false)[br]Visibilidad(aristaAB,1,false)[br]Visibilidad(caraEFGH,-1,false)[br]Visibilidad(caraCDHG,-1,false)[br]Visibilidad(caraBCGF,-1,false)[br]Visibilidad(caraADHE,-1,false)[br]Visibilidad(caraABFE,-1,false)[br]Visibilidad(caraABCD,-1,false)[br]Visibilidad(caraABCD,1,false)[/code]