A_1 = (28.09213389244433, -2.851676391200332)
B_1 = (82.98448510730313, -2.9558364504315633)
a_1 = Line(A_1, B_1)
C = Point(a_1)
A = (39.08102014133921, 16.990814892349196)
b_1 = OrthogonalLine(A, a_1)
B = Intersect(a_1, b_1)
c = Segment(A, B)
d = Segment(A, C)
E = Point(a_1)
D = Point(a_1)
e = OrthogonalLine(E, a_1)
f = OrthogonalLine(D, a_1)
F = Intersect(e, d)
K = Intersect(f, d)
g = Segment(F, E)
h = Segment(K, D)
b = Segment(D, C)
i = OrthogonalLine(C, a_1)
G = Point(i)
j = OrthogonalLine(G, i)
H = Intersect(b_1, j)
a = Segment(H, G)