KVADRAT

A = (0.20771571000936345, 4.298522629414006)
B = (3.6327571214785097, 2.690001156821209)
a = Line(A, B)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
C = Point(b)
d = Line(C, a)
D = Intersect(c, d)
mnogokotnik1, a1_1, b1_1, a1, b1 = Polygon(A, B, D, C)