h = Slider(-(1+sqrt(5))/2-0.0001, 1, 0.001, 1, 110, false, true, false, false)[br]SetValue(h, 1)[br][br]A1_1 = (0, (1 + h), (1 - h^2))[br]A1_2 = (0, -(1 + h), -(1 - h^2))[br]A1_3 = (0, (1 + h), -(1 - h^2))[br]A1_4 = (0, -(1 + h), (1 - h^2))[br][br]A2_1 = ((1 + h), (1 - h^2), 0)[br]A2_2 = (-(1 + h), -(1 - h^2), 0)[br]A2_3 = ((1 + h), -(1 - h^2), 0)[br]A2_4 = (-(1 + h), (1 - h^2), 0)[br][br]A3_1 = ((1 - h^2), 0, (1 + h))[br]A3_2 = (-(1 - h^2), 0, -(1 + h))[br]A3_3 = (-(1 - h^2), 0, (1 + h))[br]A3_4 = ((1 - h^2), 0, -(1 + h))[br][br]A4_1 = ( 1, 1, 1)[br]A4_2 = ( -1, -1, -1)[br]A4_3 = ( 1, -1, -1)[br]A4_4 = ( -1, 1, 1)[br]A4_5 = ( 1, -1, 1)[br]A4_6 = ( -1, 1, -1)[br]A4_7 = ( 1, 1, -1)[br]A4_8 = ( -1, -1, 1)[br][br]poly1 = Polygon(A2_4, A4_4, A3_3, A4_8, A2_2)[br]poly2 = Polygon(A4_6, A2_4, A2_2, A4_2, A3_2)[br]poly3 = Polygon(A1_1, A4_4, A2_4, A4_6, A1_3)[br]poly4 = Polygon(A2_1, A4_7, A1_3, A1_1, A4_1)[br]poly5 = Polygon(A4_1, A1_1, A4_4, A3_3, A3_1)[br]poly6 = Polygon(A4_8, A1_4, A4_5, A3_1, A3_3)[br]poly7 = Polygon(A4_2, A1_2, A1_4, A4_8, A2_2)[br]poly8 = Polygon(A4_5, A2_3, A2_1, A4_1, A3_1)[br]poly9 = Polygon(A1_2, A4_3, A2_3, A4_5, A1_4)[br]poly10 = Polygon(A3_2, A4_2, A1_2, A4_3, A3_4)[br]poly11 = Polygon(A3_4, A4_3, A2_3, A2_1, A4_7)[br]poly12 = Polygon(A3_4, A4_7, A1_3, A4_6, A3_2)[br][br]to = Slider(0, pi/3, 0.01, 1, 160, false, true, false, false)[br][br]obj = {poly1, poly2, poly3, poly4, poly5, poly6, poly7, poly8, poly9, poly10, poly11, poly12}[br][br]Q1 = Rotate(obj, to, Line(A4_1, A4_2))[br][br]C1 = Rotate(A4_5, to, Line(A4_1, A4_2))[br][br]C2 = Rotate(A1_2, to, Line(A4_1, A4_2))[br][br]P1 = Plane(C1, poly6)[br][br]Q2 = Reflect(Q1, P1 )[br][br]P2 = Reflect(P1, (0,0,0))[br][br]Q3 = Reflect( Q1, P2 )[br][br]C3 = Rotate(A4_8, to, Line(A4_1, A4_2))[br][br]P3 = Plane(C3, poly1)[br][br]Q4 = Reflect(Q1, P3 )[br][br]P4 = Reflect(P3, (0,0,0))[br][br]Q5 = Reflect(Q1, P4 )[br][br]C4 = Rotate(A2_3, to, Line(A4_1, A4_2))[br][br]P5 = Plane(C4, poly9)[br][br]Q6 = Reflect(Q1, P5 )[br][br]P6 = Reflect(P5, (0,0,0))[br][br]Q7 = Reflect(Q1, P6 )