双重滑移反射镶嵌（埃舍尔风格）

GeoGebra 命令及参数

1. Vector(A, B) → u
2. Point(Ray[A, A + OrthogonalVector[Segment[A, B]]]) → C
3. PointIn(Polygon[D, B, (2 * A) - B, (2 * C) - D]) → E
4. PointIn(Polygon[D, B, (2 * A) - B, (2 * C) - D]) → F
5. PointIn(Polygon[D, B, (2 * A) - B, (2 * C) - D]) → G
6. PointIn(Polygon[D, B, (2 * A) - B, (2 * C) - D]) → H
7. PointIn(Polygon[D, B, (2 * A) - B, (2 * C) - D]) → I
8. LineBisector(D, B) → f
9. Translate(Mirror[E, f], u) → J
10. Translate(Mirror[F, f], u) → K
11. Translate(Mirror[G, f], u) → L
12. Translate(Mirror[H, f], u) → M
13. Translate(Mirror[I, f], u) → N
14. PointIn(Polygon[C, D, (2 * B) - D, (2 * A) - C]) → O
15. Translate(Mirror[O, f], u) → B_1
16. PointIn(Polygon[C, D, (2 * B) - D, (2 * A) - C]) → P
17. PointIn(Polygon[C, D, (2 * B) - D, (2 * A) - C]) → Q
18. PointIn(Polygon[C, D, (2 * B) - D, (2 * A) - C]) → R
19. PointIn(Polygon[C, D, (2 * B) - D, (2 * A) - C]) → S
20. LineBisector(C, D) → g
21. Vector(A, C) → v
22. Translate(Mirror[E, g], Vector[(-v)]) → A_1
23. Translate(Mirror[O, g], v) → T
24. Translate(Mirror[P, g], v) → U
25. Translate(Mirror[Q, g], v) → V
26. Translate(Mirror[R, g], v) → W
27. Translate(Mirror[S, g], v) → Z
28. Polygon(E, F, A_1, J, K, L, M, N, B_1, T, U, V, G, W, Z, H, I, O, P, Q, R, S) → poly1, h, r, s, t, a, b, c, d, e, f_1, g_1, i, h_1, i_1, j_1, j, k, l, m, n, p, q
29. Translate(Polygon[Mirror[E, g], Mirror[F, g], Mirror[G, g], Mirror[H, g], Mirror[I, g], Mirror[O, g], Mirror[P, g], Mirror[Q, g], Mirror[R, g], Mirror[S, g], Mirror[A_1, g], Mirror[J, g], Mirror[K, g], Mirror[L, g], Mirror[M, g], Mirror[N, g], Mirror[B_1, g], Mirror[T, g], Mirror[U, g], Mirror[V, g], Mirror[W, g], Mirror[Z, g]], v) → poly2
30. Translate(Polygon[Mirror[E, g], Mirror[F, g], Mirror[G, g], Mirror[H, g], Mirror[I, g], Mirror[O, g], Mirror[P, g], Mirror[Q, g], Mirror[R, g], Mirror[S, g], Mirror[A_1, g], Mirror[J, g], Mirror[K, g], Mirror[L, g], Mirror[M, g], Mirror[N, g], Mirror[B_1, g], Mirror[T, g], Mirror[U, g], Mirror[V, g], Mirror[W, g], Mirror[Z, g]], Vector[(-v)]) → poly3
31. Translate(Polygon[Mirror[E, f], Mirror[F, f], Mirror[G, f], Mirror[H, f], Mirror[I, f], Mirror[O, f], Mirror[P, f], Mirror[Q, f], Mirror[R, f], Mirror[S, f], Mirror[A_1, f], Mirror[J, f], Mirror[K, f], Mirror[L, f], Mirror[M, f], Mirror[N, f], Mirror[B_1, f], Mirror[T, f], Mirror[U, f], Mirror[V, f], Mirror[W, f], Mirror[Z, f]], Vector[(-u)]) → poly4
32. Translate(Polygon[Mirror[E, f], Mirror[F, f], Mirror[G, f], Mirror[H, f], Mirror[I, f], Mirror[O, f], Mirror[P, f], Mirror[Q, f], Mirror[R, f], Mirror[S, f], Mirror[A_1, f], Mirror[J, f], Mirror[K, f], Mirror[L, f], Mirror[M, f], Mirror[N, f], Mirror[B_1, f], Mirror[T, f], Mirror[U, f], Mirror[V, f], Mirror[W, f], Mirror[Z, f]], u) → poly5
33. Translate(Mirror[poly3, f], u) → poly6
34. Translate(Mirror[poly2, f], u) → poly7
35. Translate(poly7, Vector[(-2 * u)]) → poly7'
36. Translate(poly6, Vector[(-2 * u)]) → poly6'
37. Translate(Mirror[poly4, f], Vector[(-u)]) → poly8
38. Translate(poly8, Vector[(4 * u)]) → poly8'
39. Translate(poly3, Vector[(2 * u)]) → poly3'
40. Translate(poly2, Vector[(2 * u)]) → poly2'
41. Translate(poly4, Vector[(-2 * v)]) → poly4'
42. Translate(Mirror[poly3, g], Vector[(-v)]) → poly9
43. Translate(poly4', Vector[(2 * u)]) → poly4''
44. Translate(poly4, Vector[(2 * v)]) → poly4'_1
45. Translate(poly5, Vector[(2 * v)]) → poly5'
46. Translate(Mirror[poly4', f], u) → poly10