A = (-8, -15)
B = Point(Segment[A, (x(A) + 5, y(A))])
j = Segment(B, A)
C = Point(Segment[B, (x(B) + 5, y(A))])
d = Circle(A, C)
g = OrthogonalLine(B, j)
D, G = Intersect(d, g)
i = Segment(C, B)
c = Circle(A, B)
k = Line(If[y(D) > y(G), D, G], A)
E, H = Intersect(c, k)
stap = 7 (slider from 0 to 7, step 1)
F = (-13.028120842234086, -19.155319958588958)
m = Segment(If[y(H) > y(E), H, E], A)
l = Segment(If[y(G) > y(D), G, D], If[y(H) > y(E), H, E])
n = Segment(If[y(H) > y(E), H, E], C)
β = Angle(C, If[y(H) > y(E), H, E], A)
h = Segment(If[y(G) > y(D), G, D], B)
α = Angle(A, B, If[y(G) > y(D), G, D])
γ = Angle(If[y(G) > y(D), G, D], A, C)