喙单元：骨架立方八面体（6单元折纸动画）

GeoGebra 命令及参数

1. Intersect(zAxis, yAxis) → A
2. Point(xAxis) → B
3. Point(Circle[B, Distance[A, B], Segment[A, B]]) → C
4. 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
5. Midpoint(E, F) → I
6. Midpoint(F, G) → J
7. Midpoint(F, B) → K
8. Polygon(I, K, J) → poly1, j, i, k
9. Midpoint(A, G) → OO
10. Polygon(K, I, 4, faceABFE) → poly2, f, g, h, l, L, M
11. Line(OO, F) → m
12. Rotate(poly2, 120°, m) → poly2'
13. Line(N, I) → n
14. Plane(I, N, M) → b
15. Point(n) → O
16. Rotate(O, (-rot), N, b) → O'
17. Polygon(O', OO, K) → poly3, p, q, r
18. Plane(L, K, OO) → c
19. Mirror(poly3, c) → poly3'
20. Mirror(poly3, b) → poly3'_1
21. Mirror(poly3', b) → poly3''
22. Midpoint(B, C) → P
23. Plane(OO, J, P) → d
24. Translate({poly3, poly3', poly3'', poly3'_1}, Vector[OO, OO]) → polyList1
25. Mirror(polyList1, d) → polyList1'
26. Translate({polyList1, polyList1'}, Vector[OO, OO]) → polyList11
27. Angle(O, K, OO) → α
28. OrthogonalLine(N, xOyPlane) → s
29. Rotate(polyList11, β, s) → polyList11'_2
30. Rotate(Rotate[polyList11, 240°, m], β, s) → polyList11'_1
31. Rotate(Rotate[polyList11, 120°, m], β, s) → polyList11'