A: (-9, -14)
J = Point(Segment[A, (x(A) + 7, y(A))])
c = Circle(A, J)
B = Point(c)
f = Line(A, B)
g = OrthogonalLine(B, f)
F = Point(g)
E = (-2, -13)
H = (-1, -13)
H'_{1} = Mirror(H, E)
E'_{1} = Mirror(E, H)
d = Semicircle(E, E'_{1})
E' = Point(d)
H' = Mirror(H, E')
γ = Angle(H'_{1}, H, H')
C = Intersect(c, f, 2)
G = Point(g)
m = Segment(F, G)
G' = Rotate(F, (-γ), B)
h = Ray(B, G')
D = Intersect(c, h, 2)
β = Angle(F, B, D)
i = Segment(E, H)
k = Segment(B, D)
e = CircleArc(A, B, D)
K = (-14.168992316565914, -17.56172192842587)
stap = 4 (slider from 0 to 4, step 1)