o_parmo

a_1 = Segment(A, B)
a = Segment(A, B)
b = Segment(C, D)
c = OrthogonalLine(B, a)
d = OrthogonalLine(A, a)
e = Circle(B, b)
f = Circle(A, b)
E, F = Intersect(f, d)
G, H = Intersect(e, c)
g = Segment(E, G)
h = Segment(A, E)
i = Segment(B, G)