A = (-8, -15)
straal = 3 (slider from 0 to 5, step 0.1)
c = Circle(A, straal)
B = Point(c)
r = Line(B, A)
I = Intersect(c, r, 2)
s = CircleArc(A, I, B)
lengte = 4 (slider from 0 to (2 * straal), step 0.1)
e = Circle(B, lengte)
H = Intersect(e, c, 2)
C = Intersect(e, c, 1)
f = Segment(B, H)
D = Point(s)
d = Circle(D, f)
E = Intersect(c, d, 2)
g = Segment(D, E)
h = Segment(A, D)
i = Segment(A, B)
j = OrthogonalLine(A, f)
k = OrthogonalLine(A, g)
F = Intersect(j, f)
G = Intersect(k, g)
l = Segment(A, F)
m = Segment(A, G)
n = Segment(F, B)
q = Segment(G, D)
r_1 = Segment(G, E)
α = Angle(A, F, B)
β = Angle(A, G, D)
p = Segment(F, H)