E = Intersect(xAxis, yAxis)
D = Point(xAxis)
A = (0.28034484165517487, 1.0933972359868913)
Ea = Ray(E, A)
Dc = Ray(D, Translate[D, Vector[E, A]])
C = Point(Dc)
B = (1.4529617076085946, 2.0119850054040405)
AB = Segment(A, B)
BC = Segment(B, C)
DE = Segment(E, D)
AE = Segment(A, E)
CD = Segment(C, D)
u = Vector(A, C)
f = PolyLine(A, B, C, D, E)
l1 = Sequence(PolyLine[Translate[A, Vector[(k * u)]], Translate[B, Vector[(k * u)]], Translate[C, Vector[(k * u)]], Translate[D, Vector[(k * u)]], Translate[E, Vector[(k * u)]]], k, 1, 3)
M = Midpoint(E, D)
A' = Mirror(A, M)
C' = Mirror(C, M)
B' = Mirror(B, M)
g = PolyLine(E, C', B', A', D)
l2 = Sequence(PolyLine[Translate[E, Vector[(k * u)]], Translate[C', Vector[(k * u)]], Translate[B', Vector[(k * u)]], Translate[A', Vector[(k * u)]], Translate[D, Vector[(k * u)]]], k, 0, 3)
N = Midpoint(B, C)
D' = Mirror(D, N)
A'_{1} = Mirror(A, N)
E' = Mirror(E, N)
h = PolyLine(B, D', E', A'_{1}, C)
l3 = Sequence(PolyLine[Translate[B, Vector[(k * u)]], Translate[D', Vector[(k * u)]], Translate[E', Vector[(k * u)]], Translate[A'_{1}, Vector[(k * u)]], Translate[C, Vector[(k * u)]]], k, 0, 3)