A = (0, -7)
B = (7, -7)
a = Segment(A, B)
C = (12, -7)
b = Segment(B, C)
D = (0, -4)
c = Segment(A, D)
E = (12, 2)
d = Segment(E, C)
e = Segment(D, E)
f = OrthogonalLine(B, b)
F = Intersect(e, f)
g = Segment(F, B)