M = Point({0, 0})
c = Circle(M, 4)
Schritt = 1 (slider from 1 to 7, step 1)
A = Point(c)
B = Point(c)
f = Segment(A, B)
phi_{A}: (2 * pi) - acos(x(A) / 4)
phi_{B}: acos(x(B) / 4)
D = 1.5984664030784304 (slider from (-phi_{B}) to phi_{A})
C = If(Schritt > 1, Point[{(4 * cos(D)), (4 * sin(D))}])
d = If(Schritt ≟ 2, CircleArc[M, B, A])
g = If(Schritt > 2, Segment[C, M])
h = If(Schritt > 2, Segment[M, A])
i = If(Schritt > 2, Segment[M, B])
j = If(Schritt > 2, Segment[C, A])
k = If(Schritt > 2, Segment[C, B])
d1 = If(Schritt ≟ 4, Polygon[A, C, M])
l = If(Schritt ≟ 4, Segment[C, M])
m = If(Schritt ≟ 4, Segment[A, M])
α = If(Schritt > 3, Angle[A, C, M])
n = If(Schritt > 4, Ray[C, M])
γ = If(Schritt > 4, Angle[h, n])
δ = If(Schritt > 5, Angle[M, C, B])
ζ = If(Schritt > 5, Angle[n, i])
β = If(7 > Schritt > 3, Angle[M, A, C])
ε = If(7 > Schritt > 5, Angle[C, B, M])
η = If(Schritt ≟ 7, Angle[h, i])
θ = If(Schritt ≟ 7, Angle[j, k])