A = (1.0095889476377284, 2.628227869691285)
B = (8.788482005799079, 2.6480214907044157)
a = Segment(A, B)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
D = Point(b)
d = OrthogonalLine(D, b)
C = Intersect(c, d)
đa giác1, a_1, b_1, d_1, c_1 = Polygon(A, B, C, D)