A = Intersect(xAxis, yAxis)
B = Point(xAxis)
E = Rotate(B, 60°, A)
D = (2.33049706801297, 2.8167482481733344)
C = Intersect(LineBisector[B, D], Line[B, Rotate[D, -30°, B]])
poly1, a, b, c, d, e = Polygon(A, B, C, D, E)
l1 = Sequence(Polygon[Rotate[A, (k * 60°), A], Rotate[B, (k * 60°), A], Rotate[C, (k * 60°), A], Rotate[D, (k * 60°), A], Rotate[E, (k * 60°), A]], k, 1, 5)
A' = Rotate(A, 120°, C)
B' = Rotate(B, 120°, C)
C' = Rotate(C, 120°, C)
D' = Rotate(D, 120°, C)
E' = Rotate(E, 120°, C)
poly1', a', b', c', d', e' = Polygon(A', B', C', D', E')
l2 = Sequence(Polygon[Rotate[A', (k * 60°), A'], Rotate[B', (k * 60°), A'], Rotate[C', (k * 60°), A'], Rotate[D', (k * 60°), A'], Rotate[E', (k * 60°), A']], k, 1, 5)
A'_{1} = Rotate(A, 60°, A')
u = Vector(A, A'_{1})
A'_{2} = Translate(A, u)
B'_{1} = Translate(B, u)
C'_{1} = Translate(C, u)
D'_{1} = Translate(D, u)
E'_{1} = Translate(E, u)
poly1'_{1}, a'_{2}, b'_{1}, c'_{1}, d'_{1}, e'_{1} = Polygon(A'_{2}, B'_{1}, C'_{1}, D'_{1}, E'_{1})
l1' = Translate(l1, u)