C = (-6.466666666666667, -3.433333333333333)
D = (-1.5, -1.5333333333333332)
A = (-3.2666666666666666, -1.3333333333333333)
B = (0.5, -3.966666666666667)
a = Segment(A, B)
b = Segment(B, C)
E = Point(a)
t: Distance[A, E] / a
F: B + t (C - B)
H: E + t (F - E)
d = Segment(E, F)
e = Segment(C, D)
G: C + t (D - C)
f = Segment(F, G)
I: F + t (G - F)
g = Segment(H, I)
J: H + t (I - H)
c = Locus(J, E)