A = (-2.2, 0.54)
B = (3.2800000000000002, 0.46)
a = Segment(A, B)
M = Midpoint(A, B)
b = OrthogonalLine(B, a)
c = Circle(B, M)
D, O = Intersect(c, b)
d = Segment(A, O)
e = Circle(O, B)
E = Intersect(e, d)
f = Circle(A, Segment[A, E])
C = Intersect(f, a)
g = Segment(A, C)
h = Segment(C, B)