orthogonio parmo

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