A = (0, 1)
B = (8, 1)
M = Segment(A, B)
C = Midpoint(M)
c = Semicircle(A, B)
D = Point(M)
d = Circle(C, D)
E, F = Intersect(d, M)
f = OrthogonalLine(D, M)
e = Circle(E, Distance[E, F] / 2)
G, H = Intersect(e, f)
g = Line(H, M)
h = Line(F, f)
I = Intersect(g, h)
v1, e_1, h_1, i, f_1 = Polygon(E, H, I, F)
j = Ray(C, H)
k = Ray(C, I)
J = Intersect(c, j)
E' = Dilate(E, Distance[C, J] / Distance[C, H], C)
H' = Dilate(H, Distance[C, J] / Distance[C, H], C)
I' = Dilate(I, Distance[C, J] / Distance[C, H], C)
F' = Dilate(F, Distance[C, J] / Distance[C, H], C)
v1', e', h', i', f' = Polygon(E', H', I', F')
K = (-1.82, 3.58)