A = (1, -4)
B = (9, -4)
f = Line(A, B)
g = Segment(A, B)
i = OrthogonalLine(A, f)
j = OrthogonalLine(B, g)
C = (2, 1)
h = Line(C, g)
D = Point(h)
c = Circle(D, Segment[A, B])
E = Intersect(c, h, 2)
k = OrthogonalLine(A, g)
l = OrthogonalLine(B, g)
F = Intersect(h, k)
G = Intersect(h, l)
m = Segment(D, A)
n = Segment(E, B)
poli1, d, e, b, a = Polygon(D, E, B, A)
poli2, f_1, a_1, b_1, g_1 = Polygon(F, A, B, G)