四立方体翻转折纸动画（Four Cube Flexagon）

GeoGebra 命令及参数

1. If(ff < 0.5, (-((smoothramp((2 * ff)) * 180°))), 0°) → α
2. Point(xAxis) → B
3. Intersect(zAxis, xAxis) → A
4. Point(Circle[B, Distance[A, B], Segment[A, B]]) → C
5. Cube(A, B, C) → a, D, faceCDHG, faceEFGH, edgeAD, edgeAB, edgeBC, edgeCD, edgeAE, edgeDH, edgeEH, edgeEF, E, edgeBF, edgeFG, edgeCG, edgeGH, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF
6. Midpoint(D, E) → K
7. OrthogonalLine(K, faceADHE) → i
8. Midpoint(A, F) → J
9. OrthogonalLine(J, faceABFE) → h
10. If(ff ≥ 0.5 ∧ ff < 0.75, (-(((smoothramp((4 * (ff - 0.5))) * 90) + 180)°)), If[ff ≥ 0.75, (-(((smoothramp((4 * (ff - 0.75))) * 90) + 90 + 180)°)), 0°]) → β
11. Rotate(Rotate[H, β, i], (-α), h) → H'
12. Rotate(Rotate[F, β, i], (-α), h) → F'
13. If(ff ≤ 0.5, Plane[A, faceABFE], If[ff > 0.5 ∧ ff < 0.75, Plane[H', faceABFE], Plane[F', faceABFE]]) → d
14. Translate({faceABFE, faceADHE, faceBCGF, faceCDHG}, Vector[(0, 0, 0)]) → cube0
15. Rotate(Rotate[cube0, β, i], (-α), h) → cube0'
16. Midpoint(A, C) → I
17. OrthogonalLine(I, faceABCD) → g
18. OrthogonalLine(I, xOyPlane) → f
19. Rotate(Rotate[B, β, i], (-α), h) → B'
20. Vector(B, B') → u
21. Plane(D, F, H) → b
22. Mirror(cube0', d) → cube0''
23. Rotate(Rotate[faceABCD, β, i], (-α), h) → poly1
24. Rotate(Rotate[A, β, i], (-α), h) → A'
25. If(ff < 0.25, Plane[A', faceADHE], If[ff ≥ 0.25 ∧ ff < 0.5, Plane[B', faceADHE], Plane[A, faceADHE]]) → c
26. Mirror(cube0'', c) → cube0'''
27. Mirror(cube0', c) → cube0'_1
28. Rotate(faceCDHG, β, i) → faceCDHG'
29. Rotate(A, β, i) → A''
30. Rotate(D, β, i) → D'
31. Rotate(C, β, i) → C'
32. Rotate(Rotate[faceEFGH, β, i], (-α), h) → poly3
33. Mirror(poly1, d) → poly1'
34. Mirror(poly3, d) → poly3'
35. Mirror(poly1, c) → poly1'_1
36. Mirror(poly3, d) → poly3'_1
37. Mirror(poly3, c) → poly3'_2
38. Mirror(poly3'_1, c) → poly2
39. Mirror(poly1', c) → poly1''