A': (1.16611, 1.18031)
B': (4.82413, 2.2365)
f = Line(A', B')
C' = Point(f)
L' = Line(A', C')
O_{1} = Circle(C', A')
P_{1} = Point(O_{1})
Midpoint(B', A')
O_{2} = Circle(C', Distance[B', A'])
P_{2} = Intersect(O_{2}, L', 1)
O_{3} = Circle(P_{2}, Distance[B', A'])
P_{3} = Intersect(O_{3}, L', 1)
O_{4} = Circle(P_{3}, Distance[B', A'])
P_{4} = Intersect(O_{4}, L', 1)
O_{5} = Circle(P_{4}, Distance[B', C'])
P_{5} = Intersect(O_{5}, L', 2)
L_{1} = Line(P_{5}, P_{1})
L_{2} = Line(B', L_{1})
C'P_{1} = Line(C', P_{1})
P_{6} = Intersect(L_{2}, C'P_{1})
O_{6} = Circle(C', P_{6})
D' = Intersect(O_{6}, L', 2)