1

2

3

4

D = (0.628, 1.808)
C = (1.96, 2.48)
B = (3.378, 0.18)
A = (0.276, 0.84)
poly1, d, c, b, a = Polygon(D, C, B, A)
M = Midpoint(a)
D' = Mirror(D, M)
C' = Mirror(C, M)
B' = Mirror(B, M)
A' = Mirror(A, M)
poly1', d', c', b', a' = Polygon(D', C', B', A')
u = Vector(C', B)
list1 = Sequence(Polygon[Translate[D, Vector[(u * i)]], Translate[C, Vector[(u * i)]], Translate[B, Vector[(u * i)]], Translate[A, Vector[(u * i)]]], i, -5, 5)
list2 = Sequence(Polygon[Translate[D', Vector[(u * i)]], Translate[C', Vector[(u * i)]], Translate[B', Vector[(u * i)]], Translate[A', Vector[(u * i)]]], i, -5, 5)
v = Vector(D, B)
list3 = Sequence(Translate[list1, Vector[(v * i)]], i, -5, 5)
list4 = Sequence(Translate[list2, Vector[(v * i)]], i, -5, 5)
e = false
f = false
g = false
h = false