M = (-5, -15)
A = (-8, -15)
f: x = x(A)
c = Circle(A, M)
B, J = Intersect(c, f)
vierhoek1, r, t, a, b = Polygon(M, (x(M), y(B)), (3, y(B)), (3, y(M)))
L = Point(c)
e = CircleArc(A, L, B)
C = Intersect(c, f, 2)
g = Segment(A, B)
h = Segment(A, C)
i: y = If[y(B) < y(J), y(B), y(J)]
D = Point(e)
j = Segment(A, D)
k = Segment(D, B)
α = Angle(A, B, D)
β = Angle(A, D, B)
E = PointIn(vierhoek1)
m = Segment(E, B)
n = Line(B, E)
F = Point(n)
p = Segment(E, F)
l = Line(A, E)
G = Intersect(c, l, 2)
q = Segment(A, G)
s = Segment(G, E)
γ = Angle(B, E, A)
δ = Angle(A, B, E)
ζ = Angle(B, E, A)
I = (-13.02812084223398, -18.63015697137672)